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MID  INFRARED  POLARIZED  LIGHT  SCATTERING 
^plications  for  the  Remote  Detection 
of  Chemical  and  Biological  Contaminations 

1.  INTRODUCTION 

The  work  reported  here  originated  with  earlier  measurements  of  bi-directional  reflec¬ 
tance.^  Those  experiments  measured  the  depolarized  inhrared  reflectance  component  (a 

•  mriltiple-scattering  effect  referred  to  as  volume  reflectance)  from  contaminated  soil,  sand  and 
other  terrains  and  manufactured  samples  over  the  discrete  energies  of  a  grating-tunable  CO2 
laser.  We  suspected  the  depolarized  radiance  to  originate  within  the  subsurface  volume  of  the 
scattering  substrate,^  and  be  selectively  absorbed  by  the  interstitial  liquid  contaminant  coat¬ 
ings  when  tuned  through  the  analyte's  IR  resonance  absorption  ti-equendes.  Consequently, 

*  the  detected  depolarized  radiation  component  would  have  been  transmitted  through  the 
liquid  coatings  and  attenuated  in  exponential  proportion  to  the  product  of  coating  thickness 
and  absorption  coeffident.  Thus,  the  volume  reflectance  signals  on  resonance  frequendes  of 
the  analyte  can  be  related  to  film  thickness  of  the  contamination  layers.  (Separating  the  depo¬ 
larized  component  reduces  the  problem  to  transmission  of  radiance  from  extended  source,  i.e. 
below  the  irradiation  zone  and  through  the  contaminant  layer.)  We  thus  sought  from  the 
sep>arated  depolarized  radiance  a  means  to  detect  with  tinite  probability  (and  certainly  not 
uiuquely)  the  presence  of  liquid  contamiiutions  on  terrain,  and  approximate  thickness  of  the 
coating  layers  through  a  set  of  differential  volume  reflectance  measurements. 

Our  condusion  from  analysis  of  these  measurements  was  not  encouraging.  The  minor 
depolarized  IR  scattering  component  (about  10%  of  the  total  scattering  power)  from  agent 
simulant  wetted  soil  and  sand  samples  did  not  qualitatively  reveal  absorption  by  the  contam¬ 
inant  at  concentrations  that  would  have  proven  fatal  to  life  had  it  been  an  actual  chemical 
agent.  Furthermore,  once  absorption  was  detected  at  the  highest  concentrations,  this  method 
of  detection  could  not  singularly  characterize  the  contaminant.  It  is  unlikely  that  separate  con¬ 
taminants  with  different  toxidty  but  overlapping  extinction  energies  could  be  resolved 
through  analysis  of  CO2  laser  reflectance  spectra  alone  —  be  it  in  total  reflectance  or  its 
separated  coherent  and  incoherent  components. 

New  concepts  were  necessary,  and  in  1985  experimental  and  theoretical  research  pro¬ 
grams  were  started  on  developing  a  phase-sensitive  infrared  scattering  solution  of  chemical 
and  biological  warfare  (CBW)  agent  detection  problems.  This  new  technology  was  certain  to 
improve  detection  thresholds  and  provide  quantitative  information  on  physic^  and  geometri¬ 
cal  properties  of  the  scatterer  —  with  interstitial  contamination  layers!!  (We  are  developing 
techniques  to  use  the  rich  phase  information  in  the  scattering  EM  waves  that  present 
reflectance-based  systems,  i.e.,  DISC/DIAL,  do  not  or  caimot  measure.) 

In  the  theoretical  program,  quantum  chemistry  codes  are  used  to  predict  energies  and 
absorption  strengths  of  the  contaminants  at  the  molecular  level.  These  inhared  spectral  inten- 

*  sities  are  converted  into  refractive  indices  that  are  accessed  by  a  Full  Wave  electromagnetic 
wave  scattering  model  used  to  predict  the  scatterer's  4X4  Mueller  matrix.  The  Mueller  matrix 
is  a  complete  optical  characterization  of  the  scatterer,  and  is  computed  at  beam  excitation 
energies  and  backscattering  angles  that  can  best  contrast  a  contaminant  (referred  to  as  the 

•  chemical  analyte  with  an  IR  absorption  moiety)  from  all  other  scatterers  (background).  In  the 
experimental  program,  we  are  developing  three  ellipsometer  sensors  for  production  of  a  data 
base  of  Mueller  elements  representing  scattering  by  aerosols  and  by  liquid  coatings  spread 
across  various  surfaces.  Wi^  guidance  from  a  valid  theoretical  scattering  model,  the  ellip¬ 
someter  sensors  can  be  made  to  operate  at  beam  energies  and  backscatter  angles  that  produce 
sets  of  Mueller  elements  that  are  susceptible  to  the  contaminant  and  only  that  contaminant. 
The  set  of  independent  elements  most  sensitive  to  the  airalyte(s)  are  inputs  to  an  algorithm 
designed  to  identify  it,  or  establish  non-presence. 


-1- 


The  purpose,  then,  of  this  work  is  to  characterize  contaminated  surfaces  in  toto  through 
their  Mueller  matrix  signatures,  interpret  these  data  elements,  discern  targeted  contaminant 
information  immediately  (near  real-time  alarm),  and  quantify  the  threat  target  mass  concen¬ 
tration  (map).  The  analyte  compounds  of  interest  include  chiral  sugars  and  other  enantiomers 
that  preferentially  absorb  right-  and  left-drcularly  polarized  light,  and  thus  simulate  Vibra¬ 
tional  Circular  Dichroism  (VCD)  in  more  complex  biological  structures.  Background  (inter- 
ferent)  materials  of  interest  include  manufactured  and  terrestrial  (scattering)  interferent  sur¬ 
faces  such  as  soil,  sand,  concrete,  asphalt,  and  treated  metallics  conunonly  used  in  military  • 

hardware.  Other  analytes  we  wish  to  target  for  identification  are  the  chemical  agent  simulant 
class  of  phosphonated  hydrocarbons  and  other  liquids  that  exhibit  at  least  one  strong  resonant 
IR  vibrational  normal  mode. 

Presented  in  Section  2  are  fundamental  definitions  of  photopolarimetry  on  which  the  • 

ellipsometer  is  based.  In  Section  3,  the  types  of  measurements  to  be  conducted  and  the 
important  experimental  parameters  are  discussed.  In  Section  4,  the  ellipsometer  and  its  theory 
of  operation  is  presented,  and  in  Section  5,  a  Full-Wave  light  scattering  model  for  rough  sur¬ 
face  scattering  is  introduced,  currently  under  development  at  the  University  of  Nebraska  in 
collaboration  with  CRDEC.  In  this  same  section,  three  quantum  chemistry  software  packages 
are  briefly  reviewed.  These  ab  initio  models  predict  least-energy  group  configurations  in  the 
analyte  molecules,  and  their  corresponding  absorption  spectrum.  We  will  merge  quantum 
molecular  codes  with  the  Full  Wave  polarized  EM  wave  scattering  code,  so  that  a  comprehen¬ 
sive  model  can  be  used  to  predict  linear  and  circular  birefiingence;  VCD,  depolarization,  and 
other  polarization  dependent  scattering  phenomena. 

The  integrated  Full  Wave  scattering  and  quantum  molecular  codes  will  be  tested 
through  a  systematic  set  of  experiments  and  if  found  valid  guide  the  development  of  a  field 
ellipsometer  sensor  capable  of  multi-target  detections,  by  simulating  the  entire  experiment 
under  various  field  sceiiarios.  These  simulations  of  Mueller  backscattering  elements  v^l  direct 
us  toward  optimizing  those  parameters  most  crucial  in  development  of  a  prototype  version  of 
the  9-channel  analog  laboratory  phase  sensitive  detection  system  (first  generation.  Section  4), 
a  digital  data  acquisition  system  counterpart  (second  generation.  Section  6.2),  and  neural  net¬ 
work  (third  generation,  Action  6.4).  In  Section  6  and  the  concluding  Section  7,  present 
development  status  of  the  experimental  ellipsometer  systems  is  updated,  methods  of 
advanced  digital  data  acquisition  and  processing  techniques  are  suggested  for  a  future  detec¬ 
tion  module  of  the  ellipsometer,  the  structure  of  an  initial  data  base  is  outlined,  and  a  brief 
discussion  on  our  initial  work  with  neural  network  computing  is  addressed. 


2.  KEY  DEFINITIONS  USED  IN  PHOTOPOLARIMETRY 

References  3  through  7  cover  in  some  detail  the  definitions  and  conventions  used  in 
ellipsometry.  Among  these,  Shurcliff's  book^  describes  polarized  light  best  at  the  introduc¬ 
tory  level,  and  includes  useful  Mueller  matrices  for  standard  birefringent  and  polarizing  optics 
that  make  up  these  ellipsometer  instruments.  The  standard  texts  by  van  de  Hulst*,  Bohren 
and  Huffman’  are  frequently  referenced  sources  for  Mie  and  Rayleigh  scattering  by  arbitrary 
particles.  Moreover,  Section  5  is  reserved  for  a  brief  but  more  focused  theoretical  treatment  of  * 

the  Mueller  elements  related  to  scattering  by  dielectric  and  metal  surfaces  of  varied  roughness 
(changing  heights  and  slopes),  a  subject  we  later  concentrate  on  for  this  detection  problem. 
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We  begin  our  discussion  by  defining  a^Stokes  vector  and  Mueller  matrix:  a  column  vec¬ 
tor  representing  total  and  partially-polarized  states  of  propagating  electromagnetic  laser  radi¬ 
ation,  and  a  matrix  that  transforms  these  states  due  to  reflection,  transmission,  scattering,  or 
absorption  events.  They  represent  the  fundamental  operational  principles  of  the  ellipsometer 
instruments.  Notation  of  J.D.  ]ackson^°  in  defining  the  Stokes  parameter  is  used  throughout 
this  work.  We  also  choose  f  symbols  for  Mueller  matrix  elements  of  the  scattering  sample,  as 
denoted  by  R.C.  Thompson,  J.R.  Bottiger  and  E.S.  Fiy.^^ 


2.1  Stokes  Vector. 

*  The  Stokes  vector  is  a  four-element  column  matrix  that  represents  a  beam  of  total  or 

partially-polarized  light.  Consider  a  homogeneous  plane  wave  propagating  in  a  direction  of 
the  vector  k  =  nk. 


E  =  (E,^,  + 


(1) 


where  the  complex  electric  field  amplitudes,  E]  and  Ej,  have  amplitude  (a)  and  phase  (8). 


E,  =  a,  ,  Ej  =  aj  e'** 


(2) 


Elements  of  the  Stokes  column  matrix  are  defined  in  terms  of  the  coordinate  basis  vec¬ 
tors  €]  and  C2  as: 


/  ^ 
So 

<  1  €,  •  E  1  *>  +  <  1  €2  •  E  1  *> 

S| 

<  1  €,  •  E  1  *>  -  <  1  €2  •  E  1  *> 

*2 

<2Re{it  •  E)(€2  •  E)> 

.S3- 

<2/m(€,  •  E)(e2  •  E)> 

<a?>  +  <a|> 
<a?>  -<a|> 
<2a|  B2  005(82  -  8,  )> 
<2ai  02  sin  (82  -  8|  )> 


*  A  Hnearty-poUrized  beam  that  is  multiply  acattered  ftx>m  teirestrial  auffecea  will  haa  a  depolarized 
component  in  the  IR.*  The  Stokea  calculua  ia  neceaaaty  when  predicting  theae  Innafbnnations. 
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Brackets  <  >  denote  time-averaged  values.  Notice  that  Sq  is  an  additive  intensity  term 
and  suggests  total  scattering  power,  while  positive  (negative)  Si  suggests  a  majority  of  hor¬ 
izontal  (vertical)  linear  polarization.  Both  $2  and  S3  contain  phase  difference  terms,  and  can 
suggest  -f  (clockwise)  or  -  (counter  clockwise)  handedness  of  elliptical  EM  waves.  As  an  illus¬ 
tration,  consider  the  Stokes  parameters  for  three  polarization  states:  (a)  unpolarized’'  ,  (b)  hor¬ 
izontal  linear  and  (c)  right  circular.  For  case  (a),  by  definition  of  unpolarized  light, 
<  I  €1  •  E  I  *>  =  <  I  €2  •  E  I  ^>  ,  and  S3  =  s*  =  0,  since  both  sine  and  cosine  terms  average  to 
zero  independently  of  the  amplitudes  ai  and  a2.  When  dividing  all  parameters  by  Sg,  the  nor¬ 
malized  Stokes  vector  for  unpolarized  light  becomes  (1,0,0,0).  For  case  (b), 
8]  =  82  a2  =  0,  C2  -  E  «  0  ,  and  therefore  the  normalized  Stokes  vector  for  linearly  polarized 

light  in  the  horizontal  direction  is  (1,1,0,0).  For  the  final  case  (c),  81  =  ®  ®2,  ®*zd 

therefore  the  normalized  Stokes  vector  for  right  circular  polarized  light  is  (1,0,0,1). 

The  Stokes  vector  of  the  incident  beam  and  the  scattered  radiance,  collected  fi’om  the 
irradiation  zone  in  some  small  solid  angle  from  the  sample,  changes  continuously  and  period¬ 
ically  when  operated  on  by  the  ellipsometer's  transmitter  and  receiver  photoelastic  modula¬ 
tion  (PEM)  optics,  respectively.  The  following  Table  1  lists  a  selection  of  six  states  generated 
by  specific  retardation  amplitudes  in  the  PEMs,  and  swept  periodically  at  33.980  KHz 
(transmitter)  and  31.896  KHz  (receiver)  transducer  fi'equencies,  rates  at  which  the  PEM's 
octagonal  ZnSe  crystal  are  stressed-then-relaxed.  We  later  make  reference  to  this  table  when 
the  topics  of  system  matrices  and  diagnostics  of  MCT  detector  signal  are  discussed. 


Table  1.  Normalized  Stokes  vectors  for  six  polarization  states. 


HORIZONTAL 

VERTICAL 

+45° 

-45° 

RIGHT 

LEFT 

LINEAR 

LINEAR 

LINEAR 

LINEAR 

QRCULAR 

aRCULAR 

'  ' 

'  < 

r  i 

1 

1 

1 

1 

1 

1 

1 

-1 

0 

0 

0 

0 

0 

0 

1 

-1 

0 

0 

0 

0 

0 

0 

1 

-1 

V  / 

V,  ^ 

2.2  Mueller  Matrix. 

The  polarization  state  of  an  electromagnetic  wave  is  generally  altered  by  reflection, 
transmission,  scattering  and/or  absorption  processes.  The  scattering  phase  and  amplitude 
information  represented  by  the  Mueller  matrix  depends  on  the  physical  properties  of  the 
interactive  me^um  and  its  geometry  or  topographic  detail.  A  transformation  of  the  incident 
beam  Stokes  vector  after  its  backscattered  interaction  with  a  material  boundary  into  a  new 
vector  defines  the  Mueller  system  matrix  operator. 


**  Unpolafizcd  light  implies  nonpreferentui  electric  field  directional  properties,  i.e.,  the  total  electric 
field  vector  is  equally  probable  of  lying  in  any  orientation  in  the  scattering  plane  over  the  time  in  which  a 
measurement  is  made. 
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The  Mueller  Matrix  Transforms  the  Input  Stokes  Polarization  State  Vector. 


(4) 


In  Equation  (4),  St  are  Stokes  vector  components  of  the  incident  beam,  and  Sy  are  resul¬ 
tant  cmnponents  after  beam  medium  interaction.  That  transformation  is  given  hy  f^,  a  4x4 
operator  whose  elements  represent  a  complete  geometrical  and  ph)^ica]  description  of  a 
linear  medium  interacted  by  the  beam  —  it  is  the  Mueller  matrix.  (The  non-linear  phenomeiui 
of  stimulated  Raman  and  Brillouin  scattering,  second  harmoiuc  generation,  etc.,  cannot  be 
interpreted  by  a  linear  operator.  The  medium  may  require  a  tensor  description  of  permittivity 
and  (for  magnetic  materials)  permeability.  However,  the  electric  field  intensity  required  to 
produce  such  effects  is  far  beyond  the  incident  irradiations  by  these  ellipsometer  probe 
beams.)  In  Figure  1,  we  graphically  illustrate  the  beam  scattering  geomet^.  The  Mueller 
matrix  field  and  a  few  of  its  elemental  interpretations  are  schematized  in  Figure  2. 


Figure  2.  The  Mueller  matrix  and  some  of  its  typical  properties  with  active  sub-field  elements. 
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In  the  following  Table  2,  Mueller  matrices  of  the  scattering  sample  (denoted  F,  the  sur¬ 
face  and  subsurface  contaminant  layers  are  embedded  in  F)  and  optical  components  of  the 
ellipsometer  design  are  presented.  The  matrix  elements  of  reflection,  retardation,  and  polari¬ 
zation  optics  are  used  in  latter  sections  of  this  work  when  all  Mueller  elements  of  the  contam¬ 
inated  sample  are  correlated  to  primary  and  combination  PEM  modulator  frequencies  in  die 
instrument's  Fourier  transformed  MCT  detector  signal  intensity  spectrum. 

Table  2.  The  Mueller  matrices  of  individual  optic  components  making  up  the  2- 
modulator,  mid  infrared  IR  ellipsometer  systems,  fjj  are  matrix  elements  of  the 
scattering  sample,  a  and  P  are  amplitude  ratios  of  reflected-to-inddent  electric  field 
components  for  light  polarized  parallel  and  perpendicular  to  the  plane  of  inddenoe, 
respectively,  cr  is  the  reflection  induced  phase  shift  between  these  two  components, 

6  is  the  polar  (tilt)  angle  resulting  from  goniometer  rotation,  5q  and  (i>  are  peak  retar- 
dance  and  frequency  generated  by  the  ZnSe  phase  modulators,  respectively. 


3.  EXPERIMENTAL  APPROACH 

In  addition  to  Reference  11,  the  works  of  Williams^,  Roseler^^  and  Vorbuiger  et  al.^^ 
seem  relevant  to  this  specific  detection  problem.  Williams  describes  depolarization,  cross 
polarization,  and  changes  in  elliptidty  through  rough  surface  scattering  signatures  by  a  Poin¬ 
care  sphere  representation,  while  Roseler  introduces  a  Fourier  transform  sp>ectrcMneter  formal¬ 
ism  to  yield  a  spectroscopic  ER  phase  matrix  measurement.  Vorburger  et  al.,  discuss  the  ellip- 
sometric  parameters  4)  and  A  for  various  textured  surfaces,  presenting  data  at  0.6328  p.m  and 
0.5461  fj.m.  They  conclude  that  topographical  roughness  is  a  major  random  error  source  for 
inversion  methods  that  map  «li  and  A  parameters  to  physical  prof>erties  of  the  scatterer.  This  is 
a  major  concern  if  polarized  scattering  can  be  successfully  applied  to  the  IR  remote  sensing 
problem:  for  a  quantitative  in  situ  infrared  detection  of  amorphous  or  crystalline  contam¬ 
inants,  its  physi^  absorption  property  (where  the  imaginary  part  of  its  permittivity  maxim¬ 
izes)  is  its  key  identifier,  and  that  information  must  manifest  itself  consistently  in  the  suscep¬ 
tible  on/off  resotuince  differential  scattering  Mueller  elements.  This  issue  is  ad^essed  again  in 
Section  5. 

From  our  most  recent  literature  search,  we  have  Icxrated  other  visible  single-frequency 
bistatic  photopolarimeter  systems  of  one  and  four  modulator  design^^,  with  essentially  the 
same  detector  analog  electronics  as  first  reported  by  Kemp^^,  and  later  Hunt  and  Huffman. 
The  work  of  Whitt  and  Ulaby's^^  is  also  noted,  reporting  millimeter-wave  polarimeter  meas¬ 
urements,  as  is  van  Zyl's*^  paper  on  radar  polarization  signatures  from  rough  surfaces  in  the 
backscattering  plane. 

We  have  not  located  in  the  open  literature  data  published  on  mid  IR  Mueller  matrix  ele¬ 
ments  from  rough  surfaces  of  varied  optical  properties,  e.g.,  the  contaminated  terrestrial 
scenarios.  The  instruments  we  report  here  were  designed  especially  for  this  application,  and 
provide  an  opportunity  to  acquire  quantitative  Mueller  data  elements,  sensitive  to  perhaps 
sub-micron  layers  of  contaminant  spread  across  a  surface,  and  conduct  the  necessary  near 
real-time  data  processing  and  analysis  that  we  hope  will  rapidly  identify  (alarm)  and  quantify 
(map)  chemical  and  biological  warfare  (CBW)  agents  dispersed  onto  terrestrial  and  manufac¬ 
tured  materials. 

The  ellipsometer  remote  seirsors  presented  here  consist  of  two  photoelastic  modulators 
driven  at  frequencies  offset  by  2.06  KHz,  one  operating  on  the  incident  beam  the  other  on  col¬ 
lected  backscattered  radiance.  They  are  the  Mueller  matrix  generators  capable  of  optically 
computing  nine  elements  simultaneously  and  all  sixteen  in  sequence  according  to  orientations 
of  modulator-polarizer  axes.  One  instrument  will  be  used  to  analyze  surfaces  of  a  rigid  and 
generally  continuous  texture;  a  nonporous  military  painted  panel  for  instance.  A  similar 
laboratory  instrument  will  analyze  the  natural  soils  and  other  granular  porous  surfaces 
without  mechanical  disturbance  to  the  scattering  sample.  This  instrument  requires  a  goniome¬ 
ter  optical  device.  A  third  instrument  is  intended  for  long-range  field  evaluation. 

In  conducting  laboratory  Mueller  matrix  measurements  from  soil  and  other  granular-like 
samples,  in  situ,  an  opto-mechanical  goniometer  arm  was  built  and  later  integrated  into  one 
ellipsometer  optical  design,  between  linear  polarizing  optics  producing  the  system's  iiutial 
and  final  Stokes  vectors.  The  goniometer  introduces  three  mirror  optics  to  the  ellipsometeris 
sjrstem  matrix,  a  necessary  but  optically  and  computationally  complex  addition  to  the  ellip¬ 
someter  system  and  its  data  analysis  functions.  As  we  progress  toward  later  sections  of  this 
work,  die  data  analysis  complicatioi\s  that  arise  as  a  result  of  the  presence  of  these  mirror 
optics  will  be  made  more  clear.  Moreover,  we  later  present  both  software  and  hardware 
methods  for  cc»npensating  all  goniometer  mirror  phase  contributioT\s  so  that  the  desired  sam¬ 
ple  matrix  elements  is  extracted  from  the  detector  system  waveforms. 
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The  order  ii\  which  the  incident  beam  is  transmitted  and  reflected  by  system  optic  com¬ 
ponents,  and  scattered  by  the  sample,  defines  the  important  system  product  matrix.  Only  in 
the  goniometer-type  and  field  instruments  do  system  (measured)  elements  need  to  be 
transformed  into  sample  elements  (///[X,6])  by  software  and  electroruc  decoding  (/j)[X,8], 
Appendix  11).  These  sample  Mueller  elements  contain  the  important  information  on  the 
aiialyte  that  we  seek  in  making  detection  judgements. 


»- 


3.1  Radiation  Wavelength,  Backscattering  Angle,  and  Anal)de  Mass  Density 

Dependencies  of  the  Matrix  Elements. 

The  experimental  goal  is  production  of  a  reliable  data  bank  of  Mueller  matrix  elements 
that  most  contrast  background  (terrain)  and  chemical/biological  contaminant  (anal)rte).  These 
elements  will  be  obtained  as  functions  of  wavelength  of  the  probe  beams;  tuned  specifically  to 
the  analyte,  angle  in  the  backscattering  plane  of  the  incident  beams,  and  mass  of  contaminant 
deposited  to  the  sample  per  unit  area  in  the  zone  of  beam  exposure. 

We  reserve  the  latter  Section  6.4  for  a  discussion  of  our  starting  data  base  structure  and 
its  management. 


3.1.1  Wavelength  Selection  of  the  Irradiating  I^obe  Beams. 

The  Mueller  matrix  elements  are  to  be  measured  alternately  at  CO,  beam  energies  that 
drive  strong  vibrational  modes  in  the  contaminant  to  be  detected  (sometimes  referred  to  as 
aiudytical  wavelengths)  and  at  an  energy  where  no  contaminant  molecular  excitation  is  pro¬ 
duced  (reference). 

In  addition  to  a  standard  source,  isotopic  carbon  dioxide  gases  are  part  of 

the  gain  fill  in  three  other  lasers  of  the  eliipsometer  transmitter.  The  isotope  lasers  are  used 
for  purposes  of  extending  the  mid  IR  wavelength  range  in  which  the  sample  can  be  irradi¬ 
ated,  and  to  fill  in  wavelength  gaps  between  P-  and  R-branch  transitions  (widen  and 

make  more  continuous  the  wavelength  coverage).  The  beam  wavelength  selections  (i.e.,  emis¬ 
sions  with  enough  power  for  measuring  scattered  radiance)  range  from  9.0  }i.m  at  the  R(40) 
line  0tf’l-02**0  band  in  the  C“Oj*  laser,  to  12.08  ft-m  at  the  P(44)  line  00°-10^  band  of  the 
C**02*  laser.  For  example,  consider  detection  of  ti\e  liquid  chemical  agent  simulant  DIMP, 
CHjPOfOCHfCHs)])].  Absorption  band  assigiunents  of  this  analyte  are  two  intense  v  (P-O-C) 
vibrational  modes  at  10.169  tint  and  9.884  fim,  and  a  less  intense  P-CHa  rocking  mode  at 
10.902  iim.  Typically,  three  of  four  lasers  will  be  tuned  to  wavelengths  that  align  to  peak 
maximum  in  the  vibrational  bands  (analytical  wavelengths)  of  the  target,  while  the  fourth 
laser  is  otf-tuned  to  generate  reference  (background)  Mueller  data  elements  (Appendix  I).  The 
full  Mueller  matrix  16-eiement  field  recorded  between  beams  and  those  that  possess  suscepti¬ 
ble  behavior  to  the  analyte  (change  abruptly  during  laser  switching  between  resoiuince  and 
reference  wavelengths)  are  singled  out  as  detection  candidates. 


« 


3.1.2  Angle  to  the  Sample  of  the  Incident  Probe  Beams. 

Generally,  standoff  active  sensors  are  monostatic  backscattering  systems  where  the 
transmitter  source  and  collection  optical  receiver  are  stationary  and  co-Tocated  as  a  unit.  The 
eliipsometer  facility  at  CRDEC  is  also  monostatic,  measuring  the  Mueller  elements  in  back- 
scattering  directions  over  all  angles  of  incidence.  To  accommodate  such  measurements  from 
granular  materials  and  surfaces  of  continuous  texture,  two  separate  ellipsometers  were  con¬ 
structed  and  are  sdnematized  in  Figures  4a-b.  For  the  rigid  surfaces,  like  painted  metallics  and 
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pelletized  substrates,  the  sample  is  positioned  vertically  and  rotated  along  an  axis  perpendic¬ 
ular  to  the  plane  of  incidence  defined  by  the  incident  team  at  polar  angles  ranging  from  -89° 
to  -t89°  (Figure  4b).  For  loose  particles,  like  natural  soil  and  sand,  the  sample  lies  undisturbed 
in  its  horizontal  position  while  a  goniometer  transceiver  arm  delivers  the  team  to  the  surface 
over  all  polar  angles  in  the  upper  hemisphere  and  directs  backscattering  to  the  MCT  detector 
(Figure  4a)  by  use  of  three  flat  mirrors,  each  positioned  45°  to  its  incident  team.  Thus,  the 
reference  plane  in  which  the  Stokes  vectors  of  transceived  radiations  are  measures  vary  as  the 
goniometer  arm  rotates  out  of  the  reference  plane  -  a  complication  this  design  presents  in 
data  analysis.  Introduction  of  these  mirrors  between  linear  polarizers  producing  incident-  and 
final-Stokes  vectors  of  the  ellipsometer  design  causes  other  complications.  Matrix  signatures 
from  the  sample  must  now  te  separated  fi'om  those  elements  by  the  ellipsometer  system. 
The  phase  changes  imparted  by  each  goniometer  mirror  optic  can  te  compeiisated  for  either 
opti<^ly,  or  mathematically  through  a  series  of  calibration  exp>eriments  (Section  4.6.3,  and 
Appendix  II). 

A  phenomenon  of  direct  backscattering  firom  optically  rough  surfaces  is  the  so-called 
opposition  effect,  which  may  have  benefit  for  these  backscattering  ellipsometers  as  detection 
instruments.  The  effect  is  predicted  by  Full  Wave  theory  (see  Section  6),  and  states  that  an 
enhanced  incoherent  backscattering  component  of  radiance  results  from  scattering  at  a  ran¬ 
domly  rough  boundary  interface.  An  experiment  conducted  by  Mendez  and  O'Donnell^ 
show  results  that  tend  to  corifirm  this  prediction.  Bohren  and  Huffman’  show  that  if  the  irra¬ 
diated  surface  is  modeled  as  a  random  array  of  identical  dipole  oscillators,  then  the  total  back- 
scattering  radiation  field  is  generally  incoherent  and  dependent  on  spacing  between  the 
dipole  radiators,  unlike  the  forward  scattering  field  that  is  totally  in  phase  and  independent  of 
separation  between  radiating  particles.  Since  enhanced  backscattering  manifests  itself  as  a 
noncoherent  component  of  scattering,  it  would  appear,  then,  that  a  spatially  integrated  back- 
scattering  signal  from  randomly  rough  surfaces  could  vary  dramatically  in  the  scattering 
phase  signature  {viz,  fluctuations  in  the  Mueller  matrix  bac^cattering  'picture'  as  the  select 
irradiation  team  spatially  scan  a  contaminated  terrestrial  surface.)  Again,  we  emphasize  that 
a  changing  refractive  index  in  the  analyte  between  teams  alternating  on  target  resonance  and 
off  target  absorption  resonance  must  te  revealed  in  a  reproducible  maimer  for  making  a  suc¬ 
cessful,  unique,  physical  detection. 


3.1.3  Contaminant  Deposition  to  the  Sample. 

Three  common  liquid  simulants  are  chosen  as  initial  detection  targets:  nonvolatile 
dimethyl  siloxane  fluid  SF96  (General  Electric  nomenclature),  and  the  more  volatile  DMMP 
and  DIMP  phosphonated  organic  compounds.  Presented  in  Figure  3  are  infrared  imaginary 
refi-active  indices  of  all  three  compound,  and  listed  in  Table  4  are  the  compounds'  strongest 
mid  IR  extinction  frequencies.  (The  imaginary  part  of  refractive  index  is  proportional  to  the 
absorption  coefficient  of  the  medium.  It  can  te  obtained  through  Kramers-Kronig  analysis  of 
either  absorption  or  reflectance  sp>ectra*°'^*.) 
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Figure  3.  Spectra  of  the  imaginary  component  of  complex  refractive  index  (absorption)  in 
volatile  liquid  chemical  agent  simulants  dimethyl  methyl  (DMMP)  and  diisopropyl  methyl 
(DIMP)  phosphonates,  and  nonvolatile  polydimethylsiloxane  (SF%  -  General  Electric  nomen¬ 
clature).  The  dashed  vertical  lines  are  some  of  the  allowed  CO2  laser  transitions  where  the 
ellipsometer  can  probe.  See  Appendix  I  for  a  complete  list  of  transition  assignments  and 
nc»nenclature  for  these  ellipsometePs  beam  sources. 
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The  relationship  of  applied  mass  contamination  on  a  surface  and  the  Mueller  elements, 
at  angle-wavelength  domains  specific  for  detection  of  the  contaminant,  could  yield  useful 
information  to  a  trained  signal  processor  for  quantification  of  the  analyte  once  detection  is 
established  from  an  appropriate  data  bank. 

This  data  bank  of  information  can  come  from  a  set  of  experiments  that  sequential  meas¬ 
ure  all  Mueller  elements  from  some  scattering  substrate  when  dry,  then  coated  with  increcis- 
ing  quantities  of  the  aiudyte.  Consider  a  soil  substrate  as  the  background  scatterer.  First,  all 
sixteen  matrix  elements  are  measured  from  the  unwetted  soil  sample  and  referenced  as  the 
background  matrix  set  of  Mueller  elements  over  a  range  of  beam  energies.  Next,  the  soil  is 
contaminated  by  the  analyte  compound  in  low  concentration  and  the  elements  are  once  again 
measured,  at  beam  energies  specific  to  the  analyte.  The  analyte-susceptible  Mueller  elements 
are  singled  out  for  discriminant  features,  then  the  sample  is  re-wetted  with  additional  analyte 
solution  and  the  matrix  elements  remeasured.  Measurements  continue  to  an  aiialyte  density 
typically  less  than  20  gm  cm'^.  These  kinds  of  controlled  analyte  dispersion  experiments  will 
correlate  a  pattern  in  the  analyte-susceptible  Mueller  elements  from  low  to  high  analyte  mass 
density,  with  the  uncontaminated  elements  serving  as  a  refeience  frame  of  background  infor¬ 
mation.  The  element  data  can  subsequently  be  input  to  an  appropriate  decision  making  algo¬ 
rithm  (Appendix  VI)  that  electronically  filters  background  data  and  discerns  the  informational 
content  of  the  analyte-spedfic  Mueller  element  signals,  correlating  their  pattern  to  quantity  of 
analyte  spread  across/into  the  surface.  In  a  t)rpical  data  trial,  contaminant  mass  densities  of 
2-20  gm  m'^  are  deposited  in  2-5  gm  m"^  increments. 

Experiments  for  classifying  biological  contaminants  spread  across  terrain  and  manufac¬ 
tured  surfaces  through  their  Mueller  matrix  features  are  being  discussed  now.  We  feel  some 
control  experiments  must  first  be  performed  to  first  recognize  whether  resonant  absorption  by 
these  analytes  can  reveal  a  matrix  signature  in  the  absence  of  interferent  scatterers.  Initid 
experiments  would  include  measurements  from  aqueous  suspensions  of  simulant  organisms, 
generated  bioaerosols  in  a  chamber,  and  liquid  and  crystalline  compounds  like  sugars  that 
have  known  molecular  symmetrizations  exhibiting  ^chroism  (e.g.,  vibrational  circular 
dichroism  or  VCD).  If  features  of  detection  are  clearly  evident  in  differential  Mueller  element 
data  sets  then  the  exjjeriments  are  refined  (i.e.,  concentrate  on  the  optimum  angle- 
wavelength  domains  producing  susceptible  Mueller  elements),  redone  with  interferent  scatter¬ 
ing  (an  in  situ  contaminated  surface  scenario),  then  analyzed  for  the  element  features 
separate  from  the  terrain  element  signatures.  The  experiments  would  be  extended  to  include 
other  disseminated  specimens  like  sterile  B.  Anthrads,  B.  Cereus,  B.  Thuringiensis,  E.  Coli, 
and  fungus  spores. 


3.1.4  Time  Dependence  of  Matrix  Elements  After  Aerosol  Election. 

*  In  the  experimental  program  we  monitor  the  susceptible  Mueller  elements  after  deposi¬ 
tion  of  the  contaminant.  The  expected  temporal  fluctuations  in  these  Mueller  elements  could 
conceivably  sense  diffusion  and  spread  of  contaminant  across  and  into  the  substrate.  Eva¬ 
poration  of  the  volatile  liquid  DMMP  and  DIMP  analytes  would  also  manifest  temporal  fluc- 

*  tuations  in  these  elements.  Heat  liberated  by  an  absorbed  beam  energy  will  deplete  the  thin 
volatile  analyte  surface  coatings,  thereby  generating  a  contaminant  vapor  doud  above  the  irra¬ 
diation  zone.  It  is  difficult  to  predict  whether  this  vapor  presence  above  the  surface  will  cause 
significant  alterations  in  the  ac  (phase  spectrum)  scattering  components.  (Backscattering  from 
the  vapor  itself  is  insignificant,  however,  scattering  from  the  terrain  transmitting  through  the 
vapor  doud  may  indeed  be  sensitive  to  some  matrix  elements.)  Transmission  of  scattered 
ra^ance  through  the  vapor  plume  on  analyte  resonant  wavelengths  would  have,  however, 
some  attenuation  effect  on  /  j],  i.e.,  the  dc  component  of  the  MCT  signal,  it  being  a  measure 
of  scattering  intensity. 
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Other  changes  in  fij  horn  volatile  simulants,  if  indeed  they  are  measurable,  are  likely  to 
result  from  changing  scattering  surface  topography  due  to  evaporation  and  diffusion  of  liquid 
analyte  layers  or,  in  biological  specimens,  a  changing  morphology  under  exposure  by  an 
absorbing  beam. 


4.  THE  ELUPSOMFTERS:  THEORY  OF  OPERATION  AND  DESIGN 

The  CRDEC  Mueller  matrix  ellipsometer  (MME)  systems  are  similar  in  optic  and  analog 
data  acquisition  system  designs  to  the  facility  reported  in  Reference  11 .  Our  experimental  sys¬ 
tems  are  multi-laser  and  multi-infrared  wavelength  (9.0-12.1  M.m),  monostatic  backscattering, 
and  of  a  two  modulator  design;  theirs  a  single-visible  wavelength  (0.6328  M-n\),  bistatic,  four 
modulator  system.  A  disadvantage  of  these  two-modulator  systems  is  that  only  9  of  16  matrix 
elements  can  be  simultaneously  measured.  It  requires  four  sequential  angular  permutations 
between  each  of  this  ellipsometer's  linear  polarizer-retarder  optic  units  (Section  4.4)  to  com¬ 
plete  the  measurement  of  the  16-element  field.  We  found  it  necessary,  for  precision  and 
repeatable  measurements,  to  stepper-motor  control  and  computer  automate  all  optic  transla¬ 
tion  and  rotation  sequences.  It  follows,  that  computer  data  collection  operations  are  synchro¬ 
nous  to  indexing  of  the  optics  hardware. 

Advantages  of  the  two-  verses  four-modulator  systems  include  less  multiplicative  error 
in  the  modulation  crystals  due  to:  (a)  imperfections  in  the  crystal,  (b)  thermal  distortion  by 
heating  by  the  incident  IR  beam,  (c)  misalignments  in  optics,  and  (c)  beam  transmission  offset 
from  the  PEM  crystalline  axis.  A  less  chance  of  mixing  of  the  Mueller  elements  (i.e.,  overlap 
of  the  Fourier  intensities  in  the  transformed  scattergram)  is  realized  because  of  the  wider 
separation  between  primary  and  overtone  modulator  frequencies.  (The  requirements  imposed 
on  the  phase-sensitive  detector  boards  are  less  restrict  because  of  the  greater  frequency 
separation,  and  thus  less  chance  of  harmonic  overlap,  between  Fourier  signal  components.) 


4.1  Hardware  of  the  Experimental  System. 

Figures  4a-c  shows  the  ellipsometers'  basic  hardware  components  for  three  types  of 
experiments:  (a)  short  range  laboratory  matrix  element  measurements  from  diy/wetted  porous 
granular  materials  (the  soils  and  sands)  left  undisturbed;  (b)  short  range  laboratory  matrix 
measurements  from  surfaces  of  nonporous  composition  made  to  rotate  over  all  backscattering 
angles  (the  flat,  continuous,  and  cohesive  surfaces  like  painted  metallic  panels  used  in  mili¬ 
tary  hardware);  and  (c)  long  range  matrix  measurements,  where  the  beam  is  sent  outside  the 
laboratory  to  target  boards  located  down  range  at  distances  of  500  meters  and  more.  (The 
switching  system  of  this  system's  transmitter  is  reviewed  in  Section  6.2.)  All  systems  are 
automated  and  computer  controlled,  including:  laser  switching,  beam  and  sample  positioning, 
power  regulation,  goniometer  and  PEM-polarizer  rotation;  data  acquisition,  storage,  and  pro¬ 
cessing.  Wavelength  selection  and  stabilization  of  the  four  laser  systems  is  part  of  an  initiali¬ 
zation  prcxiedure,  the  only  manual  optics  hands-on  task  required  by  the  operator  of  these 
instruments.  (This  may  also  be  automated  in  future  prototype  systems  if  tunable  laser  sources 
are  required.) 

The  salient  components  of  the  ellipsometer  system  are  now  discussed. 
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Figures  4a-b.  The  optical  arrangement  of  ellipsometer  systems  for  laboratory  study  of  (a) 
dry/wetted  surfaces  of  a  granular  and  porous  texture,  like  terrestrial  surfaces,  undisturbed  in  a 
natural  flat  position  and  (b)  dry/wetted  surfaces  of  a  non-porous  rigid  texture.  The  com¬ 
ponents  of  the  ellipsometer  instrument  include:  Probes  1-4,  four  mid  infrared  lasers  with  dis¬ 
tinct  CO2  gain  media  (three  are  isotopic);  S1-S4,  shutters  intercepting  the  four  incident  beams; 
TS  translation  stage  to  direct  the  appropriate  beam  to  the  scattering  sample;  SM,  stepper 
motors  providing  accurate  computer-controlled  stage  rotations  and  translations;  SA,  spectrum 
analyser  for  determining  beam  wavelength;  DCSM,  dc  servo  motor  for  power  regulation  of 
the  incident  beams;  POL,  linear  polarizers;  QWP,  quarter-wave  plate  for  production  of 
circularly-polarized  radiation;  PEM,  photoelastic  modulators;  M1-M4,  mirrors  for  reflecting 
incident  radiation  45°;  G,  goniometer  beam  transceiver  arm;  SS,  rotary  sample  stage;  L,  focus¬ 
ing  lens  to  the  MCT  detector  chip;  PED,  pyroelectric  detector  for  monitoring  the  incident 
beams;  8,  a  small  deviation  from  the  backscattering  angle;  and  MCT,  mercury-cadmium- 
telluride  detector  of  scattered  radiations. 
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Figure  4c.  Field  evaluation  of  contaminated  surfaces  with  a  prototype  ellipsometer  sensor. 
Additional  components  are;  VBS,  variable  beam  splitters  (R=0.1  or  .95)  and  AM  laser  ampli¬ 
tude  modulators  for  rapid  switching  of  the  four  beams;  and  Cassegrain  telescope  including 
mirrors  Ml,  M2,  and  M3. 
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4.1.1  Probe  COj  Lasers,  Incident  Beam  Selection,  Wavelength  Monitor, 
and  Power  Regulation. 

Four  sealed  COj  continuous-wave  (cw)  lasers  make  up  the  transmitter  section  of  the 
ellipsometers.  Each  laser  is  grating  wavelength  tunable,  and  contains  piezoelectric  drcuitiy 
and  feedback  for  mode-locking  and  beam  amplitude  and  frequency  stabilities.  The  gain 
media  of  the  four  lasers  are  inert  gases  mixed  with,  respectively,  nonisotopic  C^O^*  iso- 
r  topic  C^Oi*,  and  gases.  Advantages  of  this  four-laser  configuration  include: 

(a)  a  wider  wavelength  range  to  probe  the  sample;  (b)  a  greater  selection  of  discrete 
wavelengths  to  probe  the  surface,  therefore,  more  continuous  spectral  coverage  in  the  mid  IR 
region;  and  (c)  rapid  4-wavelength  matrix  measurements  without  a  need  for  retuning  and  res- 
^  tabilization.  Both  (a)  and  (b),  above,  follow  because  vibrational-rotational  excited  states  of  the 

more  massive  triatomic  COj  isotopes  have  shifted  P-  and  R-branch  transitions  beyond 
broadening  of  the  C“0^‘  laser  lines. 

For  the  reader  interested  in  CO2  spectroscopy,  we  refer  to  Herzberg's^  standard  text. 
For  a  description  of  the  principal  mechanisms  and  energy  level  assignments  in  CO2  lasers  we 
reference  T3rte'8^  book.  Listed  in  Appendix  I  are  the  allowed  infrared  emissions  from  all  four 
laser  systems  in  these  ellipsometer  instruments. 

Switching  between  the  transmitter's  four  output  beams  (of  unlike  wavelength)  is  com¬ 
puter  controlled  by  shutter  pulsing  (S1-S4),  and  translation  of  various  90*^  mirror  reflectors. 
The  four  shutters  of  Figures  4a-b^,  one  intercepting  each  laser  beam,  are  open/closed  in 
sequence  with  and  synchronized  to  the  position  of  three  mirrors  mounted  on  a  bi-directional 
translational  stage.  Either  laser  beam  1,  2,  3,  or  4  traverse  the  ellipsometer's  optical  axis  (to 
the  scattering  sample)  by  the  appropriate  mirror  position  and  shutter  opening.  Figure  4a  sug¬ 
gests  that  just  before  shutter  S4  is  switched  open  (Sl-3  are  closed),  translation  stage  TS  posi¬ 
tions  to  the  left  where  the  beam  from  laser  4  is  centered  on  the  outside  stage  mirror,  reflected 
90°  twice,  and  sent  to  the  sample.  After  completion  of  measurement  of  all  16  Mueller  matrix 
elements  at  this  wavelength,  ^  will  close,  IS  will  index  to  the  right,  S3  will  open,  and  the 
next  Mueller  element  set  is  measured  at  this  new  wavelength.  (It  takes  about  30-40  min  'tes 
for  measuring  four  spectral  sets  of  16  matrix  elements.  Thus,  when  switching  from  probe 
laser  4  to  probe  laser  3,  one  has  enough  time  to  retune  and  stabilize  laser  4  to  a  different 
wavelength.  This  allows  one  to  make  multiple  laser  lines  measurements  without  halting 
experimental  operations.)  Future  plans  call  for  incorporating  a  rapid  beam  switching  system 
for  producing  near  msec  trains  of  ^  or  4-wavelength  pulses  in  a  next  generation  high-powered 
frequency  agile  ellipsometer  conhguration  (Section  6.2).  This  future  field  ellipsometer  sensor 
will  contain  electro-optic  variable  beam  splitter  devices,  its  lasers  an  order  of  magnitude  more 
powerful,  and  its  optic  collection  aperture  considerably  larger  (Figure  4c)  via  a  Cassegrain  (or 
similar  construction)  telescope. 

Optical  spectrum  analysers  are  used  to  visually  display  the  wavelengths  of  each  beam 
sent  to  and  scattered  by  the  sample.  This  instrument  (SA  in  Figures  4a-b)  consists  mainly  of  a 
grating  (blazed  to  diffract  most  efficiently  within  a  certain  band  of  laser  transitions)  that  dif¬ 
fracts  a  small  power  percentage  of  the  incident  beam  to  an  order  whose  intensity  is  displayed 
on  a  thermally  sensitive  florescent  (via  ultraviolet  illumination)  screen,  darkening  in  a  region 
*  aligned  to  the  angle  of  diffraction.  Above  the  florescent  screen,  etched  markings  delineate 

each  CO2  beam  diffractive  order  to  its  P-  or  R-branch  transition  assignment  and  band.  Two 
spectrum  analysers  were  used  here  to  cover  the  extended  wavelength  range  by  the  isotopic 
laser  emissions. 


-17- 


In  latter  sections,  we  discuss  the  electronic  circuit  design  that  regulates  power  between 
switching  beams  incident  to  the  scattering  sample.  For  now,  however,  notice  Ae  linear  polar¬ 
izer  mounted  to  the  dc  servo-motor  (DCSM)  driven  rotary  stage  in  Figures  4a-b.  Its  function  is 
to  regulate  power  of  each  incident  beam  to  a  fixed  dc  detector  reference  voltage,  so  that 
operation  in  the  linear  region  of  the  MCT  detector  is  maintained  (guard  against  saturation)  for 
all  alternating  beams  incident  to  the  scattering  surface.  A  feedbadc  loop  between  pyroelectric 
detector  FED  and  the  DCSM  accomplishes  this  regulation  function. 


4.1.2  Photoelastic  Polarization  Modulation. 

Anti-reflection  coated  Zinc  Selenide  (ZnSe)  octagonal  windows  are  the  active 
birefringent  optical  elements  that  generate  polarization  modulation  in  incident  laser  beams 
and  their  collected  scattered  radiances.  These  optics  are  the  heart  of  the  ellipsometer:  they 
generate  the  primary  crystal  oscillator  frequencies  and  all  combination  overtones  in  the  spec¬ 
trum  of  the  intensity  waveform  measured  by  the  ellipsometer's  MCT  photoconductive  detec¬ 
tor.  We  refer  to  this  complex  waveform  as  the  scattergram.  It  encodes  the  scatterer's  Mueller 
matrix  elements.  An  oscillating  birefringence  along  Ae  crystal's  extraordinary  (fast)  optical 
axis  is  produced  when  resonant  periodic  compressions/relaxations  are  applied  via  a  piezoelec¬ 
tric  quartz  transducer  bonded  onto  its  opposite  ends.  The  greater  the  applied  strain  along  this 
crys^line  plane  (within  elastic  limits),  the  greater  the  phase  delay  in  the  beams'  EM  wave 
component  traversing  this  fast  axis,  relative  to  the  or^ogonal  ordinary  (slow)  field  com¬ 
ponent:  along  the  axis  where  no  phase  delay  is  experienced  by  the  wave  during  compression 
and  relaxation  periods.  The  net  effect:  a  coherent  plane-polarized  laser  beam  incident  45°  to 
the  active  ZnSe's  optical  axis  (equal  fast-  and  slow-axis  EM  wave  components)  becomes  polar¬ 
ization  modulated  (continuous  ^ange  in  Stokes  vector  with  period  v’,  v  the  transducer  fre¬ 
quency)  as  components  recombine  on  exiting  the  crystal. 

In  Figures  4a-c,  stacked  Ge-plate  linear  polarizers  are  positioned  before  and  after  the 
transmitter  and  receiver  PEM's,  respectively.  They  define  incident  and  final  Stokes  vectors. 
Before  the  transmitter  PEM,  the  polarizer  has  its  transmission  axis  oriented  45°  (to  fast  or 
slow  ZnSe  axes)  so  that  beam  E-field  wave  components  traversing  vertical  (fast,  extraordi¬ 
nary)  and  horizontal  (slow,  ordinary)  to  the  PEM  optical  axis  equate.  Birefringence,  by  irature 
of  ZnSe's  lattice  structure,  imparts  a  relative  delay  in  phase  of  the  wave  component  along  the 
crystal's  optical  extraordinary  axis.  The  piezo-induced  pressure  along  the  Zn^'s  cleaved  ends 
imparts  a  changing  refractive  index  along  this  fast  axis  —  applied  strain  is  proportion  to  the 
change  of  index  along  the  crystal's  extraordinary  axis  and  the  relative  phase  difference 
between  components.  Vector  addition  of  variably-delayed  (fast  axis)  and  unaffected  (slow 
axis)  E-field  components  yields  polarization-modulated  at  the  transducer  frequency  in  the 
beam  exiting  the  PEM.  The  incident  beam  modulation  from  linear  to  elliptical  left-  then  ri^t- 
handedness  and  back  to  linear  has  a  period  of  -  v;;^  «  29.4^.  sec .  In  collected  scattered 
radiance,  the  modulation  is  31.4  \i.  sec.  The  variable  crystal  strain  is  driven  electronically  in 
the  PEM's  modulator  control  unit  connected  to  an  oscillator  circuit  located  near  the  modulator 
head  connected  to  the  transducer's  bonded  quartz  plates. 

The  quarter-wave  retardation  limit  in  the  ZnSe  modulators  extends  to  19  fi.m,  and  its 
clear  aperture  diameter  is  55  mm  (wavelength  transmission  range  is  0.5-19  fim).  Cmnpression 
amplitudes  in  the  crystal  by  the  transducer  are  monitored  by  computer  so  that  when  switch¬ 
ing  between  beams  of  different  wavelength  a  peak  retardation  of  137.74  degrees  (2.404  rad)  is 
always  maintained  (Sq  in  Table  2)  by  the  PEM  control  unit  and  oscillator  circuit.  We  later 
explain  in  Section  4.3  the  importance  of  maintaining  &o  *  2.404  rad  between  laser  beams  of 
uidike  wavelengths. 
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Section  4.4  also  shows  how  to  interpret  and  decode  the  MCT  detected  scattergram,  i.e., 
a  one-to-one  mapping  assignments  between  the  primary  and  overtone  intensities  in  the 
Fourier  trarrsformed  scattergrams  and  the  elements  of  the  scattering  Mueller  matrix  elements. 

The  ellipsometer's  transmitter  POL-PEM  optic  unit  (Figures  4a-c)  p>olarization-modulates 
the  incident  beam  Stokes  vector  at  linear  driving  frequency  =  33.980  KHz,  while  the 
instrument's  receiver  PEM-POL  unit  operates  on  collected  scattered  radiance  with  a  modula¬ 
tion  frequency  of  V2  *  31.8%  KHz.  Together,  transmitter  and  receiver  PEM's  produce  the  pri¬ 
mary  and  harmoruc  combirration  overtones  intensities  harmoiucs)  in  the  Fourier- 

transformed  scattergrams  (the  MCT  detector  voltage  waveform  If).  Modulator  frequencies  are 
intentionally  offset  by  2.064  KHz  to  insure  good  separation  between  primary  and  overtone 
frequency  components  in  the  scattergram's  Fourier  power  spectrum.  The  frequencies: 
^1,2' 2vi  2,  v,+V2,  2(vi-V2),  2v,±V2,  and  v,+2v2,  and  the  dc  component  map  onto  9  of  16 
Mueller  elements  simultaneously  with  no  intermixing  (see  Sections  4.2  and  4.3). 


4.1.3.  The  Goniometer  Beam  Transceiver  Arm  For  In  Situ  Analyses  of  Porous 
Wetted  Surfaces. 

As  mentioned  earlier,  additional  mirror  optics  were  included  in  one  laboratory  ellipsom- 
eter  design  so  that  measurements  on  porous  and  granular  surfaces  can  be  performed  without 
mechanically  handling  the  scatterer.  The  goniometer  device  was  fabricated  by  Mark  Schlein 
of  CRDEC  and  its  intended  use  was  to  replicate  field  Mueller  matrix  measurements  in  a 
laboratory  environment. 

Dry  and  wetted  soil  and  other  terrestrials  are  analyzed  in  their  normal  horizontal  posi¬ 
tion  by  use  of  this  'scatming  optical  projection  arm/  as  the  ejected  contaminant  naturally  dif¬ 
fuses  into  and  spreads  across  the  strata.  The  scattering  in  situ  measurements  is  necessary  for 
determining  a  field  feasibility  of  this  technology;  the  Mueller  elements  data  base  by  this  ellip- 
someter  instrument  must  bring  out  properties  characteristic  of  the  analyte  consistently,  and 
delineate  it  from  scattering  by  background  particles.  A  typical  field  sceirario  is  terrain  con¬ 
taminated  via  an  exploded  agent  round.  A  'trained'  ellipsometer  sensor  would  probe  the 
suspected  contaminated  terrain  at  selective  wavelengths  and  angles  to  reveal  the  targeted 
contaminant's  molecular  vibrational  prof>erties  (absorption,  VCD,  depolarization,  etc.).  An 
additiorral  algorithm  in  that  sensor  can  be  further  trained  to  analyze  the  contaminants  fate, 
such  as  liquid  analyte  diffusion,  its  evaporation  and  reactivity  with  the  substrate,  a  changing 
morphology  in  crystalline  biological  compounds,  and  so  on.  The  information  basis  to  make 
such  aruJyzes  is,  again,  the  arralyte-susceptible  field  of  Mueller  elements  -  implying  a  proper 
selection  of  the  seirsor's  incident  beam  angles  and  beam  wavelengths.  A  set  of  systematic 
experiments  may  identify  patterns  in  the  differential  Mueller  elements  that  maximize  informa¬ 
tion  on  the  arralyte  and  ^scem  whether  the  envirorunent  effects  its  fate. 

Since  the  ellipsometer  is  a  backscattering  instrument,  the  goruometer  acts  as  a  tran¬ 
sceiver  to  deliver  tire  beam  to  the  surface,  and  collect  backscattered  radiation  through  some 
small  solid  angle  limited  by  the  size  of  the  smallest  mirror  mounted  on  its  arm  (its  limiting 
aperture),  or  some  other  limiting  aperture  in  the  receiver  design.  In  these  ellipsometers,  the 
clear  aperture  of  the  polarizer  mounted  to  the  receiver  PEM  is  the  limiting  aperture.  Consist¬ 
ing  of  an  anodized  L-shaped  aluminum  arm  with  three  IR  mirrors  mounted  at  45°  in  three 
comers  ()nelding  three  90°  reflections),  the  goniometer  arm  is  rotated  across  the  upper  hemi¬ 
sphere  of  the  sample  via  a  stepper  motor  rotary  stage,  computer  driven  and  ca]>able  of  frac¬ 
tional  angle  resolution.  Details  of  data  acquisition  relative  to  arm  movement  are  provided  in 
Section  4.7.4. 
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Pyroelectric  (Incident  Beam)  and  Photoconductive  (Scatteigram)  Detectors. 

Each  laser  emission  line  operates  at  a  separate  gain,  yielding  output  beam  powers  from 
the  ellipsometer's  laser  sources  ranging  from  2  Watts  or  slightly  less  at  the  weakest  P-  or  R- 
branch  wing  transitions,  to  a  maximum  of  15  Watts  at  the  'hot'  mid-branch  transition.  Gain  in 
die  branch  transitions  are  specified  according  to  the  grating  design  {blazed  to  yield  high  effi¬ 
ciency  for  certain  diffractive  orders)  in  the  laser  cavity.  (The  grating  is  the  back  resonator  optic 
in  the  laser  head.) 

Regulation  of  intensity  in  beams  incident  to  the  scattering  sample  guards  against  MCT 
detector  saturation.  The  incident  beam  from  each  laser,  vertical  in  polarization,  is  regulated  * 

in  power  by  a  rotating  linear  polarizing  optic  in  its  path,  whose  transmission  angle  is  con¬ 
trolled  by  closed-loop  feedback.  The  electronic  feedback  in  this  loop  is  governed  from  a  circuit 
that  draws  its  input  from  the  (amplified)  output  of  a  pyroelectric  detector  (FED).  That  detec¬ 
tor  monitors  a  split  incident-beam  percentage  of  power  (less  than  1%)  transmitted  dirough  the  , 

regulation  polarizer  (Figure  4a-b).  The  current  generated  by  the  PED  detector  is  converted  into 
a  voltage,  amplified,  then  compared  to  a  fixed  reference  voltage  that  is  set  to  correspond  to 
the  maximum  piower  of  the  weakest  laser  transition  selected  in  the  experimental  trial.  If  vol¬ 
tages  of  reference  and  PED  output  are  unequal,  then  the  comparator  circuit  balances  it  by 
feedback  to  the  dc  servo  motor  that  constantly  adjusts  the  rotary  stage  on  which  the  beam 
power  regulation  polarizer  optic  is  mounted.  Since  polarization  of  the  incident  beam  entering 
this  polarizer  is  vertical,  beam  power  exiting  it  (the  polarizer  is  made  of  Ge  stacked-plates 
oriented  at  the  Brewster  angle)  is  governed  by  Malus'  law:  I,  =  /,  cos^6;  where  Ij  is  incident 
beam  intensity,  I,  is  the  exiting  beam  intensity,  and  6(t )  is  the  angle  the  polarizer's  transmis¬ 
sion  axis  makes  with  the  vertical  plane.  (Angle  6(t )  is  under  the  control  of  the  PED  detector 
output  feedback  circuit  loop.  This  circuit  adjusts  6  between  switched  beams,  and  regulates 
power  for  the  duration  of  beam  exposure.)  Appendix  in  illustrates  the  electronic  circuits 
governing  power  regulation  in  more  detail. 

A  Laser  Precision  Corporation  model  RS-5900  PED  radiometer  is  used  in  the  power  regu¬ 
lation  feedback  circuitry.  It  works  on  the  principle  that  when  a  photon  is  absorbed  on  its 
Lithium  Tantalate  (LiN^3)  photosensitive  surface,  its  temperature  rise  causes  a  spontaneous 
dipole  moment  increase  (the  product  of  induced  charge  and  polarized  separation  distance  in 
the  lattice)  that  is  converted  into  a  voltage.  The  electronics  convert  this  voltage  to  beam  power 
(the  detector  is  equipped  with  a  1.5  Hz  chopper)  density  the  company  claims  is  traceable  to 
NIST  standards.  Sensitivity  in  the  feedback  loop  from  this  detector  output  is  expected  to  regu¬ 
late  incident  beam  power  to  one  percent  or  better  of  the  set  reference  voltage  value. 

Light  scattered  by  the  sample  is  detected  by  a  liquid  nitrogen  cooled  Mercury- 
C^dmium-Telluride  (MCT,  Hgi.^Cd^Te)  photoconductive  chip.  Since  throughput  (a  measure 
of  scattered  laser  power  collected  through  the  instrument's  optical  system  over  some  solid 
angle  projected  by  the  receiver  MCT  chip)  is  small  in  these  ellipsometer  systems,  the  high 
detectivity  of  cryogenic  MCT  detection  te^nology  is  required  for  acquiring  scattergrams  from 
the  irradiation  zone  with  fast  enough  response  time.  (Scattering  from  most  samples  of 
interest  is  near  Lambertian,  i.e.,  isotropic  radiance.  Also,  rough  dielectric  surfaces  are  gen¬ 
erally  good  absorbers  of  the  IR  beam  energy,  typical  of  most  terrains.)  The  responsivity  of 
MCT  detectors  provide  sub  microsecond  time  constants,  good  enough  resolution  for  capturing 
the  scattergram  signal  and  making  the  Mueller  mappings  with  s  10%  error.  The  MCT  detec¬ 
tor  response  time  allows  accurate  digital  recording  of  the  scattergram  with  satisfactory  resolu-  * 

tion  for  phase  extractions.  (The  Fourier  power  spectrum  of  the  scattergram  must  clearly 
demarcates  all  PEM  harmonics  up  to  1(X)  KHz.) 

MCT  photoconductive  detectors  operate  on  a  principle  different  from  FED'S.  Scattered 
photons  from  the  sample  strike  the  MCT  semiconductor  ^ip  generating  free  carrier  electron- 
hole  pairs  producing  dianges  in  surface  electrical  resistance.  Liquid  nitrogen  cooling  of  die 
chip's  surface  is  required  for  reducing  background  noise  and  increasing  detectivity  of  die 
fdioton-induced  electron-hole  pairs.  The  ellipsometer's  scattergram  represents  a  dianging  sur¬ 
face  resistance  of  die  semiconductor  via  intensity  variation  in  the  focused  scattered  beam 
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radiance  illuminating  the  chip.  The  vaiydng  stirface  resistivity  is  converted  into  a  voltage 
change  (the  scattergram)  by  appl)dng  a  bias  current  through  the  MCT  chip.  Consequently,  the 
scattergram  is  preamplified  and  then  sent  to  a  variable  gain  (voltage  controlled)  amplifier,  fil¬ 
tered  and  digitized  (Section  6.1),  or  distributed  to  the  phase  sensitive  detection  analog  elec¬ 
tronics  (Section  4.5). 

MCT  specifications  for  the  ellipsometer  systems  are:  (1)  a  cutoff  wavelength  to  at  least 
die  maximum  wavelength  output  of  the  0**0}*  laser;  (2)  a  time  constant  small  enough  to  cap¬ 
ture,  with  good  resolution,  the  real  time  transient  waveform  containing  primary  and  harmonic 
•  frequencies  to  100  KHz;  and  (3)  a  detectivity  high  enough  so  that,  at  grazing  incident  beam 

an^e,  signal-to-noise  ratio  is  greater  than  one.  These  are  met  or  are  exceeded  by  a  MCT 
detector  we  have  purchased  from  EG&G  Judson.  That  specific  detector  has  the  respective  pro¬ 
perties:  12.4  0.5  (tsec;  and  2.0-5.1  x  10’°  cm  Surface  area  of  the  MCT  chip  is  1 

oun^,  thus  focusing/demagnifying  the  scattered  radiance  with  lens  L  onto  the  detector  drip  is 
'  required  to  increase  intensity  If  to  detectable  levels  in  the  scattergram. 


4.2  Ellipsometer  System  and  Sub-System  Matrices. 

Signal  definition  and  fundamentals  of  data  processing  in  these  ellipsometer  systems  are 
now  discussed.  Recall  from  Sections  2.1  and  2.2  the  principals  of  Stokes  vector  and  Mueller 
matrix:  the  incident  Stokes  vector  (s' )  is  altered  upon  scattering  (s^ )  interactions  according  to 
the  Mueller  matrix  (F)  transformation.  Consider  the  sequence  of  optical  elements  in  the  ellip¬ 
someter  system  of  Figure  4a,  starting  with  the  transmitter  POL-PEM  (the  linear  polarizer 
mated  to  tt\is  PEM  defines  the  initial  Stokes  vector  components  sj;  j*0,l,2,3)  and  ending  with 
the  receiver  PEM-POL  (the  linear  polarizer  mated  to  this  PEM  defines  the  final  Stokes  vector 
components  sf.) 

Each  optical  element  positioned  between  POL's  defining  are  classified  by  their 
separate  Mueller  matrix  operator,  and  thus  the  transformed  Stokes  vector  through  the 
goniometer-type  ellipsometer  system  is  given  by: 


t!  =  Fs' 


(5) 


F  «  P,G,M4RM,M2M3FM3M2M,RG,P, 


(6a) 


where  subscripts  t  and  r  denote  transmitter  and  receiver  paths;  P  and  G  are  matrices  of  polar¬ 
izer  and  PEM  optics,  respectively;  M|,  Mj,  and  M3  are  matrices  of  the  flat  45°  mirrors 
mounted  on  the  goniometer  arm;  F  is  the  matrix  of  the  scatterer,  the  unknown  of  primary 
importance;  and  R  is  a  goniometer  rotation  operator.  The  product  of  F  matrices  do  not  com¬ 
mute,  and  must  appear  in  proper  order  from  transmitter  through  receiver  optics. 

Before  proceeding,  we  should  darify  the  function  of  R.  Rotation  operator  R  changes  the 
reference  measurement  plane  in  which  the  Stokes  vectors  are  defined  (C3,C2  in  Equations  1-3). 
In  Figures  4a<,  the  optic  platfonn  is  the  reference  plane  defining  the  basis  unit  vectors 
Ci  and  C2.  If  the  goniometer  arm  is  positioned  at  an  angle  other  than  ±90°,  the  Stokes  vector 
becomes  referenced  in  its  new  goniometer  reference  plane  defined  by  the  new  basis  unit  vec- 
plane  defined  by  beam  reflections  by  the  three  goniometer  mirrors),  rotated 
from  the  old  reference  plane  by  polar  angle  6.  The  R  operator  third  from  the  end  in  Equation 
6a  transforms  die  Stokes  vector  from  its  old  reference  plane  c,,C2  to  the  new  goniometer 
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reference  plane.  Therefore,  Mi  2,3  and  F  (Table  2)  are  now  referenced  in  this  new  frame.  On 
exiting  the  goniometer  transceiver,  scattered  light  is  op>eTated  on  by  R  again;  forth  matrix  frcnn 
die  left  hand  side  of  Equation  6a,  which  transforms  the  Stokes  vector  back  to  the  dd  Ci,€2 
reference  frame.  Positioning  of  R  operators  in  Equation  6  must  follow  the  precise  entrance 
and  exit  points  of  the  goniometer  transceiver. 

A  new  matrix  product  is  defined  below,  which  we  shall  call  the  ellipsometer's  system 
matrix. 


Y  >  M«RM,M2M,FM3MiMiR 


(6b) 


By  substituting  Equation  6b  into  6a,  the  sample  matrix  can  now  be  rewritten  as: 


F»  P,G,^G,P,. 


(6c) 


4.3  MCT  Detector  Waveform  of  Scattered  Radiation. 

We  proceed  in  deriving  a  functional  form  of  the  MCT  scattergram  generated  by  the  2* 
modulator  ellipsometer  systems  of  Figure  4a-c.  Four  optical  permutations  of  each  POL-PEM 
pair  are  illustrated  in  Figure  5  as  defined  by  Cases  A,  B,  C  and  D. 


Case  A.  Vertical  -45®:+45®  Vertical 

In  the  notation  used  above,  axes  of  polarizer  and  modulator  optics  in  transmitter  and 
receiver  paths  of  the  ellipsometers  are  separated  by  a  colon.  The  left  part.  Vertical  -iS**, 
denotes  the  receiver  part  of  this  instrument's  POL-PEM  unit,  with  ix>larizer  (Vertical)  transmis¬ 
sion  axis  followed  by  its  attached  PEM  retarder  (fast)  axis  (-  45*').  The  second  entries,  -1^° 

Vertical  to  the  right  of  the  colon  in  Case  A,  denotes  tire  transmitter  section  PEM-POL  unit  with 
retarder  axis  (-t-45°)  to  the  left  and  attached  polarizer  axis  (Vertical)  to  the  right.  Angles  are 
measured  relative  to  the  plane  of  the  optics  table  (the  reference  plane),  hence  Vertical  is  0^  or 
perpendicular  to  the  optical  platform,  and  -*-(*)45'^  is  measured  in  the  clockwise  (counter  dock- 
wise)  direction  one-ei^th  revolution  as  viewing  each  PEM  from  the  laser  source.  ^ 

Figure  5  illustrates  four  optic  orientations  in  the  ellipsometer.  First  consider  the  confi¬ 
guration  given  by  Case  A.  Polarizers  mated  to  eadi  mc^ulator  set  the  inddent  and  final 
Stokes  vectors  accordingly; 
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Figure  5.  The  optical  orientations  of  polarizer-modulator  crystal  axis  producing  the  sjrstem 
Mueller  matrix  elements,  as  measured  from  the  ellipsometer's  scattergram  by  the  analog  data 
collection  unit.  Note  that  the  Mueller  element  contributioirs  by  mirror  M  can  be  compensated 
by  rearrangement  and  msertion  of  an  identical  mirror.  (See  Section  4.6.3.) 
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Substitution  of  Equations  7a,  6c,  and  the  appropriate  matrices  of  Table  2  into  Equation  5, 
then  left-multiplication  by  sf  results  in  the  following  expression  for  scattering  intensity  exiting 
die  receiver  polarizer  and  incident  to  the  MCT  detector  chip. 
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The  maximum  retardation  amplitude  along  the  modulator's  fast  axis  is  Sg.  The  driving 
resonance  crystal  frequencies  in  receiver  and  transmitter  PEM's  are,  respectively,  wi  and  o»2. 
The  Sg  and  u  variables  in  arguments  of  the  sine  and  cosine  terms  of  Equation  8b  can  be 
separated  by  substitution  of  the  Bessel  generating  function^*: 


«“-"(•")  -  /o(8o)  +  2^i'‘h{h)coski^t 
*•1 


(9) 


where  are  Bessel  functions  of  k*  order,  and  i  is  the  imaginary  number  V^.  Botfi  PEM 
transducers  are  set  to  yield  8gs2.404  radians  (in  the  arguments  of  the  Bessel  functions).  This 
nulls  the  zero  order  Bessel  function:  /g(2.404)>0.  The  real  and  imaginary  components  of  Equa¬ 
tion  9  can  now  be  expressed  by  the  following  infinite  series  expansions. 
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cos  (hffiOS*ot ) 
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-Jii^oicosTuit  +  /4(So)cos4<i»t  -Ji{bo)cos6*ot  +  •  •  • 


(10a) 


sin  (Sgcostat ) 
2 


Ji(ho)cosu>t  -/3(6o)cos3o>t  +  Js(&o)cos5o)t  -  •  •  • 


(lOb) 


By  substituting  Equations  lOa-b  into  Equation  8b  and  factoring,  the  amplitude  and  fre¬ 
quency  components  can  be  separated  to  yield  the  scattergram  inteiuity  waveform  expansion 

h- 

,  =  +  iiI/|(8o)cos(3o)2t)cos(3<o,f)-/,(So)/3(8o)cos(w2t)cos(3w,)  (11) 

'0 

-/i(8o)/3(So)cos(3w2<)cos(w,0  +  /?{So)cos(a)2t)cos(«.»,()l«l»44 

-  ’‘[/3(8o)/4<So)COS(3<U2t  )cos(4w,t )  -  /i(8o)74(So)COS(U2f  )cos(4u),t ) 
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Equation  11  consists  of  a  dc  component  which  is  always  matrix  element  and  an 
infinite  number  of  overtones  of  the  modulator  driving  frequencies  that  diminish  in  amplitude 
as  the  order  and  product  of  higher-order  Bessel  function  coefficients  increase.  We  truncate  the 
series  of  Equation  11  for  order  k  ^3  (a  good  approximation  of  the  scattergram  given  ttte  S/N  of 
tfiese  instruments)  and  correlate  tf\e  remaining  nine  strongest  Fourier  intensities  one-to-one  to 
their  respective  Mueller  system  elements  (in  the  coefficients  of  Equation  11).  The 
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transducer  primary  frequencies  for  each  PEM  were  chosen  as  Wi/2-n  =  31.896  KHz  in  the 
transmitter  crystal,  and  002/2-17  =  33.960  KHz  in  the  receiver  crystal.  Furthermore,  with  these 
choices  of  resonant  PEM  driving  frequencies,  spectral  intensities  in  are  separated  by  a 
minimum  of  2.064  KHz.  Thus,  standard  lock-in  amplihers  can  quickly  detect  and  phase- 
match  each  scattergram  frequency  component  to  its  reference  primary  or  strongest  overtone 
modulator  frequency  without  interference  from  a  neighboring  harmonic. 

The  analog  data  acquisition  system  separately  conducts  the  dc  scattergram  component 
to  a  separate  analog-to-digital  (A/D)  converter  channel  in  one  unit  module  (Appendix 
m).  For  the  ac  signals  (elements  other  than  «|»ii),  eight  phase-seitsitive  detector  circuit  cards 
are  set  to  the  reference  modulator  frequencies  of  Equation  8b.  These  lock-in  amplifiers  elec¬ 
tronically  multiply  their  respective  reference  modulator  frequency  and  real-time  scattergram 
waveforms.  The  result  is  an  analog  output  that  represents  the  phase  difference  between  scat¬ 
tergram  filtered  to  the  frequency  of  a  reference  modulator  waveform.  The  8  ac  Mueller  data 
channels  are  received  simultaneously  in  another  module  of  the  acquisition  unit,  and  all  9 
channels  are  conducted  to  an  A/D  converter  that  strobes  through  each  chaimel,  recording  its 
output  in  an  appropriate  file  of  CPU  memory. 

If 

In  terms  of  Equation  11,  the  most  intense  primary  and  overtone  frequency  com- 
ponents  of  the  scattergram  are: 


-j-  ^  ■  +  0.27(hJ(44Cos(a>2±a),)t  -  0.2244(42cos(o)2l:2wi)t  -  0.52(Xli4jC£)s(u)2t)  (12) 

-  0.224t|i24cos(2(i)2-(^i)f  -t  0.186»l>22COs(2u)2-2iD,)t  +  0.4314»2i«>s(2‘*>2t) 

•t  0.431<l»i2cos(2o)it)  -  0.52(hl/j4cos(w,t)  + 


where  cos{A±B)  ^  cos{A^B)  ^  cos{A-B).  The  sign  before  each  coefficient  indicates  a  relative 
-ir-phase  difference  between  elements,  i.e.,  in  Equation  12  ({<24  and  4'42  180®  out  of  phase 

with  each  other. 

Case  B.  Vertical  -45°:Vertical  -45° 

After  the  six  Mueller  elements  of  Case  A  are  measured  as  functions  of  backscattering 
angle  and  wavelength,  the  ellipsometer  rotates  the  receiver  PEM-POL  pair  -45°  (as  viewed 
from  the  laser  somce)  producing  the  new  orientation  called  Case  B,  Figure  5.  The  new 
incident  and  scattering  Stokes  vectors  are: 


1  1 

8-  -lo  'I  ,  Bf  ^  If  .  (13) 

0  0 

V  /  V  / 


•  Equation  11  is  truncated  for  Bessel  terms  greater  than  3"*  order.  Recall  that  Bg  “  2-404  rad.  The  law  of 
cosines  was  used  in  deriving  Equation  12,  as  were  these  tabulated  values:  /i(8o)  •  0.520,  /2(8o)  •  0.431. 
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Substituting  matrices  from  Tables  1  and  2  produces  the  following  analogous  expression 
to  Equation  8. 
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Notice  that  three  new  elements  appear  in  the  above  expression;  i^si,  4'32>  11134. 

Case  C.  +45°  Vertical; Vertical  -45° 

By  this  time,  12  of  16  Mueller  elements  have  been  measured.  The  ellipsometer  will  now 
send  an  index  command  to  the  motion  controller,  causing  the  transmitter  POL>PEM  to  rotate 
precisely  +45°  for  producing  Case  C,  Figure  5.  Incident  and  scattered  Stokes  vectors  become; 
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(15) 


and  detector  intensity  is  represented  by  the  product  of  the  following  six  matrices.  (See  Tables 
•  1  and  2.) 
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Again,  three  of  the  nine  Mueller  matrix  elements  in  the  above  expression  are  new  map¬ 
pings  according  to  new  polarizer  and  modulator  optic  orientations.  They  are; 

’l*13»  'I'SS/  *(*43- 

Case  D.  +45°  Vertical:  +45°  Vertical 

By  this  time,  15  of  16  Mueller  elements  over  angle  and  wavelength  to  the  scattering 
sample  have  been  measured.  The  software  module  that  controls  the  system's  optical  permuta¬ 
tion  of  axes  will  now  cause  a  +45°  rotation  of  the  receiver  PEM-POL,  producing  the  final  Case 
D  in  Figure  5.  Incident  and  scattered  Stokes  vectors  are  now; 
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and  the  detector  intensity  is  represented  by  the  product  of  these  seven  matrices.  (Consult 
Tables  1  and  2.) 
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»  •  •  •  -  0.270«|i44cos(<i»2-<*ii)t  +  0.2244<43a)s(‘»>2-2o),)f  +  0.520«l«4ia)s(<o20  (18b) 
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<  The  new  and  final  16**'  element  in  the  above  equation  that  completes  the  Mueller  matrix 

field  of  mappings  is  «|»23.  It  takes  ~  4  s  for  the  transceiver  POL-PEM  optics  to  cycle  through 
Cases  A-D  per  beam  wavelength  per  backscattering  angle. 

In  the  ellipsometer  configuration  of  Figure  4b,  analysis  of  the  sample  scattergram  is  con* 
^  siderably  less  complex  than  from  that  of  configurations  Figure  4a  or  Figure  4c.  All  M,  and  R 

operators  are  now  the  unit  matrix.  The  preceding  equations  still  apply,  except  now  the  system 
matrix  is  the  sample  matrix,  i.e.,  4»i/  ~  fij>  s^^ce  oidy  the  scattering  sample  lies  between 
linear  polarizers  defining  incident  and  final  Stokes  vectors.  Sample  matrix  elements  are 
thereby  directly  obtained  at  Fourier  intensities  of  the  MCT  detector  1^  waveform. 


4.4  Lock-in  Detection  Matrix  of  Primary  and  Overtone  PEM  Modulator  Frequencies. 

The  discussion  in  the  previous  section  on  detector  waveform  production  is  summarized 
here  by  inclusion  of  the  important  frequency  matrix,  assigning  primary  and  overtones  appear¬ 
ing  in  the  MCT  intensities  of  Equations  12,  14b,  16b,  and  18b  to  Mueller  system  matrix  ele¬ 
ments  according  to  the  four  PEM-POL  optic  configurations  dted  as  Case  A  through  D. 

Table  3  contains  important  iidoimation  on  the  ellipsometer' s  sequence  of  electronic  sig¬ 
nal  acquisitions.  Computer  automation  at  startup  initializes  the  system  to  Case  A  in  Figure  5. 
All  eigfit  lock-in  amplification  channels  in  the  analog  detector  unit  (see  Appendix  m)  plus  two 
dc  channels  (before  and  after  automatic  gain  operation)  are  producing  outputs  that  are  digi¬ 
tized  and  stored  in  CPU  memory.  These  data  files  are  preprocessed  and  organized  into 
Mueller  element  files  with  header  blocks  containing  information  on  backscattering  angles, 
beam  wavelengths,  type  scatterer,  sample  surface  topography  (mean  squared  heights  and 
slopes),  type  analyte,  contaminant  mass  density,  irradiation  time,  and  other  parameters  that 
depend  on  experiment  measurement  options. 

Consider  again  the  sequence  of  steps  for  data  collection  and  storage.  The  ellipsometer 
operation  starts  with  measurements  of  the  initial  nine  Mueller  element  channels  of  Case  A.  A 
change  of  optical  orientation  produces  Case  B,  and  the  system  proceeds  with  measurements 
of  the  next  3  nondegenerate  matrix  element  channels.  The  A/D  converter  board  recognizes 
and  activates  these  three  channels  corresponding  to  the  new  Mueller  elements,  and  software 
appropriately  routes  the  data  to  three  new  files.  Twelve  of  sixteen  elements  have  now  been 
acquired  and  stored  in  memory.  The  six  channels  that  are  degenerate  in  Case  B,  i.e.,  the 
duplicated  Mueller  elements  collected  from  Case  A,  may  be  deactivated  for  efficient  use  of 
CPU  memory.  (All  channels  are  checked  in  calibration  experiments  to  assure  repeatability 
between  degenerate  elements  from  one  optical  orientation  to  the  next.)  The  computer  next 
sends  an  ANSI  code  to  the  controller  and  Case  C  is  produced.  Again,  three  of  nine  channels 
contain  nondegenerate  elements  and  are  active,  bringing  the  number  of  acquired  and  stored 
matrix  elements  to  fifteen.  The  sixteenth  element  is  acquired  after  the  computer  produces  the 
final  configuration  shown  as  Case  D  in  Figure  5,  viz,  one  nondegenerate  element,  one 
required  active  channel  for  collection  and  storage  of  data.  Therefore,  for  a  complete  Mueller 
matrix  measurement  per  independent  experimental  variable,  the  Amplitude  and  Phase  Sensi¬ 
tive  Detector  (APSD)  activates  its  data  chaiuiels  in  sequence  9:3:3:1  corresponding  to  optic 
permutations  labeled  Cases  A-D. 


-29- 


Ttbk  3.  Lock-in  frequencies  for  phase  sensitive  detection,  and  corresponding  optical  alignments 
for  measurement  of  the  full  Mueller  matrix.  Grouped  in  part  (a)  are  the  primary  and  major  com¬ 
bination  frequency  components  of  transmitter  ((i>|)  and  receiver  ((i>2}  photoelastic  modulator's 
that  map  onto  each  Mueller  matrix  element  from  the  scattergram's  Fourier  intensities.  A 
parenthetical  number  next  to  each  frequency  implies  that  component's  relative  strength  com¬ 
pared  to  component  dc*l.  The  entries  for  each  matrix  element  are  a  result  of  the  orientations  of 
linear  polarizer  and  modulator  optical  axes  as  grouped  in  part  (b).  (See  Figure  5.) 
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4.5  Analog  Amplitude  and  Phase  Sensitive  Detection  Electronics. 

This  section  presents  the  assembly  of  electronic  circuits  and  modules  of  the  eIIip>someter 
analog  data  acquisition  system.  We  denote  the  analog  drcuiby  presented  here  as  'first  genera¬ 
tion.'  Moreover,  we  now  are  pursuing  development  of  'second  generation'  real  time  digital 
data  acquisition  systems  (Section  6.1)  that  will  be  compared  directly,  regarding  performance 
and  economy,  to  this  9-channel  analog  unit.  Furthermore,  we  have  already  begun  develop¬ 
ment  of  a  neural  network  architecture  that  will  eventually  interface  to  the  analog  port  output 
module,  or  the  output  connector  of  the  digital  acquisition  unit  (see  Section  6.3).  This  is  desig¬ 
nated  a  'third  generation'  phase  sensitive  detection. 

The  modular  analog  signal  acquisition  uiut  is  now,  however,  in  an  advanced  engineer¬ 
ing  stage  and  the  first  tested  in  all  ellipsometer  configurations.  Figure  6  is  a  basic  overlay  of 
how  mformation  in  the  scattergram  is  mapped  into  the  Mueller  elements,  showing  major  fre¬ 
quency  synthesizer,  APSD  channels,  and  software  matrix  normalization  interfaces.  In  Appen- 
^  in,  a  more  detailed  electronic  breakdown  of  the  complete  APSD  unit  is  provided. 


4.5.1  MueUer  Matrix  Acquisition:  Theory  of  Operation. 

The  hardware  of  the  analog  detection  system  used  to  collect  and  separate  various  ampli¬ 
tude  and  phase  informations  from  the  detector  waveform  (Section  4.3)  will  now  be  discuss^. 
In  constructing  a  finite  set  of  Mueller  matrices,  this  detector  processes  the  input  waveform 
'  widi  eight  discrete  modules.  The  basic  function  of  these  modules  as  a  unit  is  to  collect  and 

separate  die  pre-amplified  MCT  scattergram  into  nine  discrete  frequencies  (Table  3),  and  from 
these  generate  a  scalar  (number)  which  corresponds  to  the  cosine  of  the  difference  in  phase 
between  diese  frequencies  and  the  phase  of  nine  respective  reference  frequencies  derived 
*  from  the  two  photoelasdc  modulation  oscillator  drcuits.  These  resulting  scalars  are  accessed 

via  a  RS-232C  port  that  integrates  signal  processor  and  host  computer  mainframe. 
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Figure  6.  Flow  chart  of  the  analog  detection  electronics,  litf  =  w,  and  2iTg  =  coj  are  linear  fre¬ 
quencies  of  transmitter  and  receiver  photoelastic  modulators,  and  If  is  the  scattergram  inten¬ 
sity  (the  ellipsometer's  output  waveform  containing  the  two  modulators  primary  frequencies 
and  all  combination  frequencies). 
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4.5.2  Reference  Frequencies  Generator,  Mueller  Elements  Lock-in  Amplifications. 

The  entire  signal  processing  element  of  the  analog  Mueller  matrix  acquisition  unit  essen¬ 
tially  contains  a  signal  reference  generator  and  a  signal  comparator.  The  signal  reference  gen¬ 
erator  consists  of  Modules  I,  H,  and  in  (see  Figure  Ain.7a).  Module  1  accepts  the  transistor- 
transistor  logic  (TTL)  frequencies  <i>i,  2(»|  and  <a>2,  2(i>2  direct  from  the  PEM  oscillators,  and 
synthesizes  four  sinusoid  waveforms  (3.0-4.0  V  J  each  at  a  frequency  and  phase  relative  to 
<  die  trigger  pulses  from  the  corresponding  mooiuator.  These  four  sinusoidal  waveforms  are 

then  multiplied  by  Module  II  to  produce  the  overtones:  u)i+u2  (65.86  KHz),  <oi+2«i)2  (97.75 
KHz),  2<i>i-i-(i>2  (99.82  KHz),  and  2<d,-2b>2  (4.13  KHz).  The  multiplier  board  of  Module  n 
includes  buffering  and  harmonic  filter  circuits  for  the  four  PEM  sinusoid  waveform  inputs 
from  Module  1.  The  output  of  Module  n  dius  consists  of  eight  sinusoid  waveforms,  2  Vp^, 
including  primary  frequencies  wi  (33.%  KHz),  2<i)j(67.92  KHz),  0)2(31-90  KHz),  2o)2(63.79  KHz) 
and  the  overtones  (Table  3). 

Note,  that  the  four  overtone  product  sinusoids  consist  of  both  sum  and  difference  values 
of  the  multiplied  input  primary  frequencies.  We  have  chosen  the  specific  overtones  indicated 
in  Table  3  because  they  correspond  to  the  eight  most  intense  Fourier  amplitudes  (greatest 
signal-to-noise  ratio  among  Mueller  components)  obtained  from  the  detected  scattergram. 

Module  m  conditions  the  product  waveforms  (from  Module  II)  by  selective  bandpass 
filtering  of  the  desired  overtone  frequencies,  and  provides  an  adjustable  phase  shift  to  all 
eight  (primary  plus  overtones)  reference  waveforms.  These  reference  waveforms  can  be 
obtained  through  BNC  connectors  -  Ja  (2.0-3.0  Vp_p  at  2*50  fl)  for  calibration  purposes. 

Module  rv  (see  Figure  Ain.8)  consists  of  the  phase  sensitive  detector  (PSD)  boards.  The 
eight  reference  frequencies  synthesized  from  Modules  I-III  are  inputs  to  the  individual  PSD 
circuit  cards  tuned  for  that  frequency.  The  PSD  circuits  multiply  (dot  product)  reference  and 
MCT  detector  waveforms.  With  reference  (amplitude  A)  and  MCT  scattergram  (amplitude  B) 
waveforms  connect  to  the  input  channel  of  each  PSD  board,  an  analog  dc  output  voltage  is 
produced  with  magnitude  proportional  to  the  cosine  of  the  phase  angle  between  input 
waveforms  and  amplitude  product:  ABc»s(6,-6>).  All  PSD  outputs  are  buffered  with  gain 
control  potentiometers  (R^^  *  ^4)  located  on  the  unit's  front  panel,  also  for  calibration  pur¬ 
poses.  These  buffered  signals  are  externally  available  through  eight  50D  BNC  terminators  0,  • 
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4.5.3  Digitization  of  the  APSD  Outputs  (Mueller  Matrix  Channels). 

Module  V  (see  Figure  Am.  8)  of  the  analog  phase  sensitive  detector  unit  consists  of  a 
microprocessor  controlled  model  ST701  Analog-to-Digital  converter  (ADQ  manufactured  by 
DATEL,  Incorporated.  With  a  12/20  Intel  compatible  VME  plug-in  board,  tfris  uitit  is  used  as  a 
stand  alone  processing  system  that  is  accessible  through  the  breadboard's  RS232  serial  lird(, 
and  controlled  through  commands  issued  by  the  host  miorovax  computer.  Among  its  other 
tasks,  the  host  computer  strobes  the  ADC  for  acquisition  of  all  nine  analog  APSD  channels  of 
data  s)mchronous  to  experimental  variable(s),  and  options  of  measurements  coded  in  the  sys¬ 
tem  control  software  package  (Appendbc  IV). 


-33- 


4.5.4  Servo  Loops  for  Variable  MCT  Gain  Control  and  Incident  Beam  Power  Regulation. 

Module  VI  of  the  analog  APSD  consists  of  an  automatic-gain-control  (AGC)  amplifier, 
fabricated  for  this  system  by  Analog  Modules,  Inc.,  that  is  connected  directly  to  d\e 
ellipsometer's  MCT  detector  output  port.  The  feedback  function  in  the  AGC  amplifier  con¬ 
trols  current  through  the  detector's  split  dc  load  resistance,  to  maintain  a  constant  pre-set  dc 
amplitude  in  the  MCT  output  for  all  variations  in  the  experimental  parameters,  including  laser 
wavelength  and  backscattering  angle.  As  these  independent  variables  are  controlled  by  the  « 

instrument's  automation  software,  the  AGC  regulates  the  dc  scattergram  component,  thereby 
causes  normalization  of  all  ac  matrix  components.  (Division  of  phase  Mueller  elements  by  the 
dc  element  /n.  All  elements  except  the  dc  dement  are  bounded  between  -t-l  and  -1.) 

There  is  a  provision  in  the  AGC  amplifier  unit  to  measure  the  f  n  element  before  active 
gain  control  with  a  separate  low  pass  filter  and  amplification  circuit.  This  data  file,  transferred 
directly  to  CPU  memory  then  permanently  stored  on  hard  disk,  is  required  information  when 
converting  between  normalized  and  regular  elements  of  the  Mueller  matrix.  The  following 
Figure  7  is  a  schematic  drawing  of  the  basic  ellipsometer  optical  system  and  MCT  detector 
with  AGC  circuit  module.  Figure  Am.  11  (Appendix  m)  is  a  functional  block  diagram  of  an 
AGC  amplifier  circuit  built  for  this  system  by  Analog  Modules,  Inc. 

In  Figure  7,  coimections  A  and  B  are  resonance  frequencies  driving  oscillating 
birefringence  in  both  transmitter  and  receiver  PEM  crystals:  they  are  the  phase  reference 
points  of  the  retardations  along  the  ZnSe  extraordinary  axis.  Connection  D  contains  (normal¬ 
ized)  phase  information  in  the  scattered  beam  radiance  after  AGC  operation  (the  ac  Mueller 
matrix  components  ratioed  by  the  fu  element),  and  C  contains  the  ateolute  magnitude  of  the 
scattergram  signal  before  loop  control  (i.e.,  the  dc  component  without  AGC  operation).  The 
analog  data  acquisition  system  compares  the  phase  of  D  to  the  reference  phases  A  and  B  plus 
its  respective  combirution  frequency  components  (see  Section  4.5.2). 

The  AGC  amplifier  must  not  introduce  any  propagation  delay  or  phase  shift  of  its  own 
as  signal  strength  varies.  A  beam  chopper  operating  at  a  rate  of  ~  100  Hz  is  used  to  produce 
a  dark  time  so  that  the  detector  offset  voltage  can  1^  eliminated  via  a  closed  loop.  The  ampli¬ 
tude  of  the  MCT  signal  will  vary  from  1  m-V  to  1  mV,  due  to  changes  in  beam  wavelength  and 
backscatter  angle  experimental  variables.  The  ac  signals  filtered  by  the  lock-in  circuit  boards 
are  between  frequencies  1  and  100  KHz.  The  Analog  Modules  automatic  gain  control  amplif¬ 
ier  (Figure  Ain.il),  has  the  following  salient  characteristics;  (1)  gain  control  from  60-100  dB, 

1%  or  better  regulation  from  1  KHz  to  200  KHz,  noise  <  25  jjuV,  frequency  bandwidth  1  MHz 
to  <  1  KFIz,  an  input  impedance  of  lOOKfl,  and  a  i  15  VDC  supply  voltage. 

Module  Vn  is  an  indient  beam  power  regulation  circuit.  The  split  inddent  beam 
pyroelectric  detector  output  is  monitored  by  the  power  regulation  circuit,  and  compares  this 
value  to  a  preset  desired  power  reference.  Depending  on  the  comparison  of  these  values,  the 
servo  motor  will  rotate  the  axis  of  a  linear  polarizer  through  which  the  inddent  beam  « 

transmits.  Its  function  is  to  regulate  the  intensity  of  the  beam  inddent  to  the  scattering  sam¬ 
ple  when  switching  between  probe  beams  (course  adjustment)  and  during  irradiation  (fine 
regulation).  The  circuits  of  this  module  are  given  in  Figures  Ain.l2a-b. 
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Figure  7.  The  ellipsometer's  optical  system,  detector,  and  gain-omtrol  modules. 
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4.5.5  Stepper  Motor  Control  of  Optics  Hardware,  Switching  Between  Incident  Beams, 

PEM  Peak  Phase  Retardation  Selection  Per  Beam. 

We  call  Module  Vm  the  Serial  Addressable  Gateway  (SAG)  system  of  the  analog  AFSD 
(Figure  Am.  13a).  This  module  is  a  communications  bus  consisting  of  four  RS-232C  serial  ports 
and  sixteen  discrete  I/O  points.  The  SAG  unit  provides  serial  communications  to  each  of  the 
stepper  controllers  that  automate  the  experimental  operation,  and  to  the  A/D  board  that  digi¬ 
tizes  all  data  output  channels.  It  also  provides  for  ei^t  control  points  used  for  shutter  control 
for  switching  between  beams  (Figure  Am.lSa),  and  for  maintaining  constant  2.404  rad  peak 
modulator  retardation  in  transmitter  and  receiver  PEM's  (Figure  Am.  14)  between  switched 
beams  of  uidike  energies.  This  module  allows  bi-directional  communications  between  the  host 
computer  and  associated  devices  it  wishes  to  communicate  with. 


4.6  Alignment  and  Calibration. 

Topics  discussed  in  this  section  are  optic  and  electronic  alignment  methods  for  correct 
matrix  me  production  and  collecbon,  and  calibration  procedures  that  transform  measured 
matrix  elements  collected  by  the  ellipsometer  system  (this  applies  only  to  the  goniometer- 
based  and  field  ellipsometers  of  Figures  4a  and  4c)  to  the  true  surface-analyte  sample  Mueller 
elements. 


4.6.1  Alignment  of  Coupled  Polarization  Modulator  and  Linear  Polarizer  Axes. 

Angle  between  the  PEM's  21nSe  principal  (extraordinary)  axis  and  mated  linear  polarizer 
transmission  axis  must  be  precisely  45°  to  insure  pure  polarization-modulation  in  irradiation 
beam  and  scattered  radiance,  thus  maximum  signal-to-noise  ratios  in  the  Fourier  intensities 
(primary  and  overtone  modulator  frequencies)  of  the  scattergram  If.  The  calibration  experi¬ 
ment  for  accomplishing  precision  alignment  in  PEM-polarizer  axes  is  shown  in  Figure  8. 

The  quarter-wave  plate  optic  QWP,  Figure  8,  converts  the  incident  linearly  polarized 
beam  to  circular  polarization.  Consequently,  rotation  of  POLl  does  not  change  team  inten¬ 
sity  transmitted  ^ough  the  PEM-POL  unit  when  rotated  to  produce  cases  A-D.  Each  PEM- 
POL  unit  consists  of  an  IR  linear  polarizer  (stacked  Ge  plates  oriented  at  the  Brewster  angle) 
attached  to  a  micrometer-adjusted  rotary  stage  RSM  attached  to  a  photoelastic  modulator  PEM 
attached  to  a  stepper-motor  controlled  rotary  stage  RSS.  Linear  polarizer  POL2  produces,  in 
conjunction  with  the  active  POL-PEM  unit,  intensity  modulation  in  the  team  striking  the 
MCT  photoconductive  chip  at  the  PEM  transducer  driving  frequency  (sine  wave  generator). 
This  modulated  output  is  pre-amplified  through  an  ac-coupled  circuit  (A)  and  sent  to  the 
input  chatmel  of  a  lock-in  ampliher  (LIA).  Reference  frequency  f  i,  split  from  Ure  transducer 
oscillator  driving  the  ZnSe  crystal  to  resonant  vibration  Oocated  in  the  PEM  head),  is  sent  to 
the  LLA's  reference  channel.  The  LIA  electronically  multiplies  reference  and  detector 
waveforms,  viz,  it  produces  an  analog  output  that  tracks  the  cosine  of  the  phase  difference 
between  reference  and  MCT  sinusoids  (bounded  by  ±5V). 
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Figure  8.  Alignment  of  the  ellipsometer's  linear  polarizer  (POLl)  -  photoelastic  modulator 
(PEM)  pairs.  LIA,  lock-in  amplifier;  D,  electronic  oscillation  circuit  driving  the  PEM  at  fre¬ 
quency  fi:  A,  MCT  detector  amplifier;  QWP,  quarter-wave  plate;  RSM,  precision  rotary  stage 
coupling  POLl  and  PEM;  SM,  stepper  motor;  RSS,  stage  for  rotating  the  POLl-PEM  pair;  and 
MCT,  liquid  nitrogen  cooled  HgCdTe  infrared  photoconductive  detector. 
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When  aligning  the  optics  between  POLl  and  PEM  axes,  the  micrometer  on  RSM  is 
turned  until  a  null  output  is  displayed  on  the  UA  meter:  the  PEM  retarder  and  POLl 
transmission  axes  are  now  co-aligned.  Two  nulls  will  occur  per  lit  POLl  revolution.  It  is  good 
practice  to  rotate  POLl  several  times  to  insure  that  these  nulls  appear  exactly  180°  apart.  An 
aligiunent  precision  of  about  5  arc  minutes  between  nulls  is  possible  wi^  this  particular 
design. 

Now  that  the  polarizer  transmission  and  modulator  fast  axes  are  co-aligned,  rotation  of 
POLl  (course  then  fine  turning  of  RSM)  exactly  45°  puts  the  PEM-POL  uiuts  into  final  align¬ 
ment.  A  precision  5  arc  minutes  or  better  is  possible,  given  the  precision  rotary  stage  RSM 
employed  here.  This  aligiunent  can  <ilso  be  performed  more  directly  by  rotating  POLl  until  a 
maximum  output  is  displayed  by  the  LIA.  However,  we  find  that  locating  nulls  in  the  LIA's 
aiudog  meter  is  a  more  accurate  measurement  technique,  compared  to  seeking  a  maximum 
deflection  during  rotation  of  POLl.  (Aligiunent  error  goes  as  the  cosine  of  the  offset  angle 
between  PEM-POL  axes.) 


4.6.2  Amplitude  and  Phase  Adjustments  of  the  Detector's  Nine  Element  Channels 
to  Transmission  Optics  of  Known  Mueller  Matrix. 

Calibration  of  the  ellipsometer  instruments  can  be  performed  routinely  before  and  after 
experimental  trials  through  measurements  of  spectral  intensities  in  the  scattergram  (Equations 
12,  14b,  16b,  and  18b)  by  the  COi  beam  transmitting  three  optic  calibrators:  (a)  linear  polar¬ 
izer,  (b)  quarter  waveplate,  and  (c)  combination  polarizer-waveplate  and  waveplate-polarizer; 
inserted  ^tween  transmitter  and  receiver  POL-PEM  units.  The  measured  Mueller  matrix  ele¬ 
ments  of  the  calibrator  (Figure  9)  are  matched  to  its  known  elements  by  proper  phase  and 
gain  adjustment  of  each  of  nine  PSD  boards  designated  Module  IV  of  the  analog  acquisition 
system.  (The  phase  per  channel  of  the  15  ac  elements  are  adjusted  to  match  the  known  cali¬ 
brator  elements,  and  gain  per  channel  with  VGC  activation  is  set  to  ±1.  See  Table  3b,  and 
Section  4.5.)  With  VGC  operation,  the  /u-element  channel  is,  of  course,  maintained  to  a 
preset  voltage  within  the  linear  operating  range  of  the  MCT  detector.  The  calibration  experi¬ 
ment  is  summarized  in  Figure  9. 
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Figure  9.  Calibration  of  the  analog  data  acquisition  channels  for  measurement  of  all 
Mueller  irutrix  elements.  PEM-POL  are  the  transmitter  and  receiver  photoelastic 
modulator-polarizer  pairs,  MCT  is  the  infrared  HgCdTe  photoconductive  detector, 
and  VGC  is  its  variable  gain  control  amplifier  (see  Figure  AIII.ll).  The  calibrators  are 
polarizer  and  waveplate  optics  of  known  Mueller  matrix  elements.  Each  channel  of  the 
analog  detection  unit  has  independent  adjustments  for  phase  and  amplitude  to  match 
the  calibrator  signatures  over  the  dynamic  range  of  the  MCT  output  waveform  (see 
Section  4.5). 

The  calibrator  optics  exhibit  Mueller  elements  of  the  form: 


Linear  Polarizer 

1  cos  (26)  sin(2e)  0 

prat  u  t»s(20)  cos*(26)  cos{2B)sin{29)  0 

*  sm(2e)  cos(2e)sm(2e)  sin*(2e)  0 

0  0  0  0 


(19a) 


Quarter-Wave  plate 

1  0  0  0 
Ofnt.  0  cos*(2p)  cos  (2p)sin(2p)  -sin  (2p) 
VvP;  0  cos(2p)sin(2p)  sin*(2p)  cos(2p) 

0  sin(2p)  -(»s(2p)  0 


(19b) 


where  6  is  the  transmission  axis  of  the  polarizer  and  p  is  the  fast  axis  of  the  waveplate 
(quarter-wave  retardation). 


The  rotating  polarizer  (Equation  19a)  calibrates  the  Mueller  elements;  /31,  fij,  fju  and 
/ij.  Rotating  quarter-wave  plate  (Equation  19b)  calibrates  fn.  f  23,  fu,  f  31,  f  33,  f  n,  f  a.  and 
f  43-  A.  combination  of  polarizer  and  quarter-wave  optics  in  operator  order  P(0)Q(p)  calibrates 
element  /41,  while  fu  can  be  calibrated  in  operator  order  Q(p)P(0).  A  measurement  with  no 
optic  (air)  calibrates  the  channels  for  elements  / n  and  /44. 

The  following  Table  4,  summarizes  how  the  dc  and  eight  lock-in  frequency  channels  of 
the  analog  detection  system  (Section  4.4)  are  calibrated  to  the  known  rotating  optic(s).  The 
calibration  of  the  detector  can  easily  be  checked  before  and  after  running  the  ellipsometer  sys¬ 
tem  for  lengthy  periods. 


Tabu  4.  Calibration  of  the  PSEXs  analog  electronic  channels  to  the 
Mueller  elements  of  a  rotating  quarter-wave  plate  Q(p),  rotating  linear 
polarizer  P(6),  and  combination  optics  Q(p)P(0)  and  P(0)Q(p). 
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4.6.3  Decoupling  Sample  From  System  Matrix  Elements  in  the  3-Mirror  Goniometer 
Type  Ellipsometer  Waveform  Output. 

Although  any  discrimination  between  bare  and  contaminated  surfaces  with  this  instru¬ 
ment  will  rely  principally  on  the  wavelength  dependence  of  the  backscattered  light,  we  wish 
also  to  investigate  the  effect  of  varying  the  angle  at  which  the  IR  beam  strikes  the  sample  sur¬ 
face.  The  simplest  means  for  accomplishing  this  would  be  to  fix  and  direct  the  incident  beam 
straight  downward  onto  a  sample  holder  (e.g.,  a  petri  dish)  and  tilt  the  holder  through  the 
desii^  range  of  angles  with  an  appropriate  mount.  Unfortunately  we  will  look  at  numerous 
loosely  packed  samples,  such  as  soils,  coated  with  liquid  contamiruints,  so  only  a  small  tilt 
angle  would  be  allowed.  Instead,  then,  we  have  chosen  to  lay  our  porous  granular  samples 
flat  on  the  optical  table  and  vary  the  light's  incident  angle  using  a  goniometer  -  whose  mirrors 
also  return  ^e  backscattered  radiation.  By  not  disturbing  the  scatterer,  the  natural  effects  of 
liquid  dii^sion  (into  and  across  the  porous  material  bulk)  and  evaporation  of  the  analyte  can 
be  analysed  by  a  screening  of  elements  sei\sitive  to  surface  geomet^. 
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The  drawback  to  this  arrangement  is  that  the  instrument  measures  the  net  Mueller 
matrix  of  everything  in  the  optical  path  between  the  two  polarization  modulators,  so  the 
sample's  Mueller  matrix  is  buried  in  the  middle  of  a  long  product  of  matrices  representing  all 
the  goniometer  mirrors  -  both  going  in  and  returning  (Equation  6b). 

We  now  return  to  the  real-time  scattergram  obtained  from  the  ellipsometer  configuration 
of  Figure  4a,  the  configuration  with  the  goniometer  transceiver  arm.  This  complex  waveform 
requires  filtering  of  the  arm's  mirror  elements  for  extraction  of  the  Mueller  elements  of  the 
scattering  sample. 

In  Equation  6b,  M,  represent  four  metallic  mirror  matrices  oriented  in  a  plane  with  nor¬ 
mal  vector  45°  to  the  incident  beam.  Three  of  these  mirrors  make  up  the  goniometer  arm,  and 
the  other  directs  backscattered  radiance  from  sample  to  MCT  detector.  The  mirror  optics  and 
arm  rotation  matrices  are  given  in  Table  2.  The  unknown  sample  Mueller  matrix  is  embedded 
in  the  system  matrix  measurements,  and  needs  to  be  extracted.  This  can  be  done  airalyti- 
cally  by  simply  inverting  M  and  R  from  the  left  and  right  hand  sides  of  Equation  6b,  and  sub¬ 
stituting  element  values  from  Table  2,  given  values  of  refractive  indices  supplied  by  the 
manufachu'er  of  the  optical  surfaces.  Each  mirror  Mueller  matrix  is  an  exact  function  of  the 
optical  'constants'  n  and  k  (in  Table  2,  a,  3,  and  a  are  implicit  functions  of  n  and  k)  of  its  sur¬ 
face  coating  layers  and  substrate  material.  Even  under  strict  quality  control  procedures  from 
the  manufacturer,  all  mirrors  cannot  be  assumed  to  have  identical  o,  p,  and  a  values.  Since 
their  variance  in  n  and  k  values  are  not  accurately  known,  three  separate  experiments  are 
required  for  empirical  determinations  of  M]M2M3,  M3M2M1,  and  M3. 

The  calibration  experiments  for  decoupling  the  mirror  Mueller  elements  from  the 
detected  signal  are  schematized  in  Figure  10.  In  the  top  configuration,  we  define: 
B(X)  ■  M3(X)M2(X)Mi(X);  according  to  the  order  in  which  the  incident  beam  reflects  from  the 
mirror  flats  and  transmits  through  receiver  the  optics  (R)  to  the  MCT  detector.  Tht  T  and  R 
optics  are  interchanged,  and  beam  direction  reversed  in  the  middle  configuration  of  Figure  10, 
yielding  the  inverse-order  goniometer  matrix  we  define:  C(X.)  =  Mi(X)M2(X)M3(X).  In  the 
final  calibration  measurement  for  M4,  bottom  POL-MOD  configurations  of  Figure  10, 
D(X)  *  MffXlCfX).  Note,  in  the  above  cases,  the  goniometer  is  fixed  in  the  plane  of 
incidence,  i.e.,  0*0°  and  R  *  I  -  the  identity  matrix.  The  matrices  M,  are  noncommutative, 
i.e.,  B(X)#C(X).  By  inverting  Equation  6b,  and  substituting  in  the  calibration  matrix  data,  we 
come  to  a  solution  for  the  Mueller  matrix  of  the  contaminated  sample  with  the  following 
form. 


F(X,0)  »  C-*(X)R-*(e)D-MX)C(X)’P(X,  e)R-*(e)B-HX)  (20) 


Presented  in  Appendix  II  are  term-by-term  values  the  above  F  product  matrix.  The  result 
was  symbolically  computed  from  a  LISP  coded  mathematical  algorithm  named  MACSYMA, 
and  were  later  checked  for  accuracy.  Fortran  77  code  of  the  element  equations,  also  produced 
by  MACSYMA,  is  used  in  the  decoupling  software  conversion  operation  labeled  -  fij  in 
Figure  6. 
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Figure  10.  Calibration  experiments  for  decoupling  four  mirror  (Ml-4)  matrix  elements  from 
the  ellipsometer  S3rstem  matrix  of  Figure  4a,  T  and  R  are  die  transmitter  and  receiver  linear 
polarizerfP)  -  photoelastic  modulatorfPEM)  pairs,  respectively,  and  D  is  a  beam  dump.  The 
goniometer  arm  is  oriented  +  or  -90®,  so  that  the  reference  plane  of  measurement  of  the 
Stokes  vectors  in  transmitted  and  received  beams  are  the  same.  Mueller  matrices  B,  C,  and  D 
are  produced  from  the  respective  optical  orientations,  and  must  be  measured  for  each  laser 
wavelength. 
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Optical  Redesign  of  the  3>MiiTor  Goniometer  Arm 

In  principle,  the  Mueller  sample  matrix  can  be  extracted  form  the  measured  system 
matrix  if  the  matrices  of  the  mirrors  are  known.  Sections  4.2  and  4.6.3  details  the  calibration 
measurements  needed  -  at  every  wavelength!  •  for  a  Mueller  description  of  the  goniometer 
and  the  subsequent  calculations  to  deconvolve  the  desired  sample  matrix  from  the  total  meas¬ 
ured  system  matrix.  This  process  clearly  is  not  satisfactory.  It  is  at  best  time  consuming  and 
inelegant,  and,  more  seriously,  there  are  unresolved  questions  about  the  propagation  of 
uncertainties  in  the  goniometer  calibration  measurements  into  the  calculation  of  the  fiiral 
«  matrix.  We  consider  it  more  sound  for  the  goniometer  arm  to  be  redesigned  so  that  the  mir¬ 

ror  matrices  are  measured  empirically  with  the  instnunent  rather  than  to  rely  on  theoretical 
calculations  that,  though  precise  in  form,  require  an  exact  knowledge  of  the  mirror  surfaces' 
IR  optical  constants. 

*  Lets  now  return  to  the  Mueller  matrix,  M,  of  a  mirror  previously  expressed  in  Table  2. 
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As  before,  the  Stokes  vectors  of  the  incident  and  reflected  rays  are  both  referred  to  the  plane 
of  incidence  containing  those  two  rays  (and  the  mirror  normal),  a  is  the  ratio  of  reflected  to 
incident  amplitudes  for  light  polarized  parallel  to  the  plane  of  incidence,  P  is  the  same  ratio 
for  light  polarized  perpendicular  to  the  plane  of  incidence,  and  cr  is  the  reflection  induced 
phase  shift  between  the  two  components.  Note  that  there  is  no  mixing  between  parallel  and 
perpendicular  polarization  components. 

Figure  11a  illustrates  the  simple  case  of  a  mirror  reflecting  a  light  beam  upward  by  90°. 
Let  the  incident  beam,  segment  1,  have  a  Stokes  vector  (So,Si,S2'S3)  originally  referred  to  the 
horizontal  plane,  H.  To  apply  Equation  5,  the  incident  Stokes  vector  must  first  be  re¬ 
referenced  to  the  reflection  plane  of  incidence,  V.  This  is  done  by  operating  with  the  rotation 
matrix  R,  defined  as: 


R(0)  = 


'  ' 

10  0  0 

0  cos  26  sin  26  0 

0  -sin  26  cos  26  0 

0  0  0  1 
V  / 


(22) 


where  6  is  the  angle  between  the  old  and  new  reference  planes. 
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Figure  11.  A  right  angle  reflector  (a)  with  a  single  mirror  that  changes  the  Stokes  vector  and 
(b)  with  a  pair  of  mirrors  that  do  not. 
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Thus,  tfte  Stokes  vector  of  the  reflected  beam,  segment  3,  referenced  to  plane  V  is: 


So 

So 

*2 

-  MR(90°) 

Si 

H 

.*3, 

3 

.S3J1 

(23) 


Notice  that  M  is  fust  M  with  sign  changes  in  the  TT*  and  3’*  columns. 

In  Figure  11b  we  also  direct  an  initially  horizontal  beam  upward,  but  this  time  it  is  first 
reflected  90^  in  the  horizontal  plane.  A  final  application  of  R(90^  between  segments  4  and  5 
makes  fi>e  final  beam  (segment  5)  identical  with  respect  to  direction  and  reference  frame  as 
the  final  beam  (segment  3)  in  Figure  11a,  but  now 
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Performing  the  suggested  matrix  multiplications,  we  easily  find 


R(90°)  M  R(90°)  M  - 
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The  Stokes  vector  of  the  final  beam  is  identical  to  that  of  the  initial  beam,  except  for  an 
unimportant  attenuating  factor  A  fiiud  reference  rotation  is  not  critical  and  was  applied 
to  make  Figwes  11a  and  11b  exactly  comparable.  The  only  difference  without  it  is  a  change  in 
two  signs  of  the  unity  matrix. 

The  reason  a  pair  of  mirrors  arranged  as  in  Figure  11b  is  transparent  with  respect  to 
Mueller  calculations  is,  of  course,  that  the  identity  of  parallel  and  perpendicular  polarization 
components  is  interchanged  for  the  two  reflections.  The  second  mirror  reverses  the  relative 
phase  shift  of  tf\e  first  mirror  and  also  equalizes  the  amplitude  attenuations.  Also  note  that 
ttus  result  holds  for  every  wavelength.  We  require  only  9QP  reflections  and  tiiat  the  mirrors 
be  optically  identical. 

We  believe  a  gonicnneter  can  be  constructed  on  this  prindple  and  will  allow  a  direct 
probing  of  the  sample's  Mueller  matrix  without  all  the  calibrations  and  inverse  matrix  calcula* 
tkms  tit  Section  4.6.3. 
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4.7  System  Software:  Experiment  Automation,  Data  Collection  and  Graphics  Display. 

The  development  of  software  for  system  hardware  automation,  analog-to-digital  conver¬ 
sions  for  data  collection,  and  graphics  presentation  for  visualization  of  reduced  data  sets  is 
updated  as  new  experiments  are  devised.  The  first  version  ellipsometer  software  package  is 
complete,  and  is  presented  in  Appendix  IV.  Linked  to  the  hardware  of  the  analog  data 
acquisition  system,  the  design  of  this  automation  and  data  graphics  analysis  code  is  mc^ular. 

Structured  in  menu  format,  it  is  flexible  enough  to  incorporate  changes  for  accommodating  ^ 

future  applications  of  these  ellipsometer  systems.  A  VAXstation  II/GPX  computer  operating 

under  VI^  version  5.4  controls  automation  I/O  between  it,  the  SAG,  and  the  DAEDAL 

MC2000  series  stepper  motor  controllers.  All  system  software  in  written  in  the  FORTRAN  77 

language.  * 


4.7.1  Switching  of  Laser  Shutters,  Modulator  Retardation  Adjustment. 

The  laser  shutters  and  the  modulator  retardations  are  controlled  from  the 
'NEW_TEK.FOR'  (Appendix  IV)  routine  as  string  commands  to  the  main  controller  relay  SAG 
network  (see  Appendix  HI,  Figures  Ain.l3a-b,  15b). 


4.7.2  Modulator-Polarizer  Permutations. 

These  are  stepper  motor  controller  functions.  Movements  are  predetermined  by  the 
user  and  stored  on  fJe.  Refer  to  'MOV_STAGE.FOR'  and  associated  routines  (Appendix  IV). 


4.7.3  Sample  Selection  and  Stage  Rotation. 

Sample  selection  is  based  on  the  input  order  in  which  a  series  of  dry  and  wetted  surface 
measurements  are  made,  with  a  maximum  of  eight  samples.  The  means  by  which  a  sample  is 
selected  and  rotated  about  its  axis  is  a  function  of  the  'NEW_TEK.FOR,  W.FOR,  V45.FOR, 
P45V.FOR,  and  P4545.FOR'  routines  (Appendix  IV).  The  latter  four  routines,  named  for  their 
associated  POL-PEM  axis  orientations,  index  the  sample  stage  rotation  so  that  Mueller  ele¬ 
ments  can  be  collected  at  any  range  of  backscattering  angles  to  and  from  the  various  dry  and 
wetted  sample  scatterers. 


4.7.4  Goniometer  Rotation  and  Data  Acquisition. 

Goniometer  rotation  operations  is  performed  by  'W.FOR,  V45.FOR,  P45V.FOR,  and 
P4545.FOR'  routines  (Appendix  IV).  The  goniometer  is  controlled  in  an  identical  manner  as 
in  the  sample  stage  rotation  routines,  with  the  exception  that  its  angle  increment  can  be 
adjusted  to  provide  measurements  at  any  resolution.  Data  acquisition  is  contained  in  these 
four  subroutines  and  occurs  sequentially  and  synchronous  to  stage  rotation. 


4.7.5  Data  Storage  and  Hie  Management. 

The  collected  sample  data  is  stored  in  two  discrete  hies.  One  is  an  index  hie  diat  con¬ 
tains  information  about  the  sample,  the  other  file  contains  the  Mueller  matrix  data.  Refer  to 
the  'NEWJTEICFOR'  routine  (Appendix  IV). 
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4.7.6  Gnphics  Presentation. 

The  graphics  display  for  this  program  was  written  for  a  4111  TEKTRONIX  color  terminal 
or  equivalent.  (Graphics  are  not  required  to  run  the  experiment.)  The  graphics  routines  that 
display  Mueller  elements  of  the  scatterer  as  functions  of  backscattering  angle  and  beam 
wavelength  are  TEKJNPUTS.FOR,  TEICTEXT.FOR  and  LASERJN.FOR'  (Appendix  IV). 
For  real  time  graphics  display  refer  to  TEKS.FOR,  DRAW_ELE.FOR  AND  SK_ELE.FOR' 
(Appendix  IV). 

The  following  Figure  12  is  a  typical  graphics  output  of  the  software  package  given  in 
Appendix  IV. 
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12  Graphics  output  fnim  the  Siiftware  pack.ige  of  Appendix  IV.  In  this  particular  data 
set,  12  measured  elements  are  displayed  as  a  function  of  backscatterinp  anple  (('.  G  resolution) 
from  a  wafer  of  isomer  (-)  tartaric  acid  at  X  -  d.24  fim  .  lire  color-coded  Mueller  field  of  ele¬ 
ments  is  displayeil  in  the  the  lower  ripht  Ikixes  H  and  V  are  for  horizontal  and  vertical  axes 
scrolling,  b<>x  Cl’KSOK  activates  H  anvi  V,  Ktx  I  is  for  the  selection  of  anv  of  the  Mueller  ele¬ 
ments  per  riM  optics  (irienlation,  box  MI  IS  contains  the  data  files,  box  I  AHI  I  ccinlains  the 
raw  voltai;es  oiifput  from  the  A  H  thannels,  bvix  I >11  1  11  erases  element(s)  from  the  sireeii, 
box  Al  I  w'lth  DM  I’ll  erases  all  elements  fnirn  the  screen,  box  ML>KI  selects  additional  ele¬ 
ments  tor  display 

is 


5.  THEORETICAL  MODELLING 

Modelling  of  the  Mueller  matrix  elements  is  being  performed  using:  (1) 
RETRO/DISFLAY,  a  Full  Wave  theoretical  software  package  that  provides  closed  form  expres- 
sioits  for  scattering  of  electromagnetic  waves  from  isotropic  surfaces  of  'rough'  through 
'smooth'  texture,  and  graphical  analysis  of  those  data;  (2)  DETECT/DECIDE2,  algorithms  that 
select  optimum  wavelengdts  and  an^es  from  RETRO  for  maximum  probability  of  contamina¬ 
tion  detection  and;  (3)  CADPAC/BROOKLYN89/GAUSSLAN88,  quantum  chemistry  software 
packages  that  predict  infrared,  equilibrium  geometries,  vibrational  modes  and  frequencies, 
vibrational  circular  dichroism  and  other  physical  properties  of  the  target  molecules. 

Currently,  one  of  us  Q.O.  Jensen)  along  with  researchers  at  the  University  of  Pennsji- 
vania  (H.  Hameka),  Lehigh  University  (D.  Zeroka),  the  Ballistics  Research  Laboratory  (C. 
Qubalowski),  are  modifying  the  CADPAC/BRC^KLYN89/GAUSSIAN88  packages  for 
mfrared  absorption  and  VCD  spectral  interpretations  inherent  in  Mueller  elements  [1,4],  [4,1], 
and  [1,1].  (The  elements  /u  and  /41  contain  information  on  the  VCD  property.  BRC)OIQ-YN89 
is  now  being  moditied  for  VCD  calculations  by  various  chiral  molecules.  Also, 
CADPAOGAUSSIAN88  is  now  being  used  by  D.  Zeroka  for  vibrational  modes  and  VCD 
predictions  of  linear  and  ringed  sugars  and  amine  molecules  that  simulate  chirality  in  the 
more  complex  biological  structures.)  There  is  an  interest  here  to  build  on  a  valid  quantum 
chemistry  model  predicting  IR  absorption  in  the  more  complex  molecular  systems  that  behave 
like  chemical/biological  agent  compounds,  and  couple  it  to  a  tested  Full  Wave  scattering 
theory.  (A  purely  analytical  model  of  scattering.  The  present  Full  Wave  model  must  access 
physical  information  on  the  scatterer  from  an  experimental  data  bank.)  This  model's  output 
would  in  turn  transfer  it  output  to  a  neural  network  connected  to  the  data  channels  of  the 
ellipsometer  sensor  (Section  6.3). 

We  give  a  brief  sununary  on  quantum  modelling  approachs  in  the  following  section.  A 
more  detailed  discussion  of  vibration-rotation,  VCD,  depolarization  and  other  properties  of 
the  analyte  compounds  of  interest  will  be  presented  in  future  papers.  Moreover,  we  do  ela¬ 
borate  on  and  give  the  source  code  of  model  RETRO/DISFLAY  and  its  associated  algorithm 
DETECT/DECIDE2  later  in  this  section  and  Appendixes  V  and  VI. 


5.1  Modelling  the  Analyte's  Resonant  Molecular  Motions:  Applying  CADPAC, 

BROOKLYN89,  and  GAUSSIAN88  Quantum  Chemistry  Codes. 

The  backscattering  of  polarized  light  to  yield  a  Mueller  matrix  depends,  in  part,  on  sur¬ 
face  geometry.  This  has  been  addressed  by  the  work  of  E.  Bahar  et  al  (Sections  5.2.1  -  5.2.4, 
and  Appendix  V).  Another  (coupled)  aspect  of  the  Mueller  matrix  is  the  interaction  of  light 
with  specific  molecules  on  the  surface,  a  part  associated  with  the  pure  physical  nature  of  the 
scatterer.  The  molecular  phenomena  causing  these  interactions  include  ateorption,  depolari¬ 
zation,  and  circular  dichroism.  These  molecular  phenomena  will  result  in  an  index  of  refrac¬ 
tion  that  is  in  a  matrix  form  similar  to  the  Mueller  matrix  itself.  Thus  tiie  index  of  redaction 
and  absorption  coefficient  are  no  longer  simple  scalar  quantities.  If  this  matrix  form  of  the 
refractive  index  can  be  extracted  from  the  data,  useful  chemical  data  can  then  be  determined. 

From  the  quantum  chemistry  codes  GAUSSIAN90^,  CADPAC^*,  and  BROOKLYN89^ 
we  can  accurately  predict  absorption,  depolarization,  and  circular  dichroism  in  the  gas  phase 
of  molecules.  The  spectra  of  a  molecule  on  a  surface  is  similar  to  a  gas  phase  molecule. 
Thus  we  can  accurately  predict  the  matrix  form  of  the  refractive  index  by  the  interaction  of 
light  with  the  given  moleaile. 
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Vibrational  Circular  Dichroism  (VCD)  is  particularly  useful  in  predicting  biological  con¬ 
taminants.^  It  is  a  measure  of  scattering  between  left-  and  right-handed  circularly  polarized 
light  interactions  that  differ  with  chiral  molecules.  VCD  is  related  to  the  [4,1]  and  [1,4]  ele¬ 
ments  of  the  Mueller  matrix,  since  these  elements  are  transformations  of  one  circular  handed¬ 
ness  into  another.  If  the  [4,1]  and  [1,4]  elements  are  measured  at  two  different  frequencies  on 
and  off  resonance,  then  the  difference  between  the  scattering  intensity  in  these  elements  is 
indicative  of  the  presence  or  absence  of  a  chiral  molecule. 

The  flowchart  of  the  calculations  that  we  perform  is  given  in  Figure  13.  The  calculations 
are  usually  done  at  the  Hartree-Fock  level  of  theory  using  a  hnite  basis  of  Gaussian  type  wave 
functions.  The  minimum  energy  conhguration  of  the  analyte  is  found  within  this  approxima¬ 
tion.  The  second  derivative  with  respect  to  all  nuclear  displacements  is  then  found.  The 
eigenvalues  and  eigenvectors  of  the  second  derivative  matrix  give  the  vibrational  frequencies 
and  normal  modes,  respectively.  The  dipole  derivatives  along  the  normal  modes  give  the 
relative  intensities  of  the  peaks. 

VCD  is  calculated  using  the  computer  package  CADPAC.  VCD  is  a  non-Bom- 
Oppenheimer  effect  caused  by  the  coupling  of  electronic  and  nuclear  motion.  The  calculation 
gives  the  overlap  of  the  change  in  the  wave  function  due  to  a  nuclear  displacement  against 
the  change  in  the  wavefunction  due  to  an  external  magnetic  field.  Thus  the  nuclear  motion 
causes  a  slight  asymmetry  in  the  way  that  left-handed  and  right-handed  circularly  jxtlarized 
light  interact  with  the  molecule. 

It  is  known  from  the  literature^^  that  vibrational  frequencies  calculated  at  the  Hartree- 
Fock  level  of  theory  tend  to  be  slightly  higher  than  experiment.  The  correction  factors  needed 
to  make  the  calculated  frequencies  agree  with  the  experimental  frequencies  tend  to  be  con¬ 
stant  across  a  group  of  similar  compounds.  Much  of  the  work  done  in  our  laboratory  involves 
determiiung  the  correction  factors  to  the  raw  calculated  results. 


% 
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OVERVIEW  OF  THE  SPECTRAL  COMPUTATION  PROCEDURE 


Figure  13.  An  oudine  of  the  oxnputation  procedure  used  to  predict  the  analyte's  IR  spectrum 
via  Gaussian,  CAOPAC,  and  BROOKLYN  quantum  diemistiy  software  packages. 


linkage  to  the  Full  Wave  Scattering  Code. 

In  the  latter  Section  6.3,  we  discuss  a  concept  in  which  the  ellipsometer's  real-time 
Mueller  element  outputs  are  connected  to  the  inputs  of  a  neural  network.  This  network  would 
be  designed  to  partition  analyte-specific  data,  so  that  presence  or  absence  of  the  analyte  can 
be  established  in  the  scattering  zone  of  the  ellipsometer  probe  beams,  as  indicated  by  an 
appropriate  alarm  signal  at  the  network's  output  layer.  Inputs  to  the  neural  network  are 
weighed  according  to  a  valid  theoretical  model.  A  candidate  model  for  scattering  by  a  ran¬ 
domly  rough  surface  is  the  Full  Wave  theory  presented  in  the  following  section.  We  antici¬ 
pate  making  a  linkage  of  the  CADPAC,  GAUSSIAN,  and  BROOKLYN  quantum  chemistry  '* 

codes  to  the  Full  Wave  code.  In  a  successful  neural  network  model,  the  quantum  chemistry 
codes  would  predict  resonant  absorption  by  the  analyte(s).  The  scattering  code  accesses  this 
information  and  outputs  Mueller  elements  of  the  contaminated  surface.  That  data  would  then 
be  used  to  weight  the  network's  input  sensor  data,  and  train  it  to  alarm  under  certain  condi-  > 

tions,  i.e.,  when  a  susceptible  set  of  Mueller  elements  are  present  and  successfully  partitioned 
from  its  background.  An  additional  layer  can  be  designed  into  the  neural  network  that 
accesses  a  data  bank  where  Mueller  signal  strengths  and  analyte  mass  densities  are  corre¬ 
lated,  allowing  a  quantitative  map  of  the  threat  contaminant  to  be  displayed. 

The  quantum  models  consider  single  molecules,  and  are  used  to  compute  energies  driv¬ 
ing  resonant  molecular  vibrational  motion,  assigning  an  intensity  value  to  the  absorption.  In 
the  Full  Wave  model,  macroscopic  boundaries  separate  material  media  and  each  material  is 
characterized  by  a  complex  dielectric  constant.  Obviously,  a  macroscopic  analyte  medium 
containing  many,  many,  molecules  would  likely  have  a  broadening  effect  on  the  quantum 
predictions  and,  perhaps,  can  be  predicted  by  the  many-body  theories  of  statistical  mechan¬ 
ics. 

Once  the  absorption  of  a  material  is  determined  by  the  quantum  codes  (over  a  wide 
spectral  band),  its  real  and  imaginary  parts  of  refractive  index  can  be  computed  by  the 
foamerB-Kronig^^  relationships.  Ibese  are  the  data  the  Full  Wave  model  uses  in  its  surface 
scattering  Mueller  matrix  predictions. 


5.2  Mueller  Matrix  Predictions  by  EM  Wave  Scattering  From  Rough  Surfaces: 

The  Full  Wave  Model  of  Physical  Optics  Theory  and  its  Application  for 

Remote  Detection. 

An  experimental  verifiable  model  for  accurate  predictions  of  the  Mueller  matrix  elements 
is  of  great  value  in  the  development  of  a  detection  system.  Predicting  the  Mueller  elements  as 
functions  of  laser  beam  scattering  wavelength,  statistical  orientation  between  scatterer  and 
incident  beam,  optical  properties  of  the  scatterer  (indices  of  refraction),  and  its  topography 
could  essentially  simulate  the  entire  experimental  operation.  With  these  descriptive  models, 
we  seek  an  optimum  domain  for  which  these  parameters  can  most  readily  reveal  the  analyte, 
and  guide  the  experimenter  toward  a  most  probable  detection  scattering  event. 


5.2.1  The  Full  Wave  Model:  RETRO. 

Program  RETRO  is  a  numerical  implementation  of  a  Full  Wave  electromagnetic  scatter¬ 
ing  theory  developed  by  Professor  Ezekiel  Bahar  at  the  University  of  Nebraska-Lincoln.  This 
theory  bridges  the  gap  between  physical  optics  and  perturbation  toeories.^'^*'^^'^^'^  RETRO, 
written  by  Craig  Herzinger,  calculates  theoretical  Mueller  matrix  elements  for  light  scattering 
by  randoi^y  rough  2-d  surfaces.  Associated  software  named  DISH-AY  presents  3-d,  contour, 
and  2-d  graphics  from  the  output  of  RETRO.  RETRO/DISPLAY  was  written  spedhcally  for 
this  experimental  program,  and,  should  it  be  proven  feasible,  aid  us  in  chosing  optimtun 
wavelength,  angle,  and  polarization  parameters  for  characterizing  contaminants  on  various 
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background  and  interferent  terrestrial  or  manufactured  material.  Later  in  this  section  we  dis¬ 
cuss  what  simplifying  assumptions  are  made  in  Full  Wave  theory  to  allow  numeric  results  to 
be  calculated  in  a  reasonable  period  of  time.  The  RETRO/DISPLAY  source  code,  written  in 
Fortran  77  and  now  running  on  a  CRAY  supercomputer,  is  included  Appendix  V.  Also,  nota- 
tional  differences  between  the  code  and  theory  are  addressed,  as  are  format  and  content  of 
input  and  output  data  files,  and  the  relationships  of  many  program  variables  to  the  theory  in 
symbolic  form. 

Full  Wave  theory  calculates  scattering  of  an  electromagnetic  plane  wave  from  a  two 
r  dimensional,  statistically  rough,  surface  between  fiee  space  (air)  and  a  material  with  a  relative 

dielectric  constant,  €^(Xo),  where  Xq  is  the  free  space  wavelength  of  the  radiation. 

The  surface  boundary  is  defined  as  y  =  h(jr,2),  where  <h>  =  0. 

^  The  reference  plane  is  defined  as  y  =  0. 

The  plane  of  incidence  is  assumed  to  be  the  x-y  plane  and  6^  is  the  angle  between  the  direc¬ 
tion  of  the  wave  and  the  normal  to  the  reference  plane.  For  backscatter,  the  incident  and  final 
directions  lie  on  the  same  line  so  that  Oq  >  -6^  >  6o 

The  mean  squared  height  of  the  surface  is  <h^>. 

3h  dh 

The  mean  squared  slope  of  the  surface  is  (r|  =  <h,*  +  hj^>,  h,  =  — ,  h,  *  — . 

The  correlation  length  of  the  surface,  1^,  is  defined  by  //  =  ^*^*1  ^  . 

The  auto-correlation  function  of  the  surface  heights  is  ru,  (x^  , 

where  h»  h(x,z) ,  h’«  h(x',2') ,  Xj  *  x-x‘ ,  2^  =>  2-2’. 

Full  Wave  theory  allows  calculations  of  elements  F  »  F(<h*>,o'|,Xo,eo)- 

The  assumptions  made  in  this  program  can  be  broken  into  two  classes: 

-  Process  assumptions  and 
-  Surface  assumptioiis. 

Process  Assumptions: 

Process  assumptions  address  how  the  light  is  scattered,  for  example  how  many  times  it 
strikes  the  surface,  how  the  emitter  and  receiver  are  oriented,  and  how  diffuse  the  scattered 
light  is.  Surface  assumptions  deal  with  the  statistical  representation  of  die  surface  heists 
and  slopes. 

This  work  assumes  that  scattering  can  be  properly  characterized  by  a  single-scatter  pro- 

*  cess.  That  is,  light  measured  at  the  detector  is  assumed  to  have  struck  the  rough  surface 
exactly  once;  multiple  scattering  is  not  considered.  This  allows  a  second  order  iterative  solu¬ 
tion  to  be  used  in  the  Full  Wave  theory,  additionally,  it  also  limits  how  rough  the  surface  can 
be.  Another  assumption  is  that  the  light  source  and  detector  are  on  the  same  optical  padt 

•  with  the  same  orientation.  The  common  terminology  for  this  is  backscattering.  Elackscatter- 
ing  is  coirsidered  because  the  ellipsometer  is  a  proving  instrument  for  a  future  remote  sensing 
system,  where  the  receiver  and  detector  are  at  one  location  far  from  the  target  surface. 

The  Mueller  nuitrix  elements  are  calculated  on  a  per  solid  unit  angle  basis,  therefore  the 
matrix  is  correct  to  within  a  scalar  constant  of  its  experimental  counterpart.  The  scalar  con¬ 
stant  is  based  on  the  size  of  the  solid  angle  intercepted  by  die  detector.  Moreover,  for  diis 
work  to  be  valid,  die  detector  must  look  at  a  small  enough  range  of  received  radiation  cen¬ 
tered  in  die  backscattering  plane  sudi  diat  pure  backscattering  can  be  used  as  a  good  approxi¬ 
mation  radiance  collected  from  the  irradiation  cross-sectional  area  over  the  entire  range  of 
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angles  and  wavelengths.  Also,  the  solid  angle  intercepted  by  the  detector  must  be  invariant 
to  changes  in  incident  angle,  Bq,  and  wavelength,  Xg.  A  third  assumption  is  that  the  scattered 
radiation  is  totally  diffuse.  This  means  the  coherent  portion  of  the  return  (the  return  without 
the  surface  roughness,  times  a  constant)  is  assumed  equal  to  zero.  This  condition  limits  how 
smooth  the  surface  can  be. 


Surface  Assumptions: 

The  first  major  assumption  is  that  the  surface  is  isotropic  and  uniform,  i.e.,  the  scatter¬ 
ing  is  independent  of  the  rotational  or  translational  position  of  the  rough  surface;  the  scatter¬ 
ing  is  in\  driant  to  a  rotation  or  translation  of  the  x  and  z  axes.  This  leads  to  the  conclusion 
,  r/  *  x/  +  2/. 

The  second  assumption  is  that  the  probability  density  of  the  heights  and  slopes  are 
independent,  p  (h,h,  ,hj  )-p/,  (h)p5  (h,  ,hj ).  Also,  p),  and  ps  are  assumed,  respectively,  to  be 
Gaussian  and  jointly  Gaussian  probability  density  functions. 

To  meet  the  condition  of  single  scattering,  the  following  restriction  is  applied;  ct|  s  2. 
To  satisfy  the  condition  of  purely  diffuse  scattering,  <h^>  is  restricted  by  die  relationship 

4<h*>k|  is  much  greater  than  1,  where  kg  =  2—.  These  conditions  are  not  enforced  by  the 

Xg 

program;  you  must  make  sure  the  input  data  is  satisfactory. 


Consequences  of  Assumptions: 

Full  Wave  theory,  under  the  above  conditions/assumptions,  can  be  used  to  calculate  the 
scattering  phase  (Mueller)  matrix  F'  as  defined  by  the  modified  Stokes  vector  notation. 


/  .  1 
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where  oj' 


D</  D*’’ 
(na^f 


Pj  Ps  dK  dh. 


(27) 


and  Q  *2ki  f  (exp(Vy^<h^>(l-ru,))  -  «p(-p/<h*>))  /o(o„r^ )  rj  dr^  (28) 

0 


Note  that  under  the  process  assumptions,  eight  elements  of  F'  are  analytically  zero. 
Measuring  tftese  eight  elements  experimentally  should  be  a  good  test  of  theory  with  die  dis¬ 
cussed  restrictions. 
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Linkage  to  Scattering  Matrix 

In  our  previous  notation,  F'  was  a  modified  matrix  derived  from  modified  Stoke's  vec¬ 
tors.  To  transform  this  matrix  into  the  desired  Mueller  matrix  F,  the  notational  difference 
must  be  addressed.  Consider  a  Stokes  vector  in  the  modified  notation,  Im-  and  in  the  stan¬ 
dard  notation,  I5,  that  represent  the  same  light. 
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The  modified  Stoke's  vector  of  the  scattered  light  is  Im'  >  FTm  and  the  standard  Stoke's 
vector  of  the  scattered  light  15  -115  clearly  must  represent  the  same  light.  For  this  to  be  true 


F  *  AF'B,  where 


(30) 
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A  and  B  are  transformation  matrices  such  that  I5  ■  AI^  and  ■  BI5 . 
RETRO  tften  calculates  F  by  computing  Q  and  the  necessary  (o-fj'/Qys. 


5.2.2  DISPLAY:  Gnphical  AnalysU  of  the  FuU  Wave  Model. 

Program  DISPLAY  is  an  interactive  program  that  plots  elements  of  backscatter  Mueller 
matrices.  The  elements  can  be  displayed  in  a  3-d,  2-d,  or  contour  format  as  a  function  of  radi¬ 
ation  waveleirgtf),  Kq,  and  incident  angle,  9q.  The  program  is  written  in  FORTRAN  77  and  is 
set  up  to  run  <Ht  die  UNIX  CRAY2  supercomputer.  Data  files  created  by  RETRO  can  be  used 
as  input  for  graphical  software  packages.  Also,  files  containing  experimental  data,  if  properly 
formatted,  can  be  used  as  input  to  other  programs. 

The  purpose  in  writing  DISPLAY  was  to  present  the  theoretical  data  produced  by 
RETRO  in  a  variety  of  ways.  DISPLAY  is  to  aid  in  analyzing  thecretical  and  experiment^ 
data,  and  to  help  in  choosing  appropriate  wavelengths  for  ellipscmtetric  study  of  various  back¬ 
ground  and  background-analyte  surface  scenarios.  DISPLAY  allows  for  dir^  ccmipariscm  erf 
experiment  to  theory. 
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DISPLAY  uses  the  plotting  package  Disspla,  version  10.0.  Local  printing  capability  is 
required  for  interactive  work.  All  calls  to  Disspla  are  conhned  to  subroutines  that  perforin 
specific  tasks.  These  subroutines  print  headings,  draw  axes,  draw  curves,  etc.  To  change 
plotting  packages,  these  routines  (in  the  Disspla  source  code)  need  to  be  rewritten.  Appendix 
V  provides  DISPLAY'S  source  code,  startup  procedure,  menu  options,  plot  directives  and  data 
analysis  options.  Its  source  code  is  also  provided  in  Appendix  V. 

We  end  this  section  by  including  Full  Wave  data  from  dry  and  wetted  day  surfaces  of 
variable  roughness  via  execution  of  RETRO  and  DISPLAY  programs.  The  day  sample  is  an 
admixture  of  three  minerals  in  one-third  proportion  by  weight;  colloidal  montmoiillonite,  kao¬ 
lin,  and  illite.  The  optical  constants  and  other  information  on  how  this  day  pellet  was  fabri¬ 
cated  are  given  m  Reference  21.  Figure  14a  is  the  day's  calculated  /ii(k,6)  element  within  a 
backscattering  angle  range  of  O:£0^88®,  and  wavelength  band  of  9.0^k£l2.2ii.m .  Mean 
squared  height  of  the  day  pellet's  surface  is  5.0  (smooth),  its  mean  squared  slope  is  0.05, 
and  the  probability  density  functions  of  heights  and  slopes  used  in  the  theoretical  model  are 
Gaussian. The  three  maxima  arising  in  the  matrix  element-surfaces  result  from 
Reststrahlen  absorption  (a  narrow  wavelength  region  where  a  sharp  jump  occurs  in  the  ima¬ 
ginary  part  of  the  complex  refractive  index  in  some  minerals)  in  the  soil  material.  In  Figures 
14b-f,  respectively,  mean  square  slope  <a^>  of  the  soil  surface  is  increased  in  order  from  0.05 
to  0.10,  0.50,  1.00,  1.50,  and  finally  to  2.00  while  <h^>  is  held  constant.  Recall  that  the  /n 
element  is  a  measure  of  scattering  power,  as  such,  the  pattern  depicted  in  Figures  14a-f  (i.e., 
scattering  from  a  smooth  to  a  rough  surface  as  <a^>  increases)  is  intuitively  correct.  At  small 
slopes,  the  surface  is  spatially  slow-varying  and  therefore  most  scattered  energy  occurs  at  CP 
specular  angle.  As  the  soil  surface  slope  and  mean  height  go  to  zero,  the  Matrix  element- 
surface  of  Figure  14a  should  reduce  to  the  Fresnel  reflection  curve  at  0  degrees,  zero  every¬ 
where  else.  We  see  from  Figures  14a-f,  that  as  surface  slopes  increase  (sharper  topographical 
detail),  scattering  becomes  more  Lambertian-like,  i.e.,  scattering  energy  becomes  isotropic  as 
shown  by  the  increasing  and  broadening  of  the  Mueller  element  surface  /ii(k,0)  for  angles 
beyond  normal  inddence  (0°  degree),  at  the  expense  of  decreasing  specularly-reflected 
energy.  We  also  note  an  intriguing  result:  the  Reststrahlen  peaks  shift  toward  higher  angle  as 
roughness  increases. 

This  same  graphical  analysis  was  conducted  on  the  fji  element,  results  of  which  are 
presented  in  Figures  15a-f.  Notice  a  trend  in  this  Mueller  element  as  the  soil-surface  rough¬ 
ness  increases.  The  three  Reststrahlen  bands  first  appear  positive,  damp,  reverse  sign  and 
decrease  negative  with  increasing  <o-^>.  The  rate  of  diange  in  the  fn  bandhead  amplitudes 
seems  more  rapid  at  the  largest  slopes.  This  change  of  sign  in  the  absorption  bands  in  the 
[2,1]  element  results  from  a  changing  relationship  between  horizontal  and  vertical  polarized 
components  of  backscattered  light  when  going  from  smooth  to  rough  surfaces,  an  anomaly  of 
Full-Wave  theory^'^^'^^. 

Our  computer  animation  and  visualization  of  the  elements  from  a  comprehensive  Full 
Wave  data  bank  show  that  <h^>  is  an  insensitive  parameter  to  change  in  all  IR  Mueller  ele¬ 
ment  signatures  between  10  - 100 
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Figure  14a.  Full-Wave  model  prediction  of  the  Mueller  matrix  element  /n  in  the  backscatter- 
ing  direction  from  a  composite  soil  material  assuming  a  surface  structure  of  Gaussian  distri¬ 
buted  slopes  (o)  and  heists  (h).  The  topographical  mean-squared  surface  height  (in  M-m^)  and 
slope  of  ^e  soil  sample  in  (a)  are,  resp^veiy,  5.0  and  0.06.  Note  that  as  <o^>  increases  in 
the  following  five  figures  b-f,  the  surface  becomes  a  more  Lambertian-like  (isotropic)  reflector 
as  expected.  The  model  restricts  <o^>  s  2. 
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Figure  14b.  Full-Wave  model  prediction  of  the  Mueller  matrix  element  /n  in  the  backscatter- 
ing  direction  from  a  composite  soil  material  assuming  a  surface  structure  of  Gaussian  distri¬ 
buted  slopes  (O’)  and  heights  (h).  The  topographical  mean-s<]uared  surface  height  (in  m-w*)  and 
slope  of  the  soil  sample  in  (a)  are,  respectively,  5.0  and  0.10. 
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Figure  14c.  Full-Wave  model  prediction  of  the  Mueller  matrix  element  /n  in  the  backscatter- 
ing  direction  from  a  composite  soil  material  assuming  a  surface  structure  of  Gaussian  distri¬ 
buted  slopes  (ff)  and  heists  (h).  The  topographical  mean-squared  surface  height  (in  y.m^)  and 
slope  of  the  soil  sample  in  (a)  are,  respectively,  5.0  and  0.50. 
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Figure  14d.  Full-Wave  model  prediction  of  the  Mueller  matrix  element  fu  in  the  backscatter- 
ing  direction  from  a  composite  soil  material  assuming  a  surface  structure  of  Gaussian  distri¬ 
buted  slopes  (a)  and  heists  (h).  The  topographical  mean-squared  surface  height  (in  and 
slope  of  die  soO  sample  in  (a)  are,  respe<iively,  5.0  and  1.00. 
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Figure  14f.  Full-Wave  model  prediction  of  the  Mueller  matrix  element  /n  in  the  backscattering 
direction  from  a  composite  soil  material  assuming  a  surface  structure  of  Gaussian  distributed 
slopes  (o)  and  heights  (h).  The  topographical  mean-squared  surface  height  (in  and  slope 
of  the  soil  sample  in  (a)  are,  respectively,  5.0  and  2.00. 


-62- 


Figure  15a.  Full-Wave  model  prediction  of  the  Mueller  matrix  element  /n  in  the  backscatter- 
ing  direction  from  a  composite  soil  material  assuming  a  surface  structure  of  Gaussian  distri¬ 
buted  slopes  (a)  and  heists  (h).  The  topographical  mean-squared  surface  height  (in  and 
slope  of  the  soil  sample  in  (a)  are,  respe^vely,  5.0  and  0.05.  Note  the  sign  reversal  in  the 
material's  bandheads  as  <a^>  increases  in  the  following  figures  b-e.  The  model  restricts 
<o^>  s  2. 


Figure  15b.  Full-Wave  model  prediction  of  the  Mueller  matrix  element  in  the  backscatter- 
ing  direction  from  a  OHnposite  soil  material  assuming  a  surface  structure  of  Gaussian  distri¬ 
buted  slopes  (ct)  and  heists  (h).  The  topx>graphical  mean-squared  surface  height  (in  and 
slope  of  the  soil  sample  in  (a)  are,  respectively,  5.0  and  0.10. 
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Figure  15c.  Full-Wave  model  prediction  of  the  Mueller  matrix  element  fn  in  the  backscatter- 
ing  direction  from  a  composite  soil  material  assuming  a  surface  structure  of  Gaussian  distri¬ 
buted  slopes  (a)  and  heists  (h).  The  topographical  mean-squared  surface  height  (in  v-m})  and 
slope  eA  ^e  s<^  sample  in  (a)  are,  respectively,  5.0  and  0.50. 
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Figure  15d.  Full-Wave  model  prediction  of  the  Mueller  matrix  element  /n  in  the  backscatter- 
ing  direction  from  a  composite  soil  material  assiuning  a  surface  structure  of  Gaussian  distri¬ 
buted  slopes  (a)  and  heights  (h).  The  topographical  mean-squared  surface  height  (in  M.m^)  and 
slope  of  ^e  soil  sample  in  (a)  are,  respectively,  5.0  and  1.00. 


Figure  ISe.  Full-Wave  model  prediction  of  the  Mueller  matrix  element  fn  in  the  backscatter- 
ing  direction  from  a  composite  soil  material  assuming  a  surface  structure  of  Gaussian  distri¬ 
buted  slopes  (a)  and  heists  (h).  The  topographical  mean-squared  surface  height  (in  and 
slope  of  Ae  soil  sample  in  (a)  are,  respectively,  5.0  and  1.50. 
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Figure  15/.  Full-Wave  model  prediction  of  the  Mueller  matrix  element  fn  in  the  backscattering 
direction  from  a  composite  soil  material  assuming  a  surface  structure  of  Gaussian  distributed 
slopes  (<t)  and  heights  (h).  The  topographical  mean-squared  surface  height  (in  and  slope 
of  the  soil  sample  in  (a)  are,  respectively,  5.0  and  2.00. 
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An  example  of  how  one  could  choose  laser  beam  angles  and  wavelengths,  per  Mueller 
element,  for  detecting  contaminants  DMMP,  DIMP  and  SF96  on  a  soil  surface  is  illustrated  in 
Figures  16  through  18.  Contours  F(X,6)  in  the  X  -  6  plaire  are  plotted  for  Mueller  elements 
fu>  fu>  fyk  for  *  clay  surface  with  <h^>  *  20jim*,  and  a}  =  0.5,  and  elements  of  the 
same  surface  coated  by  SF%,  DMMP,  and  DIMP  contaminant  liquids.  (The  assumption  here 
is  that  after  the  soil  is  wetted  by  the  liquid  contaminant,  its  surface  becomes  uniformly  coated 
and  conforms  to  the  unwetted  soil  surface  geometry.  Also,  the  coating  is  optically  thick.)  The 
cross-hatched  sections  in  diese  hgures  are  (6,  X)  regions  where  the  analyte  can  be  discerned 
from  the  soil  background.  These  regions  are  set  subtractions  of  data  from  dry  and  contam¬ 
inated  soil,  and  are  clearly  contrasted  in  the  Mueller  elements.  The  programs 
RETRO/DISPLAY  (Sections  5.2.1-5.2.2,  and  Appendix  V)  were  executed  in  producing  these 
data.  In  the  /tx  element,  SF96-  and  DMMP-contaminated  soUs  yield  predominate  artalyte  sig¬ 
nals  at  the  higher  wavelengths  starting  =12.2)i.m,  and  at  angles  not  exceeding  48°,  while 
DIMP  cannot  be  distinguished  in  this  Mueller  element.  In  element  fu.  Figure  17,  SF96-  and 
DMMP-contaminated  surfaces  are  still  disjoint  from  the  dry  soil  surface  at  the  higher 
wavelengths,  but  their  detection  X-0  domain  is  more  restrictive  in  angle.  DIMP  still  cannot  be 
detected  via  / 12.  Finally,  in  Figure  18,  we  see  that  DIMP  can  be  detected  via  /  34  in  the  cross- 
hatched  region  near  10.15  jim  and  12°-48°,  as  are  SF96  and  DMMP  in  the  higher  X-O 
domains. 

This  kind  of  graphical  analysis  can  be  extended  to  the  remaining  independent  Mueller 
elements,  and  a  selection  of  angles  and  wavelengths  can  likely  be  chosen  to  discriminate 
against  and  between  a  vast  group  of  chemical  contaminants  that  exhibit  an  IR  vibrational 
spectrum.  Moreover,  through  experiment  and  theoretical  modelling,  we  hope  to  establish 
how  these  domain  patterns  change  with  target  concentration,  allowing  one  to  map  the  con¬ 
taminant  once  detection  is  established,  and  monitor  its  fate. 
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Figure  16.  Regions  of  irradiation  wavelength  and  backscattering  angle  in  the  /n  Mueller 
matrix  element  that  are  most  useful  for  discriminating  against  liquid  chemical  agent  simulants 
SF96,  DIMP,  and  DMMP  on  a  soil  surface.  The  crosshatched  wavelength-angle  domains  are 
areas  where  the  ellipsometer  sensor  should  be  set  to,  so  that  a  signal  from  the  contaminants 
can  be  detected.  These  regions  of  maximiun  analyte  detections  result  from  a  subtraction  of 
dry-  from  wet-soil  data  sets.  Note  that  DIMP  cannot  be  detected  in  /n- 
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Figure  17.  Regions  of  irradiation  wavelength  and  backscattering  angle  in  the  Mue*Ier 
matrix  element  that  are  most  useful  for  discriminating  agamst  liquid  chemical  agent  simulants 
SF%,  DIMP,  and  DMMP  on  a  soil  surface.  The  crosshatched  wavelength-angle  domains  are 
areas  where  the  ellipsometer  sensor  should  be  set  to,  so  that  a  signal  from  the  contaminants 
can  be  detected.  These  regions  of  maximum  analyte  djtections  result  from  a  subtraction  of 
dry-  from  wet-soil  data  sets.  Note  that  DIMP  cannot  be  detected  in  fi2- 
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Figure  18.  Regions  of  irradiation  wavelength  and  backscattering  angle  in  the  /m  Mueller 
matrix  element  that  are  most  useful  for  discriminating  against  liquid  chemical  agent  simulants 
SF%,  DIMP,  and  DMMP  on  a  soil  surface.  The  crossha  tched  wavelength-angle  domains  are 
areas  where  the  ellipsometer  sensor  should  be  set  to,  so  that  a  signal  from  the  contaminants 
can  be  detected.  These  regions  of  maximum  analyte  detections  result  from  a  subtraction  of 
dry-  from  wet-soil  data  sets.  Note  that  all  three  simulants  can  be  detected  in  f^. 
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5.2.3  DETECT:  Remote  Detection  Application  of  FuU  Wave  Theoiy. 

Program  DETECT,  written  by  Mark  Haugland,  is  a  detection  algorithm  for  this  multi¬ 
wavelength,  two-modulator  IR  ellipsometer.  The  program  serves  2  purposes:  (1)  to  locate 
optimum  angles  of  incidence  and  wavelengths  for  use  in  discriminating  between  a  contam- 
iiuted  and  a  dry  surface;  and  (2)  to  identify  those  Mueller  matrix  elements  that  can  be  used  to 
discriminate  between  the  analyte  (contaminant)  and  the  background  (substrate)  at  optimum 
angles  of  incidence  and  laser  wavelengths. 

The  Mueller  matrix  for  each  scattering  surface  is  a  function  of  wavelength,  incident 
angle,  mean  square  height,  and  mean  square  slope.  One  way  to  select  useful  combinations  of 
incident  angle  and  wavelength  is  to,  as  described  in  the  previous  section,  visually  inspect 
DISPLAY  plots  of  the  difference  of  the  Mueller  matrices  for  both  contaminated  and  bare 
materials.  Due  to  the  sheer  amount  of  data  involved,  this  method  is  time  consuming  and 
most  difficult  when  extracting  quantitative  information  quickly. 

The  most  current  version  of  Full  Wave  theory  can  compute  Mueller  matrices  for  strati¬ 
fied  media  with  an  optically  thick  contaminant  layer,  i.e.,  one  rough  interface  is  considered. 
Given  a  layered  boundary  value  problem,  the  backscattering  Mueller  matrix  F  for  one  or  more 
randomly  rough  interfaces  has  6  linearly  independent  entries,  given  the  assumptions  and  res¬ 
trictions  on  the  media  prescribed  previously  in  the  Full  Wave  model.  These  matrix  elements 
are  used  in  the  construction  of  a  6-dimensional  vector  v  in  the  following  manner. 
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(32) 


V\^f\\,  ®2  =  /l2»  =  P5®/34»  (33) 


Let  ^  represent  the  teckground  material,  and  v'  represent  the  target  material.  As  a 
first  step,  consider  a  vector  d  defined  by 


d  =  V*  -P’. 


(34) 


The  magnitude  of  d  is  given  by 


-73- 


(35) 


\d  i 


dd,y. 


The  magmtude  of  ^uation  35  is  the  first  step  in  selecting  a  useful  detection  _^scriminant 
(combination  of  incident  angle  and  wavelength).  Terms  in  Equation  (35)  with  I  tij  I  >  I  I 
are  excluded,  i.e.,  relatively  strong  returns  from  the  background  material  filtered  (similar  to 
the  subtracted  data  sets  of  Section  5.2.2).  The  following  equation  uses  step  functions  to  disre¬ 
gard  relatively  strong  returns  from  the  background  material. 


0 


Xk  =  d*  u(  I  Vi'  I  -  I  I ) 


(36) 


Here,  u(.)  is  a  unit  step  function.  Candidate  incident  angle  and  wavelength  detection  parame¬ 
ters  are  found  by  calculating 


6  i 

^x\  -  (2*t)*  (37) 

k«I 


and  enforcing  the  condition  Ir  1  >  I  z  I  The  useful  Mueller  matrix  detection  elements  at 
these  wavelength  and  incident  angle  pairs  correspond  to  the  nonzero  components  of  z . 

Consider  cases  where  »Xi-  Often,  this  results  when  vl  and  are  large  in  magiu- 
tude  compared  to  vj  and  o^.  Consequently,  Zy  has  negligible  effect  on  the  value  of  Equation 
(37)_even  though  vj  and  v^  may  exhibit  strikingly  different  behavior.  Scaling  each  component 
of  z  by  an  appropriate  factor  will  yield  a  test  producing  results  that  depend  on  the  relative 
size  of  two  matrix  elements  rather  than  the  magnitude  of  their  difference.  The  vector  y  has 
this  property 


“  V  « I  • 


(38) 


As  in  Equation  (37),  combinations  of  incident  angle  and  wavelength  of  particular  interest 
may  be  found  by  computing 
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and  requiring  I  y  I  >  i  y  I  mix-  Again,  useful  Mueller  matrix  elements  correspond  to  dte 
non-zero  comp>onents  of  y . 

Should  a  matrix  element  for  either  the  target  or  the  background  tend  toward  zero.  Equa¬ 
tion  (39)  becomes  singular  (tends  to  infinity).  For  this  reason,  it  is  necessary  to  set  y^  equal  to 
zero  in  the  DETECT  program  whenever  or  u*  are  zero. 

The  refractive  index  n(X)  -  ik(X)  of  a  material  is  a  complex  function  of  wavelength  which 
plays  an  instrumental  role  in  determining  a  material's  response  to  an  incident  photon.  Peaks 
in  Ae  Mueller  matrix  elements  usually  occur  at  resonant  wavelengths.  Resonant  wavelengdis 
correspond  to  local  maxima  in  k. 

DETECT  identifies  all  resonant  wavelengths  for  both  the  background  and  the  target 
materials.  The  program  cilso  identifies  all  local  minima  in  k.  DETECT  helps  the  user  identify 
the  correlation  tetween  on-  and  off-resonance  wavelengths  and  numerical  results  ft-om  Equa¬ 
tions  (36),  (37),  (38),  and  (39). 

We  have  thus  far  developed  the  criterion  for  finding  useful  combinations  of  incident 
angle,  wavelength,  per  Mueller  matrix  element  susceptible  to  the  analyte.  We  have  not  yet 
accounted  for  the  variational  error  of  parameters  expected  in  experimental  operation.  Input- 
ing  several  sets  of_experimental  data  to  the  current  version  of  DETECT,  computing  average 
values  for  and  v‘ ,  and  dividing  each  component  of  these  vectors  by  their  respective  vari¬ 
ances  may  account  for  variability  in  the  experimental  measurements. 

The  remainder  of  this  section  discusses  a  more  sophisticated  way  of  accounting  for 
experimental  variability  than  averaging  data  and  dividing  by  variances.  We  discuss  simulation 
of  experimental  uncertainties  with  the  theoretical  data  base.  First,  however,  we  review  the 
definitions  of  variance,  covariance,  and  the  covariance  matrix. 

The  variance  of  a  univariate  quantity  z  is  defined  by 


!•! 


(40) 


where  N  is  the  number  of  samples  taken  and  is  the  mean  value  of  z  over  N  samples.  N 
should  be_  large  enough  so  that  increasing  it  will  not  change  a^.  The  expected  or  average 
value  E  ( r  )  of  a  random  vector  r  is  the  vector  whose  components  are  the  average  value  of 
each  component  of  r ,  that  is:^® 


Efri) 


E(r*  ) 


(41) 


When  generalizing  variance  to  muitidin^nsional  quantities,  one  defines  the  covariance 
of  2  components  and  ry  of  a  random  vector  r  by:^^ 
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cov{ri  ,rj  )  =  E  [(r^  -E{ri  ))(ry  -  E(ry  ))]. 


(42) 


In  Equation  (42),  the  covariance  of  fj  and  fj  is  the  average  of  the  product  of  r,’s  and  r/s 
deviation  from  their  respective  mean  values.  For  i> j.  Equation  (42)  is  the  variance  of  Tj  .  If  r, 
and  Tj  are  uncorrelated,  then  EquationJ42)  is  identically  zero.  The  covariance  matrix  contains 
the  covariances  of  all  components  of  r .  The  elements  of  the  covariance  matrix  are  arranged 
according  to  the  following  definition: 


5:=E  [(r-E(r))(r-E(r))^] 


(43) 


where  symbol  T  denotes  transposition.  From  Equation  (43),  it  is  clear  that  I-jj  =  an>(ri,r^)  and 
that  the  covariance  matrix  is  symmetric. 

In  the  next  section  it  is  assumed  that  the  covariance  matrix  is  positive  definite.  This  is 
necessary  to  insure  that  the  quadratic  forms  in  question  are  ellipsoidal.^^ 

Hotelling's  T-squared  method  is  one  way  to  check  if  a  hypothesis  is  true  or  false.  For 
this  application,  the  first  hypothesis  is  that  a  given  backscatter  angle/wavelength  combination 
is  useful.  The  second  hypothesis  is  that  the  contaminant  is  present.  Throughout  this  section, 
it  is  assumed  that  the  covariance  matrices  for  the  contaminated  and  uncontaminated  surfaces 
are  equal. 

This  method  uses  the  boundary  of  an  ellipsoid  as  the  test  criterion.  The  ellipsoidal 
region  is  defined  by 


r-i 


(44) 


where  c  is  a  ronstan^  S'*  is  the  inverse  of  the  n  dimensional  covariance  matrix  for  the  data 
contained  in  x,  and  j  is  a  ixn  column  vector  whose  entries  represent  the  average  value  of 
the  quantity  defined  by  Equation  (35).  Optimum  angles  and  wavelength  are  those  for  which 


(45) 


i.e.,  z  lying  outside  cf  the  ellipsoid  defined  by  Equation  (44).  As  etulier  stated,  useful 
Mueller  matrix  elements  correspond  to  the  non-zero  components  of  z . 

Now  that  a  set  of  useful  angle-wavelength  pairs  have  been  found,  it  is  time  to  use  them 
to  identify  a  contaminant.  One  way  to  accomplish  this  is  to  evaluate  Equation  (44)  at  several 

*  In  EqiMlion  (36),  k  i*  6.  Experimental  results  may  ^low  that  there  are  more  than  6  linearly 
independent  Mueller  matrix  elements.  For  this  reason,  n  is  left  as  an  unknown  dimension  S  16. 
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angles  and  wayeleng^,  say  m,  for  an  unknoym  sample,  then  store  these  values  in  the  ixm 
column  vector  c .  Let  c,^  denote  the  value  of  c  for  an  analyte  on  some  surface.  Define  a  by: 


a  ^c-c^. 


(46) 


The  contamiiumt  is  j>resent  if  I  a  I  <  I  a  I  m,,/  <tnd  its  concentration  (mass  de^ity)  is 
approximated  by  using  ^  representing  various  densities  in  Equation  (46).  The  duit 
results  in  the  stalest  I  a  I  is  the  closest  approximation  to  c.  Hence,  th^  unknown  sample 
has  appro)^ately  the  same  concentration  as  the  known  sample  whose  Cj^  resulted  in  the 
smallest  I  a  I . 

Using  Equation  (46)  to  identify  contaminants  works  in  principle,  but  information  is  not 
used  to  a  full  extent  in  representing  the  Mueller  matrix  data  collected  at  each  angle  and 
wavelength  by  a  single  scalar.  This  method  may  involve  using  more  angle-wavelengA  pairs 
than  are  necessary  for  ascertaining  the  analyte.  However,  using  a  single  scalar  to  represent 
the  independent  Mueller  matrices  per  angle  and  wavelength  demands  considerably  less  com¬ 
puter  memory. 

Incorporating  noise  into  the  theoretical  data  and  substituting  in  Equations  (45)  and  (46) 
provides  a  way  to  simulate  experimental  uncertainties.  One  way  to  do  this  is  to  add  a  ran¬ 
dom  component  to  the  input  variables  of  RETRO.  For  example,  slightly  varying  the  rough 
surface  geometry  (mean  square  height  and  slope)  in  a  random  manner  simulates  a  scaiming 
incident  beam  irradiating  areas  sample-to-sample. 


5.2.4  DECIDE2:  A  Detection  Optimization  Algorithm. 

Program  DECIDE2  computes  and  analyzes  backscatter  Mueller  matrices  every  time  it 
calls  its  subroutine  RETRO.  These  data  are  used  to  better  distinguish  between  background 
(base)  and  target  (analyte)  materials.  In  performing  its  intended  function,  DECIDE2  deter¬ 
mines  which  Mueller  matrix  elements  are  of  use  at  wavelengths  and  incident  angles  suscepti¬ 
ble  to  the  analyte. 

DECIDE2  is  an  alternative  to  using  the  DISPLAY  plotting  package  for  graphical  discrimi¬ 
nation  anal)rses.  DECIDEZ  locates  primary  resonant  wavelen^s  for  each  material.  It  then 
locates  the  beam  wavelengths  at  which  the  difference  in  the  imaginary  part  of  refractive  index 
between  target  and  background  are  maximum.  At  each  of  these  wavelengths,  DECIDE2  com¬ 
putes  Mueller  matrices  for  both  materials  as  a  function  of  incident  angle.  Immediately  follow¬ 
ing  this  computation,  each  pair  of  corresponding  Mueller  matrices  is  separately  analyzed 
(Equations  37  and  38). 

The  program  DECIDE2  identifies  the  combination  of  these  wavelengths  and  incident 
an^es  duit  result  in  a  probable  discrimination  between  the  two  unlike  materials.  These 
angle/wavelength  pairs  are  slightly  varied  and  reexamined.  If  there  is  an  increase  in  discrimi¬ 
nation  characteristics  between  varied  angles  and  wavelengths,  then  d>e  program  stores  those 
new  parameters.  A  new  variation  in  angle  and  wavelength  about  these  values  are  interro¬ 
gated  next,  and  so  on.  This  'seeking'  program  iterates  the  interrogation  process  untO  no 
further  increase  in  discrimination  has  been  detected.  Once  the  program  has  located  the 
optimum  angle  and  wavelength,  the  computer  proceeds  with  its  analysis  of  121  more  Mueller 
ntatrices  for  angles  of  incidence  and  wavelengths  near  other  initial  optimum  pairs.  These  121 
Mueller  outrices,  witfi  analysis  results,  are  written  in  a  file  of  format  readable  to  DISPLAY. 
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6.  DISCUSSION  OF  FUTURE  WORK 

An  alternate  digital  method  for  data  acquisition,  and  a  neural  network  interface  to  the 
analog  detection  output  module  are  presented  in  this  section.  The  new  digital  processing 
methods  we  are  now  exploring  should  result,  if  successful,  in  a  turn-key  data  acquisition  uiut 
with  on-board  functions  that  filter  spedhc  frequencies  in  the  scattered  light  intensity  much 
like  d>e  lock-in  electronics  of  the  analog  data  acquisition. 


6.1  Digital  Data  Acquisition  and  Signal  Processing  of  the  Scattergram. 

We  begin  this  section  by  summarizing  the  current  method,  which  uses  separate  lock-in 
amplifiers,  for  determining  the  normalized  Mueller  matrix  elements  at  a  given  wavelength 
and  scattering  angle.  Let  us  assume  that  the  driving  amplitudes  on  the  two  photoelastic 
modulators  have  Iwen  properly  set  for  the  wavelength  in  use,  and  that  the  angles  and  orienta¬ 
tions  of  all  the  optical  elements  have  been  correctly  adjusted.  Then  Equation  11  shows  that 
the  output  from  ^e  detector  can  be  represented  as  the  sum  of  an  infinite  number  of  discrete 
frequencies,  namely  the  sums  and  differences  of  alt  integral  multiples  of  the  two  modulator 
frequencies.  The  amplitude  of  each  frequency  component  is  given  by  the  product  of  one  or 
two  Bessel  functions  of  integer  order  (which  fortunately  tend  toward  zero  as  the  order 
increases)  and  a  factor  that  is  one  of  eight  Mueller  matrix  elements.  The  dc  component  of  the 
detector  output  is  proportional  to  a  ninth  Mueller  matrix  element,  the  «(*ii  element.  When  the 
detector  system's  gain  is  actively  servo-controlled  to  keep  the  dc  output  at  a  constant  level, 
the  ac  components  are  also  bounded  so  that  their  amplitudes  are  effectively  proportioiud  to 
the  normalized  Mueller  matrix  elements. 

The  same  set  of  frequencies  and  Bessel  function  factors  comprise  the  detector  signal  in 
each  of  the  four  experimental  configurations:  Case  A,B,C,  and  D  (see  Section  4.3).  All  that 
differs  among  the  configurations  is  the  identity  of  the  eight  normalized  Mueller  matrix  ele¬ 
ments  that  help  determine  the  amplitude  of  those  frequencies.  «|*ii  is  proportional  to  the 
detector  dc  level  in  each  configuration. 

Measurement  of  a  normalized  Mueller  matrix  element  then  is  equivalent  to  the  measure¬ 
ment  of  the  amplitude  of  the  corresponding  frequency  component  in  the  detector  sigrud.  That 
is  done  initially  with  eight  separate  lock-in  amplifiers,  one  for  each  frequency.  Eight 
sinusoidal  reference  signals  -  each  of  which  is  at  the  same  frequency  as  and  synchronized 
with  one  of  the  eight  desired  frequencies  in  the  detector  signal  -  are  produced  by  appropriate 
analog  multiplications  and  filtering  among  sine  waves  derived  from  the  reference  outputs  of 
the  two  PEM  power  supplies.  The  detector  signal  is  split  and  sent  to  each  lock-in  amplifier 
board  where  it  is  first  ^tered  through  a  narrow  passband  filter  to  reject  most  of  die  power 
except  that  near  the  desired  frequency  for  which  the  particular  board  is  designed.  When  the 
enhanced  signal  is  finally  multiplied  against  its  corresponding  reference  frequency  by  die 
lock-in  amplifier,  the  dc  component  of  the  resulting  waveform  is  a  measure  of  diat 
frequency's  amplitude  in  the  detector  signal  and  so  is  a  measure  of  die  corresponding 
(depending  on  experimental  coidiguradon)  normalized  Mueller  matrix  element. 

Note  diat  Equations  12,  14b,  16b,  and  18b  for  the  Mueller  matrix  elements  are  reladcm- 
ships  among  optical  quantities  -  retardation  (radians)  of  the  two  modulators  and  intensity 
(Watt  cm~^)  incident  on  the  detector.  The  voltages  presented  to  the  lock-in  amplifiers'  inputs 
are,  in  a  sense,  representations  of  those  optical  quantities.  But  between  the  optics  and  die 
lock-ins  lie  a  great  many  electronic  components  that  transform,  amplify,  and  filter  signals 
along  die  way.  As  a  result,  an  expression  for  the  Mueller  matrix  elements  analogous  to,  say 
Equatum  12,  but  in  terms  of  the  voltages  at  the  lock-ins  would  have  to  include  factcns  for  die 
gains  and  phase  shifts  (both  frequency  dependent)  introduced  by  the  train  of  electronics. 
T^racking  all  this  would  be  impractical;  instead,  on  each  lock-in  board  is  included  a  phase 
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shifter  to  shift  the  reference  frequency  relative  to  the  signal,  and  a  final  gain  control.  These 
are  adjusted  and  set  on  each  board  during  the  calibration  procedure  in  which  measurements 
are  made  for  optical  standards  (polarizers  and  waveplates)  whose  Mueller  matrix  elements  are 
known.  After  calibration,  a  reference  frequency  and  its  corresponding  detector  sigiul  com¬ 
ponent  will  always  be  in  phase  or  180  degrees  out  of  phase  at  the  lock-in,  depending  on  the 
sign  of  the  corresponding  Mueller  matrix  element. 

The  lock-in  amplifiers  will  operate  with  a  short  time  constant,  probably  within  a  few 
tenths  of  a  second,  depending  on  the  iunount  of  detector  noise  present.  In  other  words,  the 
(dc)  output  of  the  lock-in  at  any  instant  depends  only  on  the  input  voltages  over  the  previous 
few  tenth  seconds.  It  has  occurred  to  us  tluit  if  we  can  digitize  the  detector  output  waveform 
over  that  period  of  time  with  adequate  resolution,  along  with  waveforms  representing  die 
simultaneous  modulator  retardations,  we  ought  to  be  able  to  calculate  the  same  information 
that  the  lock-ins  give  and  so  eliminate  most  of  the  experiment' s  data  acquisition  electronics. 

Three  separate  techniques  for  computing  Mueller  matrix  elements  from  digitized  data 
have  suggested  themselves  already,  and  appear  plausible  to  warrant  serious  investigation. 
We  have  not  yet  worked  out  all  the  details  for  any  approach,  but  the  concepts  involved  will 
be  sketched  out  below. 

The  most  obvious  approach  is  to  measure  a  fast  Fourier  traiuform  (FFT)  on  a  data 
stream  sampled  from  the  detector  and  note  the  amplitudes  at  the  eight  frequencies  of  interest. 
A  calibration  relating  each  Fourier  amplitude  to  the  corresponding  normalized  Mueller  matrix 
amplitude  would  need  to  be  performed,  but  in  principle  a  simple  power  spectrum  of  the 
detector  output  will  yield  the  magnitudes  of  the  Mueller  matrix  elements.  A  greater  effort  is 
required  to  decide  the  signs  of  the  elements:  the  FFT  must  compute  the  phase  of  each  signal 
component  as  well  as  its  amplitude,  and  the  complex  FFT  must  also  be  performed  on  simul¬ 
taneously  sampled  sine  waves  synchronized  wi^  the  two  polarization  modulators.  From 
those  three  phases,  with  perhaps  a  phase  correction  determined  in  the  calibration  procedure, 
the  sign  of  the  Mueller  matrix  element  can  be  worked  out. 

At  least  two  ways  of  implementing  the  FFT  approach  are  feasible.  A  sophisticated  mul¬ 
tichannel  waveform  analyser,  such  as  the  Analog  6100  or  LeCroy  9424  in  our  laboratory,  can 
acquire  the  waveforms  and  measure  the  FFTs  rapidly  (Figure  19).  The  resulting  amplitudes 
and  phases  would  be  transferred  to  a  PC  for  the  final  arithmetic  and  display  and/or  storage  of 
the  Mueller  matrix  elements.  Alternately,  the  entire  process  could  be  carried  out  with  a  real 
time  microcomputer  or  PC,  using  an  A/D  board  with  at  least  three  input  channels  to  acquire 
the  waveforms,  and  software  including  a  FFT  routine  to  analyze  them  and  extract  the  Mueller 
matrix  elements. 

A  second  approach  is  to  let  the  computer  emulate  the  system  now  in  use  by  carrying  out 
numerically  the  same  multiplications  and  filtering  that  the  analog  electronics  perform.  Here, 
it  would  be  more  convenient  to  synchronize  a  pair  of  reference  sawtooth  waveforms  (rather 
than  sine  waves)  with  the  polarization  modulators,  so  that  a  sampled  voltage  represented  the 
instantaneous  phase  (rather  than  amplitude)  of  the  retardation  of  its  modulator.  Then  the 
simultaneous  phases  of  the  remaining  six  reference  frequencies  could  be  quickly  calculated 
frcHn  sums  and  differences  of  the  two  sampled  phases. 
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Figure  19.  Mueller  matrix  digital  acquisition  using  a  standard  Analogic  6100/650  or  LeCroy 
9424  waveform  analyser.  This  instrument  computes  Fourier  intensity  and  phase  spectra  of  the 
MCT-detected  scattergram.  Acquisition  of  Mueller  elements  are  triggered  when  the  modulator 
reference  frequencies  are  aligned  as  shown  at  the  top  of  the  figure.  They  are  correlated  to 
peak  Fourier  intensities  a,  b,  c,  d,  e,  f,  g,  h  and  a  dc  value  drat  make  up  the  scattergram 
waveform.  The  rune  Mueller  elements  are  transferred  to  cc»nputer  memory  via  an  ANSI  com- 
rrund  from  tfre  CPU  routed  through  die  stepper  motor  contr^ler,  used  to  control  the  experi¬ 
mental  operation. 
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We  envision  something  like  the  following  sequence  of  operations.  Three  voltages  are 
read  in  and  scaled  via  a  A/D  board,  representing,  at  the  same  instant,  the  phase  of  transmitter 
modulator  ((i>i  radians),  the  phase  of  receiver  modulator  (ii>2  radians),  and  the  detector  output. 
From  the  two  phases  we  form  the  instantaneous  phases  of  the  other  six  references: 
2(i)i,  2<d2,  <i>i-<02,  2(d|-ui2'  4»i-2o)2,  and  2<i>i-2ci>2.  (In  some  cases  sums  instead  of  differences 
may  be  chosen.)  At  this  point  compensating  phase  shifts,  previously  determined  in  a  calibra¬ 
tion  procedure,  may  be  applied  to  ^e  eight  phases.  The  cosine  of  each  net  phase  is  then  cal¬ 
culated,  giving  eight  numbers  that  represent  the  instantaneous  values  of  the  eight  reference 
frequency  voltages  that  (in  the  present  analog  system)  would  be  found  on  the  reference 
inputs  of  the  lock-in  amplifiers.  Note  that  the  amplitude  of  a  reference  frequency  is  not  a 
relevant  quantity,  so  long  as  it's  constant,  and  is  here  taken  to  be  unity. 

When  each  of  the  cosine  terms  is  multiplied  by  the  detector  output,  there  results  eight 
numbers  that  represent  the  instantaneous  outputs  of  the  present  eight  lock-in  amplifiers 
(without  low  pass  output  filtering).  Recall  that  each  Mueller  matrix  element  is  proportional  to 
the  average  level  (dc  component)  of  its  lock-in  output.  Electronically  that  level  is  determined 
with  a  low  pass  filter  smoothing  the  output  over  some  period  of  time  (~time  constant).  We 
can  accomplish  the  same  thing  numerically  by  repeating  the  measurements  just  described 
many  times  over  the  same  time  period  and  taking  averages.  Thus,  in  eight  computer  memory 
locations  we  would  accumulate  (add)  the  eight  effective  lock-in  amplifier  outputs  calculated 
each  time  a  triplet  of  data  points  (<o,,  (i>2,  detector)  were  read  in.  After  enough  readings 
(thousands?)  are  gathered  over  a  sufficient  length  of  time  (.5  sec?),  each  of  the  eight  accumu¬ 
lated  numbers  would  be  divided  by  the  total  number  of  readings  and  scaled  by  a  fixed  factor  - 
previously  determined  by  calibration  •  to  give  the  value  of  the  corresponding  Mueller  matrix 
element. 

In  the  third  approach  the  frequency  content  of  the  detected  signal  isn't  considered  at  all. 
Instead,  our  starting  point  is  Equation  12,  14b,  16b,  or  18b;  an  exact  closed  equation  relating 
the  detected  intensity  to  the  retardation  on  the  two  polarization  modulators  and  the  Mueller 
matrix  elements.  Suppose,  as  in  the  last  approach  (lock-in  emulation),  we  read  in  a  triplet  of 
values  representing  ui  (1)2  and  the  detector  signal.  Then,  taking  i{)],  =  1,  we  can  evaluate  all 
the  quantities  of  the  above  equations  except  the  eight  Mueller  matrix  elements,  giving  one 
equation  with  eight  unknowns.  Reading  in  seven  more  triplets  of  values  will  yield  a  total  of 
eight  equations  in  eight  unknovms,  which  can  then  be  solved  for  the  Mueller  matrix  elements 
by  standard  techniques,  such  as  an  inverse  matrix  calculation.  This  process  might  be 
repeated  often  in  a  very  short  time  and  averages  taken  to  reduce  the  influence  of  experimental 
noise  and  the  occasional  (?)  ill<onditioned  data  set. 

We  wish  to  investigate  soon  whether  one  or  more  of  these  three  data  processing  tech¬ 
niques  -  or  perhaps  other  techniques  not  yet  thought  of  -  can  replace  the  rack  of  analog  elec¬ 
tronics  now  used.  All  three  approaches  should  be  easy  to  implement  on  a  microvax  or  PC 
system,  and  should  be  tested  using  synthetic  and/or  real  data.  There  are  many  questions  and 
problems  to  be  considered,  such  as  the  density  and  total  number  of  data  points  required  in 
each  approach,  how  to  re<'oncile  the  need  for  simultaneous  data  triplets  with  the  sequential 
luiture  of  multiplexer  data  acquisition,  and  the  stability  of  the  solutions  obtained  in  the  face  of 
experimental  noise. 
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6.2  Rapid  Laser  Switching  Between  Resonance-Reference  and  Resonance-Resonance 

Beam  Wavelengths. 

A  latter  objective  of  this  program  is  held  evaluation  in  near  real  time  of  Mueller  matrix 
elements  measured  in  succession  between  rapidly  switching  beams  irradiating  surfaces 
down-range  to  kilometer  distances.  To  accomplish  these  more  distant  and  more  rapid  meas¬ 
urements,  the  ellipsometer  system  will  be  expanded  to  incorporate  more  powerful  lasers  and 
a  larger  receiver  collection  aperture. 

The  transmitter  of  this  future  system  was  eluded  to  in  the  previous  Figure  4c.  Let  us 
return  to  that  same  type  of  configuration,  but  for  the  sake  of  simplicity  consider  here  a  three- 
wavelength  switching  transmitter  system. 

The  variable  beam  splitters  (VBSl-2)  produce  full  transmission  and  reflection  modulation 
horn  <  .05  to  >  .95  R  between  9  and  12.5  m-vj,  via  a  piezo  electric  interface  control  module. 
(For  n-laser  wavelength  pulsing,  n-1  VBS  optics  are  required.)  The  VBS  modulators  work  on  a 
principle  of  Frustrated  Total  Internal  Reflection.  (The  technique  is  proprietary  to  the  optics 
manufacturer.)  Two  VBS  optical  systems  are  now  being  custom  designed  for  these  ellipsome- 
ters  by  the  Kentek  Corporation,  Laser  Tools  EHvision. 

Amplitude  modulation  and  triggering  of  the  three  incident  cw  beams  is  accomplished 
internally  in  the  laser's  power  supplies  and  exciter  circuits.  Amplitude  modulators  MODl-3 
designate  switching  access  via  TTL  logic  signals  to  tiie  p>ower  supplies,  as  shown  in  Figure  20. 

Our  concern  with  this  transmitter  is  the  purity  of  polarization  modulation  between 
pulses.  The  pulsing  is  adjustable  from  10  to  100  milliseconds  or  greater.  Another  concern  of 
the  frequency  agile  ellipsometer  systems  is  what  tolerance  the  modulators  can  withstand  on 
consistency  of  periodic  phase  retardation  adjustments  between  pulses  of  unlike  wavelength. 
Air-cooled  ZnSe  can  apparently  op>erate  under  a  maximum  100  watt  beam  intensity  without 
signiticant  damage  to  its  anti-reflection  coating.  However,  maintaining  a  constant  retardation 
(Sq  in  Equation  9)  in  the  PEM's  between  beam  pulses  is  a  stringent  constraint  placed  on  the 
resonant  compression  and  relaxation  induced  on  the  ZnSe  crystals. 

We  also  have  future  plans  to  utilize  the  dead  time  between  beam  pulses  in  an  integrated 
pseudo  active  emissions  fusion  sensor  concept,  where  chemical  vapor  contamination  and 
liquids  on  a  surface  are  detected  spectroscopically  in  thermoluminescence  produced  from 
heating  by  the  beam,  and  subsequent  release  of  mid  IR  Planck  emissions.^  The  thermo- 
luminescence  sensor  component  of  the  system  would  consist  of  a  solid-state  interferometer 
based  on  the  same  PEM  technology  incorporated  in  the  ellipsometer  systems.  This  will  be 
discussed  in  a  later  report. 


MOD  2 


MOD  2 
MOD  3 


Figure  20.  Rapid  3-Iaser  switching  based  on  variaUe  beam  splitter  (VBS)  technology.  MOD  1,2 
and  3  are  am^itude  modulators  of  the  four  incident  beams,  and  VBS  1,2  are  the  electronically 
ccmtrolled  transmitting/reflecting  (T/R)  beam  splitters.  Pulse  and  triggering  sequences  gen¬ 
erating  the  train  of  alternating  wavelengths  X2^3-^i  are  shown  in  the  bottom  hilf  of  the  fig¬ 
ure.  F^se  gating  and  beam  durations  can  be  varied  by  interface  to  the  piezo  electric  circuitry. 


6.3  Neural  Network  Computing  of  the  Mueller  Elements  For  Standoff  Anal)rte  Detections. 

Work  has  begun  on  applying  a  neural  network  to  the  analog  AFSD  detector  outputs  for 
purposes  of  contaminant  decision  making  and  density  mappings.  As  the  name  implies,  neural 
network  systems  intend  to  emulate  the  brain's  parallel  processing  ability  by  activating  a  set  of 
impulses  (in  this  case,  real-time  information  horn  16  independent  channels  of  Mueller  ele¬ 
ments  analog  outputs  from  the  sensor),  pass  it  along  weighted  interconnecting  nodes  (the 
neurons,  weights  via  a  valid  theoretical  model)  that  transform  these  data  to  a  system  of  hid¬ 
den  layers  and  other  nodes,  where  new  transforms  operate  on  these  impulses  to  produce  an 
output  layer.  The  pattern  of  information  from  the  network's  final  output  layer  (back-  or 
forward-propagated)  has  interpretation  that  may  correlate  to  a  detection  event  or  non-event. 

All  networks  we  are  considering  are  constructed  from  interconnected  nodes,  each  of 
which  forms  a  weighted  sum  of  the  Mueller  matrix  element  inputs  to  the  node,  and  adds  a 
threshold  value  to  the  weighted  sum.  The  value  of  this  sum  plus  the  threshold  is  passed 
through  a  nonlinearity,  and  the  value  of  the  non  linear  'impulse'  function  is  the  output  of  the 
node.  The  inputs  to  each  node  are  a  combination  of  outputs  from  other  nodes  and  primary 
Mueller  element  inputs  to  the  network.  The  threshold  of  each  node  can  be  viewed  as  a  unit 
weight  for  an  input.^^  Generally,  the  connection  weights  and  thresholds  can  be  adapted  using 
iterative  procedures  to  make  the  network  produce  a  desired  output  when  a  particular  input  is 
presented.  Many  of  these  network  concepts  have  been  demonstrated  to  work  well  when  the 
input  data  is  noisy. 

The  detection  network  application  is  schematized  in  the  following  Figure  21.  We  refer  to 
Lippmann's  paper^  and  references  therein  for  a  description  of  various  neural  network  archi- 
tectxires. 
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ANALOG  MUELLER  MATRIX  ELEMENTS 
FROM  SENSOR  OUTPUTS  OF  FIGURE  4 


F^art  21.  A  nconl  network  appHcaltan  for  aocening  dement*  of  the  MueRer  matrix  in  nal-time  opentian  Of  the  eWipaometer  aenaor. 
Inpot*  frian  theoretical  and  atatMical  model*  weigh  all  diacriminating  analyte  feature*  from  the  full  Ifrelement  matrix  field.  The  *ue- 
oeaifal  network  aiehltecture  wM  adapt  to  new  Muilyte*  (contaminant*)  horn  the  ■cattering  aample,  weighing  element*  acconikig  to 
Ihetr  Intramolecular  phaae  eignahnea.  The  goal  of  the  network  la  to  alarm  againat  the  analyte  (if  preaent),  aitd  map  it*  nua*  denally. 
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Detennining  and  optimizing  a  particular  architecture  that  can  be  best  implemented  in 
construction  of  a  Mueller  matrix  hardware  network  to  serve  as  a  contaminant  classifier  is  a 
topic  of  future  investigations.  Some  candidate  nets  are  Hopfield-,  Hamming-,  Grossberg-,  and 
Kohonen-like  architectiures.  For  the  APSD  sensor-spedfic  network,  the  best  choice  of  the 
number  of  nodes  and  hidden  layers  is  an  important  first  step  in  network  development. 

Neural  networks  can  be  used  for  content-addressable  memory,  vector  quantization,  data 
clustering  and  pattern  recognition.  The  remote  detection  application  pursued  here  requires  a 
net  that  performs  the  last  two  of  these  functions.  Two  networks  that  form  clusters  are  the 
Carpenter/Grossberg  classifier  and  Kohonen  self-organizing  feature  mapper. 

The  first  network  architecture  we  have  investigated  is  a  Rumelhart-McOelland  single 
layer  perceptron  structure  using  three  nodes.  The  network  structure  is  given  as  follows. 


Figure  22.  The  architecture  of  a  neural  network  that  implements  a  detection  algorithm  for  the 
near  real-time  identification  of  SF96,  DMMP,  and/or  DIMP. 


Each  node  of  the  neural  network  determines  on  which  side  of  a  hyperplane  an  input 
Mueller  matrix  lies.  The  Mueller  matrix  data  from  the  subroutine  RETRO  indicates  (with 
added  noise)  scattering  from  various  coating  materials  and  unwetted  surfaces,  separated  by  a 
hyperplane.  The  partitioning  of  the  Mueller  elements  into  classes  is  done  at  backscattering 
angles  and  wavelength  combinations  most  susceptible  to  the  analyte.  Those  parameters  are 
obtained  fix>m  the  programs  DETECT  and  DECIDE.  Judicious  initial  choices  for  the  connection 
weights  and  thresholds  into  the  network  will  yield  the  correct  output  at  the  onset  of  presenta¬ 
tion  of  training  data.  Several  sets  (10-30  per  backscatter  angle-wavelength  pair)  of  noisy  data 
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must  be  taken  in  order  to  obtain  the  standard  deviation  values  for  the  Mueller  elements. 
These  are  required  for  selecting  a  good  initial  choice  of  connection  weights  and  node  thres¬ 
holds. 

This  neural  network  model  is  coded  in  Fortran  77  and  now  running  on  a  CRAY2  com¬ 
puter  facility.  When  implemented,  it  is  capable  of  detecting  SF96,  DMMP,  and  DIMP.  (Since 
the  three  analytes  can  be  identified  using  three  different  combinations  of  backscatter  angle 
and  wavelength,  the  network  requires  three  independent  nodes.)  The  parameters  in  Figure  22 
are  defined  as  follows: 


y*  =  f*(5:w/x/  +  e') 

i 


(47) 


For  the  output  node  1,  Y’  is  high  (=1)  if  SF96  is  present,  and  low  (=0)  otherwise.  The  output 
of  node  2(3),  y*(Y®)  is  high  if  DMMP(DMMP)  is  present,  and  low  otherwise.  The  values  wj 
are  connection  weights  from  inputs  Xj  to  node  i.  O'  is  the  threshold  at  node  i,  and  /«  is  a 
hard  limiting  nonlinearity  (fi,  >0  if  the  argument  is  negative,  and  1  if  positive.)  The  absolute 
value  of  the  Mueller  element  at  the  i**  angle-wavelength  combination  is  the  network 
input: 


X/-  l/„,(X„e,)l  (48) 


where  ;*2-mn»12,  /»3-m«=22,  /=4-mn=33,  /=5-mn=34,  and  /=6-mn=44.  To 

be  consistent  with  previous  notations,  i= 1,2,3  designates  detection  of  SF96,  DMMP,  and 
DIMP  respectively. 

The  connection  weights  wj  and  thresholds  6'  can  be  adapted  using  a  perceptron  conver¬ 
gence  procedure^.  The  iterations  required  for  w  and  0  to  converge  can  be  reduced  by  using 
die  following  initial  values: 


f 


6'  -  -442 

i 


Xjj  -t  X/, 


(49a) 


m 


w 


(49b) 


where  u(-)  is  a  unit  step  function,  is  the  standard  deviation  of  Mueller  element  j  for  die 
unwetted  (bare)  surface,  and  inputs  are  the  absolute  values  of  the  Mueller  elements  j  for 
unwetted  (wetted)  surfaces  at  die  susceptible  X-9  values.  Even  though  these  initial  w  and  0 
dioices  near  eliminate  a  need  for  training  sessions,  several  sets  of  data  are  required  to  obtain 
accurate  values  for  alj. 
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6.4  Initial  Experimental  and  Theoretical  Mueller  Matrix  Data  Bases. 

A  thorough  data  base  generated  through  the  laboratory  ellipsometer  instruments  and  a 
successful  model,  to  interpret  these  data,  will  determine  the  sensitivities  and  limitations  of 
this  technology  toward  solution  of  a  particular  detection  problem.  It  will  guide  us  in  the  selec¬ 
tion  of  Mueller  elements  (as  functions  of  backscattering  angle,  wavelength)  that  can  identify 
an  analyte  or  class  of  compounds  alone,  spread  across  a  background  surface,  or  dissemiiuited 
as  an  aerosol.  What  can  done  to  filter  in  and  enhance  (optically  or  by  mathematical  algo¬ 
rithms)  information  by  the  analyte?  That  will  be  answered  after  a  full  and  reproducible  data 
base  is  produced,  so  that  we  can  better  understand  the  principles  of  pol<irized  IR  beam  -  sur¬ 
face  interactions.  Once  this  technology  is  understood,  and  if  it  can  be  proven  feasible,  proto¬ 
type  sensors  will  be  designed  and  applied  toward  a  specific  problem,  like  detecting  an  agent 
wetting  soil,  a  biological  impurity  in  a  specimen,  an  aerosol  pollutant,  an  oxide  growth  on  a 
semiconductor  surface,  and  so  on.  We  present  here  the  plan  of  an  initial  data  base  where  the 
goals  are  verification  of  model  calculations  and  rapid  detection  of  classes  of  analyte  com¬ 
pounds  in  situ. 


6.4.1  Metals  and  Insulators  of  Known  IR  Refractive  Index  and  Surface  Geometry: 

Validation  of  the  Full  Wave  Model. 

In  Sections  5.2.1-5.2.4  and  6.3  we  had  discussed  the  Full  Wave  electromagnetic  scatter¬ 
ing  theory,  and  how  it  can  be  applied  toward;  (1)  initializing  the  ellipsometer  sensor  for  max¬ 
imum  probability  of  a  successful  analyte  detection,  (2)  simulation  of  the  entire  experimental 
operation,  and  (3)  fabricating  a  neural  network  discriminator.  The  theory,  of  course,  would 
have  to  be  experimentally  verified  before  these  applications  can  be  implemented.  We  have  set 
out  to  prove  (or  disprove)  its  predictions  via  a  control  set  of  scattering  experiments  from 
aluminum,  graphite,  and  other  surfaces  of  known  optical  constants  over  the  IR,  and  known 
geometry  (surface  slopes  and  heights).  (The  surfaces  are  etched  or  sand  blasted,  and  surface- 
profiled  in  3-dimensiorvs  by  an  interference-type  instrument.)  The  general  experimental  pro¬ 
cedure  will  involve  scanning  the  entire  range  of  backscattering  angles  over  many  of  the  laser 
transitions,  comparing  results  with  model  data  such  as  those  presented  in  Figures  16-18.  The 
University  of  Nebraska  group  (E.  Bahar)  is  now  expanding  the  Full  Wave  to  include  scattering 
from  multi-layered  structures  and  non-isotropic  scatterers.  When  the  new  versions  of  RETRO 
code  are  written,  predicted  scattering  signatures  will  be  compared  with  data  measured  by  this 
ellipjsometer  sensor. 


6.4.2  Biological  and  Controlled  Substance  Simulants.  ' 

The  Mueller  matrix  ellip>someter  produces  a  full  optical  description  of  the  scatterer  by  its 
response  to  a  continuous  sp>an  of  linear  and  elliptical  p>oIarization  states  over  selected  frequen¬ 
cies  of  the  irradiating  beams.  The  emphasis  here  is  complete  characterization  of  linear  scatter¬ 
ing  {>rocesses.  Sp>ectroradiometers  that  measure  absorption  bands  in  collected  radiance^  can-  « 

not  resolve  moleailarly  similar  compounds  with  overlapping  extinction  bands  —  comp>ounds 
that  may  have  entirely  different  toxicity!!  With  phase-sensitive  scattering,  we  would  like  to 
test  whether  isomers  (molecules  of  identical  molecular  weight  but  different  group  symmetry) 
can  be  distinguished,  for  instance,  through  their  dichroism  signatures.  Many  biological  com- 
pxninds  contain  segments  that  are  chiral,  thus  the  ability  to  distinguish  between  chirality  has 
apyplications  of  biological  and  contraband  detection.  The  first  sets  of  experiments  to  test  dtis 
uniqueness  assertion  will  be  conducted  on  the  biological  and  controlled  substance  simulants 
listed  in  Table  5.  In  it  are  compiled  the  scattereris  molecular  formula,  its  strongest  resonant 
absorption  over  the  IR,  and  the  nearest  ellipeometer  laser  energy  to  that  absorption  center 
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frequency.  Typically,  three  of  the  four  lasers  are  tuned  to  a  distinct  absorption  (analytical) 
band  and  the  fourth  is  ofr-tuned  to  a  region  of  non-resonance  in  the  analyte  (reference).  The 
ratios  of  analytical  to  reference  Mueller  elements  found  most  susceptible  to  the  contaminant's 
optical  activity  are  then  sought  for  making  a  detection  decision. 


6.4.3  Chemical  Agent  Simulants. 

»  The  experiments  with  liquid  simulants  of  chemical  agent  are  trained  toward  dieir  strong 

absorption  l^ds,  in  some  agents  the  P*0,  C-O  and  P-O-C  stretching  vibrations  are  most 
important.  In  these  experiments,  Mueller  elements  of  the  bare  surface  are  measured.  Next, 
the  anal3rte  is  ejected  (via  an  aerosol  deposition,  to  simulate  and  actual  agent  attack)  in  low 

^  concentration,  and  Mueller  elements  remeasured.  This  continues  on  to  hi^er  concentrations 

and  element  re-measurements.  A  pattern  is  established  in  the  Mueller  elements  with  concen¬ 
tration  of  the  analyte.  Table  5  lists  the  absorption  properties  of  four  common  agent  simulants: 
DMMP,  DIMP,  SF96,  and  DEP. 


6.4.4  Interfetents. 

Interferents  are  all  scatterers  other  than  the  analyte.  The  analyte  scattering  signal  is  usu¬ 
ally  a  small  superposition  on  the  interferent  scattering  signal,  and  must  be  observed  in  the 
difrerendal  resonance/non  resonance  Mueller  elements  for  successful  detections.  Fortunately, 
terrains  (a  sum  of  quartz,  kaolinite,  illite,  montmorillonite  and  other  minerals)  are  broader- 
band  absorbers  of  IR  radiation  and  the  anal)de  compounds  have  sharp  extinction  frequencies. 
Other  interferents  such  as  diesel  soots,  fog  oils,^^  possess  their  own  absorption  moieties. 
Thus,  the  susceptible  Mueller  elements  can  single  out  the  analyte  on  a  surface  at  the  (very 
narrow)  laser  line  by  adjusting  the  ellipsometer  beams  to  the  analyte's  center  extinction  fre¬ 
quencies,  ratio  these  elements  to  those  measured  at  a  reference  laser  transition,  then  subtract 
Ais  result  to  the  bare  surface  Mueller  elements.  In  Table  5,  the  common  minerals  found  in 
soil  are  listed,  all  are  broadband  IR  absorbers. 
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Table  5.  Candidates  for  characterization  through  select  IR  Mueller  matrix  sig¬ 
natures.  A  data  bank  of  Mueller  elements  is  established  per  absorption 
wavelength  (plus  a  minimum  of  one  reference  laser  wavelength)  over  all  back- 
scattering  angles,  and  organized  in  a  computer  hie  similar  to  this  table's  for¬ 
mat.  The  major  absorption  bands  by  ea^  material  are  listed,  as  are  their 
nearest  matching  laser  line  over  the  ellipsometer's  4-laser  bandwidth  (see 
Appendix  I). 


Scatterer  Foronul*  Major  Nearest  Laser  Line  Comment 

Vibration  to  the  Scatterer's  Vibrational  Frequency 

(cm“*)  Transition  Freq.  (CTH"*)  Band  Type  Laser 


Chiral 

Organics 

(Biological 

Simtdant 

Analytes) 


D-<-)-Arabinose 

C,H„05 

S42.7 

P(28) 

842.79 

00^-10°0 

C'*Ol* 

892.5 

P(26) 

891.57 

00®1-1000 

C“Ol‘ 

R(36) 

892.04 

00°1-10®0 

1000.6 

P(64) 

1000.82 

00»l-02°0 

C“Oj“ 

P(20) 

10(X}.65 

00“l-02‘>0 

c“o,« 

R(26) 

1000.95 

00°1-02‘>0 

1052.4 

P(14) 

1052.20 

00°1-02®0 

P(40) 

1052.26 

00°1-02‘>0 

C“02« 

DL- Ala  nine 

CjHyNOj 

852.0 

P(16) 

853.2 

00®1-10°0 

Monohydrate 

D-Alanine 

CjHyNO, 

850.6 

P(18) 

851.50 

00<^-10°0 

DL-Aspartic  Acid 

C4H,N04 

1073.1 

R(12) 

1073.28 

00°1-02°0 

P(14) 

1073.58 

00°1-02»0 

C“02” 

L-Aspartk  Acid 

C4H,N04 

1045.9 

P(22) 

1045.02 

00<»1-0200 

C“Ol‘ 

P(48) 

1045.08 

00®1-02®0 

C“02“ 

(-)-Atropine 

C„HoNOj 

967.3 

R(8) 

967.71 

00®1-10°0 

C“Ol‘ 

Sulhite 

P(18) 

967.45 

00°l-0200 

C**02“ 

Monohydiate 

1023.8 

P(44) 

1023.19 

00°1-0200 

C“02“ 

R(6) 

1022.93 

00“1-02®0 

C“02“ 

1073.9 

R(12) 

1073.28 

O0Pl-O2°O 

C“Oj‘ 

P(14) 

1073.57 

00Pl-^)2°0 

C“02“ 
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Table  5  -  continued. 


SciMerer  FoimuU  Maior  Nearest  Laser  Line 

Vibration(s)  to  the  Scatterer's  Vibrational  Frequency 

{cm~^)  Transition  Freq.  (cm~’)  Band  Type  Laser 


(lR)-('f)-Camphor 

C„HuO 

853.5 

P{16) 

853.2 

00®*-10°0 

935.0 

P(30) 

934.89 

00<>1-10^ 

C“Ol‘ 

P(38) 

935.89 

00^-10°0 

R(30) 

935.14 

00“1-10“0 

C“Ol‘ 

1045.3 

P{22) 

1045.02 

00“1-02°0 

P(48) 

1045.08 

00®l-02°0 

c“o,« 

(lS)-(->Omphor 

C,oH„0 

934.9 

P(30) 

934.89 

00“1-10°0 

C“02“ 

P{38) 

935.89 

00®1-10PO 

c“oj* 

R(30) 

935.14 

00°1-10®0 

C“02« 

1045.3 

P(22) 

1045.02 

00°l-02®0 

c“o,“ 

P(48) 

1045.08 

00®1-02®0 

(±)^mphor 

C„HuO 

1045.1 

P(22) 

1045.02 

00“l-02®0 

c“o,“ 

P(48) 

1045.08 

00“l-02°0 

C“Ol* 

L-Cysteine 

QHyNOjS 

867.2 

R(4) 

869.96 

ocPuvfio 

1064.6 

m 

1064.51 

00“1-02°0 

C«OW 

P(26) 

1064.13 

00“l-02°0 

D-(->-Frucloae 

C.HuO« 

978.2 

R(24) 

978.47 

00®1-10“0 

c“o,« 

R(18) 

978.89 

00°1-10®0 

C“02« 

P(8) 

976.21 

00®1-02°0 

1079.6 

R(22) 

1079.85 

00®l-02°0 

c“o,“ 

P(6) 

1079.49 

00®l-02°0 

C“Ol‘ 

D-Glucose 

C,HuO, 

838.7 

P(3J) 

839.20 

00^1-10^0 

0*01* 

Anhydrous 

995.7 

R(56) 

995.07 

00®1-10°0 

c“o,« 

P(26) 

994.99 

00®l-0200 

C«Oa« 

R(16) 

994.82 

00^-02°0 

C*«Oj“ 

1024.1 

P(44) 

1023.19 

00»1-02°0 

R(8) 

1024.37 

00®1-02®0 

C«Oi‘ 

L'Histidine 

924.5 

P(40) 

924.97 

00°1-10°0 

c“oj‘ 

R(14) 

924.53 

00»1-10®0 

C«Oi‘ 

Oydne 

CjHsNOj 

893 

P{26) 

891.57 

00^-l(A) 

C«Oj« 

912 

P(54) 

907.77 

00®1-10^ 

C“Oj“ 

936 

P(28) 

936.80 

OCPl^lffiO 

C“Oa“ 

P(38) 

935.89 

C“Oj« 

R(32) 

936.37 

OCPl^lCPO 

C«Oa“ 

1033 

P(36) 

1033.48 

OCPl^^PO 

C“Ol‘ 

P(58) 

1035.70 

O0Pl-O2°O 

Comment 


+  VCD  (strong) 

-  VCD(strong) 
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Table  5  -  continued. 


ScatteicT 

FormuU 

Majoi 

Vibration(s) 

(cm-‘) 

Nearest  Laser  Line 

to  the  Scatterer's  Vibrational  Frequency 

Transition  Freq.  (CTn~^)  Band  Type  Laser 

Comment 

S^-)-Limonene 

CioHn 

887.1 

P(30) 

887.92 

00“1-10®0 

C«Ol‘ 

R(28) 

886.93 

00®1-10°0 

C**02“ 

+  VCD  (strong) 

914.2 

P(50) 

914.42 

00°1-10°0 

C“02“ 

+  VCD  (weak) 

R(4) 

917.25 

00“1-10“0 

C“02“ 

1051.4 

P(16) 

1050.44 

00®l-02°0 

C“02“ 

-  VCD  (very  weak) 

P(42) 

1050.49 

00°1-02°0 

D-Mannose 

QHuO, 

969.9 

R(10) 

969.14 

OOPl-10^ 

c“o}‘ 

R(4) 

970.33 

00°1-10°0 

P(16) 

969.26 

00“1-02°0 

1040.0 

P(28) 

1039.37 

00“l-02®0 

P(54) 

1039.50 

0001-0200 

R(32) 

1039.38 

00“1-02®0 

C“Ol‘ 

D^-)-RiboM 

CjHwO, 

911.7 

P(54) 

907.77 

00°1-1000 

C“Ol‘ 

959.0 

P(2) 

959.39 

00®1-10“0 

P(10) 

959.71 

00Pl-10°0 

c“o,« 

P(26) 

959.90 

00»l-0200 

1037.0 

P(30) 

1037.43 

00®1-02°0 

C*»Ol‘ 

P(56) 

1037.61 

00“1-02®0 

c“o,« 

R(28) 

1037.17 

00°1-02‘>0 

C«Oi‘ 

L-<->-Soibos« 

QHuO, 

820.2 

P(48) 

824.17 

00°1-10°0 

883.1 

P(34) 

884.18 

00“1-10°0 

C“Ol‘ 

R(22) 

882.91 

00Pl-10®0 

991.8 

R(48) 

991.57 

000l-10°0 

c“o,« 

R(44) 

991.27 

00°1-10°0 

c“oj‘ 

P(30) 

991.07 

00®1-02°0 

C«Oi« 

R(10) 

990.79 

00^1 -02°0 

1047.9 

P(18) 

1048.66 

00®1-02°0 

C“Ol‘ 

P(44) 

1048.71 

000l-02°0 

L-S«rine 

CjHyNOj 

1013.1 

P(52) 

1014.52 

00°1-0200 

C“02« 

L-Threonin* 

C4H,N0, 

936.2 

P(28) 

936.80 

00°1-10°0 

C“Oj« 

P(38) 

935.89 

00“1-10“0 

C“02« 

R(32) 

936.37 

00®1-1000 

C“02« 

1041.1 

P(26) 

1041.28 

00°1-02°0 

C“02« 

P(52) 

1041.38 

00°l-02<’0 

C“02« 

R(36) 

1041.48 

00®1-02®0 

c«oj‘ 
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Table  5  -  continued. 


Scatteier  FoimuU  Maior  Nearest  Laser  Line 

Vibration(s)  to  the  Scatterer's  Vibrational  Frequency 


(cm-‘) 

Transition 

Freq.  (OH"*) 

Band 

Type  Laser 

L-Tyrosine 

C^„NO, 

841.3 

P(30) 

841.00 

00“1-10“0 

DL-Taitaric  Add 

C«H.O. 

1094.9 

R(16) 

1094.76 

OOPl-02®0 

L-Tartaiic  Add 

C«H*0, 

943.0 

P(22) 

942.38 

00®1-10^ 

C“Ol‘ 

Hydrate 

P(30) 

943.23 

00“1-10^ 

c“o,« 

R(44) 

943.34 

00°1-10“0 

C“02“ 

1087.8 

R(36) 

1087.95 

00°1-02‘'0 

c“o,« 

m 

1087.11 

00°1-02“0 

C“02“ 

D-Tartaric  Add 

C«H*0, 

943.3 

P{22) 

942.38 

00®1-10“0 

C“02« 

P(30) 

943.23 

00°1-10“0 

C“02“ 

R(44) 

943.34 

00^-10“0 

C“Oj« 

1087.8 

R(36) 

1087.95 

O0Pl-O2°0 

C“Ol‘ 

R(4) 

1087.11 

00“1-02®0 

C“02“ 

DK-t^Xylose 

C*H„0, 

903.7 

P(60) 

903.21 

00^-10°0 

C“02“ 

934.2 

P{30) 

934.89 

00^-10°0 

P(38) 

935.89 

OOPl-lOPO 

c“o}‘ 

R(30) 

935.14 

00“1-10°0 

1039.8 

P(28) 

1039.37 

00“1-0200 

C«02“ 

P(54) 

1039.50 

00°1-02°0 

C“02“ 

R(32) 

1039.38 

00®l-02°0 

C“02*‘ 

[H-)-Xyk>t« 

CjHwO, 

903.6 

P{60) 

903.21 

00“1-10^ 

C“Ol‘ 

934.1 

P(30) 

934.89 

00“1-10°0 

C“Ol‘ 

P(38) 

935.89 

00®1-10P0 

C^Ol* 

R(30) 

935.14 

00®1-10°0 

C“02« 

1039.8 

P(28) 

1039.37 

00^1 -02°0 

c“oj‘ 

P(54) 

1039.50 

00Pl-O2°O 

C“02" 

R<32) 

1039.38 

00^-02®0 

C“02« 

L-Tryplophan 

C„HuN,0, 

1005 

P(60) 

1005.48 

00®1-02°0 

c“oj‘ 

P(16) 

1004.28 

00Pl-O2°0 

C“02“ 

R(M) 

1005.31 

00®l-02®0 

C'*02“ 

918.0 

P(46) 

918.72 

00®1-10®0 

C“02“ 

R(8) 

918.74 

00“1-1(W) 

C“02“ 

Comment 
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Table  5  -  continued. 


Scatlerer 


Foimuk  Major  Nearest  Laser  Line 

Vibration(s)  to  the  Scatterer's  Vibrational  Frequency 

(cm"*)  Transition  Freq.  (cm"*)  Band  Type  Laser 


Comment 


Chemical 

Agent 

Simulant 

Analytes 


Dimethy)- 

CHjPOCOCHj)! 

1049 

P(18) 

1048.66 

0001-0200 

c“o,“ 

C-O  stretch 

methyW 

P(44) 

1048.71 

00“l-02‘>0 

C“02“ 

phosphonate 

1061 

P(4) 

1060.57 

00^-02“0 

C“02« 

C-O  stretch 

(DMMP) 

P{30) 

1060.84 

OOPl-02“0 

1072 

R(10) 

1071.88 

00°l-02“0 

C“Oj« 

C-O  stretch 

P(14) 

1073.58 

00°1-02°0 

C“02“ 

DiisopropyV 

CH,PO(OCH(CH,)Pj 

995 

R(56) 

995.07 

OO^-IO^O 

C“02“ 

P-OCv* 

methyl- 

P(26) 

994.99 

00°l-02®0 

C“02*‘ 

phosphonate 

R{16) 

994.82 

OOPl-0200 

(DIMP) 

1014 

P(52) 

1014.52 

00“1-02®0 

c“ol‘ 

(P-OOvib 

PolydimethyL 

1034 

P(34) 

1033.48 

00®1-02°0 

c«ol‘ 

(SK>-S«>  vib 

siloxane  (SF96) 

P(58) 

1035.70 

00®1-02®0 

C“02** 

R(24) 

1034.83 

00°l-02®0 

C«02*‘ 

1092 

R(46) 

1092.96 

00“l-02®0 

C“02*‘ 

(Si-O-Si)  vib 

R(12) 

1092.29 

OOOI-O2OO 

C“02“ 

Diethyl- 

CuH„04 

1017.7 

P(50) 

1016.72 

00®l-02®0 

C^i* 

Phthalate 

1073.6 

R(12) 

1073.28 

00**1-02®0 

C“02“ 

(DEP) 

P(14) 

1073.58 

00°1-0200 

C“02« 

Controlled 

Substance 

Simulants 

(Analytes) 

MethyV- 

C,H,0, 

1027.3 

P(40) 

1027.38 

00®1-02®0 

C“02“ 

Beiuoate 

R(12) 

1027.16 

00°1-0200 

C^Oi* 

Methyl- 

1048.2 

P(18) 

1048.66 

00‘*l-0200 

C“Oj‘ 

Acetate 

P(44) 

1048.71 

00“l-02°0 

C“02“ 

Atropine  ibid 
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Table  5  -  continued. 


Scttterer  Formula  Major  Nearest  Laser  Line  Comment 

Vibration(s)  to  the  Scatterer's  Vibrational  Frequency 


(cm-‘) 

Transition 

Freq.  (cm"*) 

Band 

T3rpe  Laser 

Scopolamittc 

C„HaN04 

1046.9 

P(20) 

1046.85 

00^-02®0 

c“o,« 

Hydrobromide 

P{46) 

1046.90 

00“l-02®0 

C“02“ 

hydrate 

Ttopine 

CjHuNO 

1047.4 

P(20) 

1046.85 

00®1-02°0 

C“Oj‘ 

P{46) 

1046.90 

00“1-02®0 

C“Oj« 

3-A2abicydo- 

c,h„n 

1079.4 

R(20) 

1078.59 

00°l-02®0 

C“Ol‘ 

[3.2.2]  nonane 

P(6) 

1079.49 

00®1-02®0 

Bcnztropine 

CaHaNO 

1050.1 

P(16) 

1050.44 

00®1-02®0 

c“o,“ 

Mesylate 

P(42) 

1050.49 

00®1-02®0 

C“02“ 

Nipecotic 

QH„NO, 

1067.1 

R(4) 

1067.54 

00“l-02°0 

Add 

P(22) 

1067.36 

00°l-02®0 

C“02« 

Piperidiite 

QHaN 

1051,2 

1050.44 

00“l--02°0 

C“02“ 

P(42) 

1050.49 

00“l-^)2®0 

C«02” 

Ethyl- 

C,H„NO, 

1047.3 

P(20) 

1046.85 

00®1-02®0 

C“02“ 

Pipeoolinate 

P(4«) 

1046.90 

00»l-02»0 

C“02“ 

EthyV 

C,H„NO, 

1045.7 

P(22) 

1045.02 

00®l-02°0 

Isonipecotatc 

P(48) 

1045.08 

0(/>l-02°0 

Soa 

(Inter- 

ftrtnt) 


33%  Mont- 

morillonite 

33%  Kaolin 

34%  mile 

^1.7Mgoj3 

[(OH)2«UO,o1 

Na,^(H20)4 
Al4((OH)2^AlSi,Oio 
(K,  H,0)  AI2 
(OH)/AlSi,Oi, 

1040  (±3) 

P(28) 

1039.37 

00^-02®0 

C“Ol‘ 

P(54) 

R(32) 

1039.50 

1039.38 

00°l-02°0 

00“l-0200 

C“02” 

C«02« 
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7.  CONCLUSION 

A  foundation  for  applying  Amplitude  and  Phase  Sensitive  Light  Scattering  (APSLS)  tech¬ 
nology  toward  solution  of  remote  detection  problems  involving  chemical  and  biological  con¬ 
taminants  spread  across  various  surfaces  was  presented.  We  are  currently  proceeding  with 
developing  an  experimental  data  base  of  Mueller  matrix  elements,  and  will  soon  compare 
these  data  to  theoretical  predictions  as  part  of  a  feasibility  study.  If  these  laboratory  tests 
prove  that  contaminants  on  a  surface  can  be  successfully  detected  at  a  distance  through  selec¬ 
tive  sets  of  differential  (on-then-off  molecular  resonance  by  the  analyte)  Mueller  elements, 
then  development  of  a  prototype  sensor  can  begin.  With  the  data  base  in  hand,  optimization 
of  hardware  and  software  components  in  these  ellipsometer  systems  can  lead  to  a  simplified 
prototype  system  eagineered  to  a  specific  class  of  contaminant  compounds. 

The  potential  exists  for  extending  this  technology  toward  solution  of  other  identification 
and  classification  problems  of  interest  to  the  Department  of  Defense,  environmental  agencies, 
academia,  and  private  industry.  We  will  undoubtedly  realize  and  incorporate  n  ver  and 
better  hardware  and  software  modifications  into  the  present  instrument  designs  for  these 
expanded  applications. 

Work  proceeds  on  analysis  of  special  Mueller  elemental  features  in  beam  wavelength 
and  angle  orientation  that  can  uniquely  represent  the  analyte  (in  situ),  and  once  presence  is 
established,  quantify  it.  All  susceptible  Mueller  elements  will  be  scrutinized  from  oblique-to- 
normal  backscattering  polar  angles,  and  over  the  instrument's  laser  bandwidth  spanning  9.1  - 
12.2  fxm:  the  mid  IR  'fingerprint'  region  of  many  important  biological  and  chemical  com¬ 
pounds. 

Methods  of  data  processing  will  be  improved,  including  a  neural  network  architecture 
with  pattern  recognition  algorithm  that  will  likely  be  integrated  into  the  ellipsometer's  analog 
data  acquisition  unit.  We  will  continue  to  study  and  improve  on  our  methods  of  analysis  of 
the  Mueller  field  of  elements,  as  we  become  more  familiar  with  the  technology.  Future 
reports  will  provide  updated  progress  as  we  complete  debugging  the  software  and  hardware 
instrument  components,  as  the  digital  data  acquisition  comes  on-line,  and  as  quantitative  data 
becomes  available.  Revisions  on  the  Full  Wave  theory  to  include  scattering  from  non  isotro¬ 
pic,  many-layered,  rough  surfaces  will  be  reported  later,  as  will  absorption  and  VCD  predic¬ 
tions  of  complex  analyte  molecules  via  the  quantum  chemistry  models. 

The  end  goal  of  this  program  is  to  collect  and  analyze  a  comprehensive  data  base  on 
CBW  simulants  on  surfaces,  from  it  identify  the  crucial  polarization,  angle,  and  wavelength 
parameters  that  will  specify  a  less  complex  engineered  prototype  version  of  the  experimental 
s)retem,  then  development  and  engineering  of  that  sensor. 


» 
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APPENDIX  I.  EMISSIONS  FROM  CO^  PROBE  LASERS 

The  following  data  are  reproduced  from  the  Handbook  of  Laser  Science  and  Technol¬ 
ogy,  Marvin  J.  Weber,  CRC  Press,  Inc.  1982.  The  laser  emissions  shown  span  all  allowable 
wavelength  outputs  from  the  ellipsometer's  four  laser  sources.  Band  nomenclature  is  of  the 
form  (V],v],V3),  where  vj  and  V3  are  quantum  munbers  specifying  stretching  modes,  and  V2  is 
a  quantum  number  for  the  bending  mode  of  the  linear  triatomic  CO2  molecule.  The  vibra¬ 
tional  angular  momentum  quantum  number  is  specified  by  1.  PCJ)  and  R(J)  are  vibratioiia]- 
rotadonal  transitions  of  the  types  (v+l,/-l)  —  (v,/)  and  (v+l,/+l)  — •  (v,/),  respectively, 
where  J  is  the  rotatioital  quantum  number.  For  further  details,  see  the  standard  text  by 
Heizbeig.^  Each  of  the  ellipsometer's  four  laser  sources  can  produce  between  45  and  75  dis¬ 
tinct  spectral  emissions,  most  with  sufhdent  power  for  MCT  detection  of  scattered  light  from 
surfaces  at  ranges  to  ^  100  meters  at  oblique  scattering  angles  and  f/10  receiver  optics. 
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• 
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_ P(^) 

10.85978 

920.829123 

-105- 


Appendix  T 


LASER 

BAND 

TRANSITION 

FREQUENCY 

cm"' 

c“o,“ 

OOPl  - 10“0 

P(46) 

10.88473 

918.718331 

P(48) 

10.91010 

916.581770 

P(50) 

10.93590 

914.419283 

P(52) 

10.96214 

912.230703 

P(54) 

10.98882 

910.015853 

P(56) 

11.01595 

907.774549 

P(58) 

11.04354 

905.50659 

P(60) 

11.07160 

903.21177 

P(62) 

11.10014 

900.88992 

P(64) 

11.12915 

898.54082 

P(66) 

11.15867 

8%.  1643 

P(68) 

11.18868 

893.7602 

0(/»l  -02®0 

R(50) 

8.98767 

1112.635004 

R(48) 

8.99495 

1112.635004 

R(46) 

8.99495 

1111.735484 

R(42) 

9.00238 

1110.817288 

R(44) 

9.00998 

1109.880340 

R(42) 

9.01775 

1108.924564 

R(40) 

9.02568 

1107.949890 

R(38) 

9.03378 

1106.956250 

R(36) 

9.04205 

1105.943579 

R(34) 

9.05050 

1104.911817 

R(32) 

9.05911 

1103.860906 

R(30) 

9.06790 

1102.790794 

R(28) 

9.07687 

1101.701429 

R(26) 

9.08601 

1100.592768 

R(24) 

9.09533 

1099.464767 

R(22) 

9.10484 

1098.317390 

R(20) 

9.11452 

1097.150603 

R(18) 

9.12438 

1095.964378 

R(16) 

9.13443 

1094.758688 

R(14) 

9.14467 

1093.533515 

R(12) 

9.15509 

1092.288842 

R(10) 

9.16570 

1091.024658 

R(8) 

9.17649 

1089.740957 

R(6) 

9.18748 

1088.437736 

R(4) 

9.19866 

1087.114998 

R(2) 

9.21003 

1085.772750 

_ Pg) 

9.23931 

1082.331864 
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TRANSITION 

FREQUENCY 

cm“‘ 

00®1  -  02°0 

P(4) 

9.25137 

1080.921457 

P(6) 

9.26362 

1079.491631 

P(8) 

9.27607 

1078.042418 

P(10) 

9.28873 

1076.573857 

P(12) 

9.30158 

1075.085991 

P(14) 

9.31464 

1073.578866 

P(16) 

9.32790 

1072.052534 

P(18) 

9.34137 

1070.507051 

P(20) 

9.35504 

1068.942477 

P(22) 

9.36892 

1067.358878 

P(24) 

9.38301 

1065.756323 

P(26) 

9.39730 

1064.134886 

P(28) 

9.41181 

1062.494644 

P(30) 

9.42653 

1060.835680 

P(32) 

9.44146 

1059.158080 

P(34) 

9.45661 

1057.461932  1 

P(36) 

9.471% 

1055.747333 

P(38) 

9.48754 

1054.014378 

P(40) 

9.50333 

1052.263168 

P(42) 

9.51933 

1050.493809 

P(44) 

9.53556 

1048.706409 

P(46) 

9.55200 

1046.901078 

P(48) 

9.56866 

1045.077932 

P(50) 

9.58555 

1043.237087 

P(52) 

9.60265 

1041.378663 

P(54) 

9.61998 

1039.502785 

P(56) 

9.63754 

1037.609577 

P(58) 

9.65531 

1035.699167 

00“1  - 10“0 

R(44) 

10.08328 

991.274098 

R(42) 

10.09604 

990.487703 

R(40) 

10.10435 

989.673232 

R(38) 

10.11295 

988.830811 

R(36) 

10.12186 

987.960562 

R(34) 

10.13107 

987.062600 

R(32) 

10.14058 

986.137035 

R(30) 

10.15039 

985.183973 

R(28) 

10.16050 

984.203513 

R(26) 

10.17091 

983.195749 

R(24) 

10.18163 

982.160770 

R(22) 

10.19265 

981.098661 
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LASER  BAND  TRANSITION 


C“Ol*  00“1  -  lOOQ  R(20) 


P(6) 

P(8) 

P(10) 

P(12) 

P(14) 

P(16) 

P(18) 

P(20) 

P(22) 

P(24) 

P(26) 

P(28) 

P(30) 

P(32) 

P(34) 

P(36) 

P(38) 

P(40) 

P(42) 

P(44) 

P(46) 

P(48) 


C”01‘  00^1  -  02®0 


10.20398 

10.21562 

10.22756 

10.23981 

10.25238 

10.26525 

10.27844 

10.29195 

10.30577 

10.38759 

10.40354 

10.41982 

10.43644 

10.45341 

10.47072 

10.48838 

10.50639 

10.52476 

10.54349 

10.56259 

10.58205 

10.60188 

10.62209 

10.64268 

10.66366 

10.68503 

10.70679 

10.72896 

10.75153 

10.77451 

10.79792 


9.60169 

9.61126 

9.62110 

9.63123 

9.64165 

9.65235 

9.66335 


980.009499 

978.893358 

977.750307 

976.580410 

975.383724 

974.160302 

972.910195 

971.633444 

970.330089 

962.687339 

%1.211656 

959.709502 

958.180873 

956.625761 

955.044153 

953.436031 

951.801372 

950.140149 

948.452326 

946.737867 

944.9%728 

943.228860 

941.434209 

939.612716 

937.764316 

935.888939 

933.986510 

932.056949 

930.100167 

928.116074 

926.104570 


1041.483334 

1040.446675 

1039.381840 

1038.288700 

1037.167135 

1036.017032 

1034.838287 
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LASER 

BAND 

TRANSITION 

FREQUENCY 

cm"* 

c“o]‘ 

00“1  -  02°0 

R(22) 

9.67463 

1033.630806 

R(20) 

9.68622 

1032.394502 

R(18) 

9.69810 

1031.129298 

R(16) 

9.71029 

1029.835128 

R(14) 

9.T227S 

1028.511931 

R(12) 

9.73558 

1027.15%58 

R(10) 

9.74870 

1025.778270 

R(8) 

9.76212 

1024.367737 

R(6) 

9.77586 

1022.928037 

R(4) 

9.78992 

1021.459160 

P(6) 

9.87304 

1012.859224 

P(8) 

9.88923 

1011.201098 

P(10) 

9.90576 

1009.514024 

P(12) 

9.92262 

1007.798072 

P(14) 

9.93983 

1006.053323 

P(16) 

9.95738 

1004.279869 

P(18) 

9.97528 

1002.477810 

P(20) 

9.99353 

1000.647256 

P(22) 

10.01213 

998.788325 

P(24) 

10.03108 

9%.901145 

P(26) 

10.05039 

994.985854 

P(28) 

10.07006 

993.042598 

P(30) 

10.09009 

991.071531 

P(32) 

10.11048 

989.072816 

P(34) 

10.13123 

987.046625 

P(36) 

10.15235 

984.993138 

P(38) 

10.17385 

982.912542 

00®1  -10°0 

R(44) 

10.60063 

943.340303 

R(42) 

10.61310 

942.231411 

R(40) 

10.62585 

941.101238 

R(38) 

10.63886 

939.949924 

R(36) 

10.65215 

938.777604 

R(34) 

10.66571 

937.584403 

R(32) 

10.67953 

936.370443 

R(30) 

10.69363 

935.135838 

R(28) 

10.70801 

933.880687 

R(26) 

10.72265 

932.605121 

R(24) 

10.73757 

931.309207 

_ _ 

10.75277 

929.993046 
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LASER 

BAND 

TRANSITION 

FREQUENCY 

cm"' 

c“ol‘ 

00“1  - 10“0 

R(20) 

10.76824 

928.656723 

R(18) 

10.78399 

927.300318 

R(16) 

10.80002 

925.923906 

R(14) 

10.81634 

924.527554 

R(12) 

10.83293 

923.111328 

R(10) 

10.84981 

921.675286 

R(8) 

10.86697 

920.219482 

R(6) 

10.88443 

918.743964 

R(4) 

10.90217 

917.248777 

P(4) 

10.98566 

910.277955 

P(6) 

11.00503 

908.675151 

P(8) 

11.02472 

907.052844 

P(1U) 

11.04471 

905.411040 

P(12) 

11.06501 

903.749742 

P(14) 

11.08563 

902.068947 

P(16) 

11.10656 

900.368647 

P(18) 

11.12782 

898.648830 

P(20) 

11.14940 

896.909477 

P(22) 

11.17131 

895.150565 

P(24) 

11.19534 

893.372066 

P(26) 

11.21612 

891.573944 

P(28) 

11.23903 

889.756160 

P(3n) 

11.26229 

887.918669 

P(32) 

11.28590 

886.061419 

P(34) 

11.30986 

884.184353 

P(36) 

11.33418 

882.287407 

P(38) 

11.35885 

880.370512 

P(40) 

11.38390 

878.433591 

P(42) 

11.40932 

876.476562 

P(44) 

11.43511 

874.49933 

P(46) 

11.46129 

872.50181 

P(48) 

11.48786 

870.48389 

C**Oj« 

00“1  -  0200 

R(40) 

9.91788 

1008.280282 

R(38) 

9.92733 

R(36) 

9.93709 

1006.330912 

R(34) 

9.94715 

1005.312772 

R(32) 

9.95753 

1004.265463 

R{30) 

9.96821 

1003.188845 
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LASER 

BAND 

TRANSITION 

FREQUENCY 

cm-‘ 

C'*Oi« 

00“1  -  0200 

R(28) 

9.97922 

1002.082785 

R(26) 

9.99054 

1000.947161 

R(24) 

10.00218 

999.781858 

R(22) 

10.01415 

998.586771 

R(20) 

10.02645 

997.361804 

R(18) 

10.03908 

9%. 106870 

R(16) 

10.05205 

994.821893 

R(14) 

10.06536 

993.506806 

R(12) 

10.07900 

992.161553 

R(10) 

10.09300 

990.786087 

R(8) 

10.10734 

998.380373 

R(6) 

10.12203 

987.944385 

P(8) 

10.24370 

976.209763 

P(10) 

10.26149 

974.516934 

P(12) 

10.27967 

972.794124 

P(14) 

10.29822 

971.041421 

P(16) 

10.31716 

%9.258921 

P(18) 

10.33649 

%7.446731 

P(20) 

10.35620 

%5.604971 

P(22) 

10.37631 

963.733766 

P(24) 

10.39681 

%1.833254 

P(26) 

10.41771 

959.903583 

P(28) 

10.43901 

957.944909 

P(30) 

10.46072 

955.9573% 

P(32) 

10.48283 

953.941220 

P(34) 

10.50534 

951.8%562 

P(36) 

10.52827 

949.823614 

00“1  - 10°0 

R(50) 

11.10699 

900.33358 

R(48) 

11.12097 

899.20226 

R(46) 

11.13520 

898.05318 

R(44) 

11.14968 

8%.88643 

R(42) 

11.16443 

895.70211 

R(40) 

11.17943 

894.50031 

R(38) 

11.19468 

893.28113 

R(36) 

11.21020 

892.04463 

R(34) 

11.22598 

890.79092 

R(32) 

11.24202 

889.52005 

R(30) 

11.25832 

888.23212 

R{28) 

11.27488 

886.92718 
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LASER 

BAND 

TRANSITION 

FREQUENCY 

cm-* 

00“1  -  iqoo 

R(26) 

11.29171 

885.60530 

R(24) 

11.30881 

884.26654 

R(22) 

11.32617 

882.91098 

R(18) 

11.36170 

880.14964 

R(16) 

11.37988 

878.74397 

R(14) 

11.39833 

877.32170 

R(12) 

11.41705 

875.88288 

R(10) 

11.43605 

874.42754 

R(8) 

11.45533 

872.95574 

R(6) 

11.47490 

871.46751 

R(4) 

11.49474 

869.%288 

P(6) 

11.60907 

861.39566 

P(8) 

11.63081 

859.78513 

P(10) 

11.65286 

858.15839 

P(12) 

11.67521 

856.51545 

P(14) 

11.69787 

854.85631 

P(16) 

11.72084 

853.18100 

P(18) 

11.74413 

851.48950 

P(20) 

11.76773 

849.78182 

P(22) 

11.79165 

848.05797 

P(24) 

11.81589 

846.31794 

P(26) 

11.84046 

844.56172 

P(28) 

11.86536 

842.78930 

P(30) 

11.89060 

841.00067 

P(32) 

11.91617 

839.19581 

P(34) 

11.94209 

837.37471 

P(36) 

11.96835 

835.53734 

P(38) 

11.994% 

833.68367 

P(40) 

12.02192 

831.81368 

P(42) 

12.04925 

829.92733 

P(44) 

12.07694 

828.02458 

P(46) 

12.10499 

826.10540 

P(48) 

12.13342 

824.16974 
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APPENDIX  II.  SYSTEM  TO  SAMPLE  MUELLER  MATRIX  TRANSFORMATION:  3-MIRROR 
GONIOMETER  TYPE  ELUPSOMETER  FOR  IN-SITU  ANALYSES  OF  POROUS  SURFACES. 


The  sixteen  equations  that  follow  decouple  Mueller  matrix  elements  of  the  scattering 
sample  (f,y)  from  system  matrix  elements  (Equation  6b,  »j»y)  generated  by  the  ellipsometer  facil¬ 
ity  of  Figure  4a.  The  total  scattering  signal  includes  contributions  from  the  sample  and  four 
flat  mirrors  oriented  at  45*^  incidence,  and  positioned  between  transmission-  and  collection- 
beam  PEM  modulators.  # 

Elements  bij,  Cij,  and  dij  are  experimental  calibration  data  as  measured  hrom  the  confi- 
guratioi\s  schematically  drawn  in  Figure  10,  and  6  is  the  angle  of  backscattering  subtended  by 
the  goniometer  arm.  >^CSYMA,  an  interactive  s}nnboiic  mathematical  program,  was  used  in 
determining  the  product  of  the  ten  4X4  matrices  of  Equation  6b,  and  in  producing  the  Fortran  * 

code  of  the  following  equations  for  use  in  the  ellipsometer's  data  acquisition  system. 

It  suffices,  from  the  experimental  complexity  and  uncertainty  of  this  calibration  pro¬ 
cedure,  that  an  optical  redesign  that  self-compensates  all  mirror  elements  is  more  practicd  as 
a  means  of  accomplishing  sample  Mueller  element  measurements  from  terrestrial  surfaces. 

(See  Section  4.6.4.) 
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+11  +12  +13  +14 
+21  +22  +23  +24 
+31  +32  +33  +34 

+41  +42  +43  +44, 


r  \ 

/ll 

/l2 

13 

(l4 

/21 

/22j 

(23J 

(  24 

f  31 

/  32 

( 33 

^34 

I/4I 

/42J 

(43] 

^44. 

/44(e) 


+44 

b  33^^33 


/43(e)  =  - 


t|»42sin(2e)-<|»43Cos(2B) 

^33^33 


/42(e) 


l>ii»|»43Sin(2e)+&i,t|»42Cos(2e)-fc„i|»4, 

0>i2-^h)^33 


/41(e)  = 


fel2+43Sin(2e)4t>„»42COS(2e)-j>„l|»4, 


/34(e)  »  I((Ci2dl2-<lldii)d33l|l24+(Cijdi2-Cl2dii)i33+i4)sin(2e)+(C33d/2- 

C33<^?l)+34COS(2e)] 

Q>33p33f^l2-b33P33^U  >^33 


/33(e)  *  ^((Cl2<^l2-<lldll)d^^+22+(c^,<i,2-Cl2d„)d3J+,2)sin*(2e)+{(c3yi?2- 

^33'^  ?1  )+32+(Clldii-Ci2d,2)d33+23+(Cl2‘^  Il-Ciidi2)d33+,3)COS(2e)sin(2e)+ 

(C33rf  ?1  -<33^ \2  )+33COS^(2e)) 

(b33f334i2-b3aP33^h  )d33 
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12  “^11^33^11  )'l'33+(^n^l2^^12~^nCii<iil)<i33'|»22+(^llCll'^12“ 
^llCl2<iny  33’l'l2)COS(26)+(i»i2Cnd|i-4>i2Ci2di2)d33«|»21+(t  12^12^11- 
*>i2Cn‘i  I2>i  33+ii)sin(20)+(l»  jiCjad  ?2-*  iiC33<i  ii  )+32Cos2(2e)+ 


(^12<^3y^?l  "^12^33^12  )*l*3lCOS(^^)] 
((^12~^11  )C33‘^12 +(J’ll -^>12  )C33<^11  )<i33 


/3l(®)  “  [((i’l2Cl2'^12^12Cn<ill)<i33*l'23+(^’l2^^11<^12~^12Cl2^u)<i33+13)sin*(26)+ 

(((^  12^33^  12  ~^’|2C33<^?1  )*l'33+(^12Cl2^l2^12Cll<^ll)<i33*l'22+(^12Cll<^12“ 
^12^12^11)^ 33’l*i2)cos(26)+(b||Ciid|i-fcnCi2d 12)^334121 +(biiCi2dii- 

^nfll<^12)<^33+ll)sin(20)+(ti2C33<fi\-di2C33in  )4'32COS^(20)+(i>iiC33in  - 


_ ^1X^33^  12  )4>3l<^OS(2ft)l _ 

((bt2-bii  )C33<in  ■•■(^11  ~bt2  )C334lt  )^33 


/24(®)  *  I(CllC33dl2-CllC33d?l)4»34Sin(2e)+((CjV|i-Ci,Ci2di2>i334»24+ 
(CllCl2dii-CiVl2)d33+14)COS(2e)+(CiiCi2<ii2-ClVll)<^33+24+ 

_ (<^lV^12'<llCl2<^ll)<^334’l4l _ 

((*’33<^U “*33^ II  h  HbjlPu  -^33^12  )<^ II  )<^33 

/23(®)  *  ^(ClIC33<^?2~ClIC3y^ll)4»32Sin^2e)+(((c„C3^rff,- 

CllC33(ii2)4'33'*’(‘^Il<^lI'<llCi2di2)<^33’l’22‘*’(<^Il<^12‘^ll- 

CiVl2)<^33+12)COS(2®)+(CiiCi2di2-CiVll)<^33+22+(ClVl2- 

^llCl2'/llV^33+I2)sin(20)+((CiiCi2</i2-CiVll)<^33+23+(<^lVl2- 

Cll<^12‘^Il)<^33+13)«»*(2®)+((CiVlI-CllCi2<ii2)d334»23+(CllCi2<iii- 

_ ClVl2)tf33’»13)COS(2e)l _ 

{(bssfih-bilfh  )^\2  -*33‘^12  )</u  >#33 
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f  ui^)  *  ^(^’IlCnC3^dl2-l>llC^lC33df^ )i(»jjSin^(20)+(((bjiCiiC3yif2“ 

)'l*32+(^’n^ll'^n~^Il^U^12<^12)<^33+23+(i’llCllCi2<ill- 
lI^lV  12M33*l'l3)COS(26)+(b  i2CnC33d  II -fc  i2CiiC33d  n  Hai  ■*■ 
(^’llCllCl2^12-^llClV^n)</33«l»23+(^11^12‘^12~^llCllCi2<fll)^i33'l*13)sin(2®)+ 
((*’n‘^lVlI-*llCllCi2di2)d33l|»22+(i>nCllCl2<^n-fcllClVl2V33*12)COS^(2e)+ 
((^’nCllCi2^12-^ilCiVin)<^33+22+(^I2Cn^^l2<^12-^12Cll'^llM33+21  + 
(i>I,CiV,2-i»ilC„£:,2<i„)d33«((,2+(bl2CiVl2-i’l2CllCl2^n)<i33’l'n)COS(2e)+ 

(fe|2^ 12<^ll-fel2^1lCl2^12)<^ 33^*21  •*^(fcl2<^llCl2^11-fel2^lVl2y33*l*lll 

(((^>i2~*ii  y^h  +(^11  -^hyhyh  +((^’ii  -^hyh  +(^12 )c?i  ^33 


/2l(®)  *  [(J’l2CllC334i2~^l2^1lC33^?I  )*l»33Si*^^(2®)+(((fcl2CiiC33di2- 

^12^^ tl<^33^1i  )S32+(^12<^ 12^ I2)<^33'l'23+(^’ 12^11^12^  11“ 
^12ClVl2M33’l*13K0S(2®)+(bllCiiC33rfu -fciiCiiCjyf  12  )'l'31  + 
(^12C|l‘^12‘^12-^12ClVll¥33+23+(^12Ct2<^12“i’l2‘^llCl2<^ll)^33+13)S**'(2®)+ 
((®12ClVll-*12CllC,2</l2W33+22+(i>12CllCl2<ill- 

®12C  lid  l2)<^33'Vl2)COS^(2®)'^((bl2CllCl2‘*12“®  12^12*^11)^ 33+22+(*>llCllCi2d 12- 
i’llClVll)dj3+21+(i’l2ClVl2-fcl2CllCl2dii)d33l|li2+(tiiC,Vi2- 
^ll<^llCl2dll)d334lii)COS(20)+(hiicf2dil-i>nCiiCi2</i2)d33l|l2l  + 

_ (fallCi|Ci2dii-t>|iCiVi2)da3*lll _ 

(((®n“^?i  )cf2  +(^’?i “^’12)^11  )d?2  +((^?i  -^hyh  *0>h-^u  )d?i  )d33 


/ 14(®)  “  “I(‘^12C33d?2 ~^12^ 33d?!  )+34Si^(2®)+((CllCl2dn-Ci2d 12)^33+24+ 
(cf2dll-CllCi2di2)d33’l'l4)COS(26)+(C?idi2-CiiCi2dii)d33l|»24+ 

_ (<^ii<^i2di2-<'ndn)d334ii4l _ 

((^>33^ ?2  “^33^  11  )d iS  +(^’33^ 11  ”^33^ ?2  )d?l  )d33 
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/ 13(®)  *  [{ClTCi^ H U  )+32Sin2(20)+(((c,2C3y/ fi  -CiiCjjd )4>33+ 

(CllCi2d,i-CiV,2)<f33+22+(ClVn-<uCl2<il2y  M4'l2)COS(2e)+ 

(c  12-CiiC  12^  ll)d33+22+(C  IlC  lid  12-C  hd  ii)d33l|li2)sin(26)->- 

((ClV  12-<n‘^12^  n)^33'l'23+(CnCl2^  12~CiVii)<^33+13)<^OS^(26)+ 

((CllC  Xjd  n-C  ixd  I2)d  33*I*23'*'(C  ud  11-g  llC  Xld  12W 33*1*13)^05(26)] 

((^33‘^?2 “^33^  11  12  +(^’33^?!  “^33^12  Mil  33 

/l2(®)  ■  [(i'llCl2CMif2~^llfl2^33^?l  )♦33Si^^^(2®)+(((^llCl2<^3y^l2- 

^’llCl2C3y^?^  )+32+(^ll^ll‘^12<^ll“^ll<^12'^12)<^33*l'23+(^llCl2<ill- 
i'llClltl2<^12)<^33’l'l3)COS(2®)+(i’l2Cl2C33^?l-il2Cl2C33^?2)'l>31  + 
(i’llClVl2-fcllCiiCi2iii)d33l(»23+(buCllCl2^I2- 
iicfiii  n)d33i|»i3)sin(20)+((b  nCiiCi2dii-i  iiCi2<i  i2)d33i|»22+ 
(bllCiVu-*llCllCl2<^12M33+12)COS*(2e)+((i>llClVl2- 
*>llCll<^12<^ll)<^33+22+(*’l2ClVl2-*12CllC|2lillW3J+21+(^llCnCl2'^12~ 
*>11«iVii)‘^33+12+(^12^11‘^12<^12^12<^12^1iV^33’I'ii)COS(2®)+ 

(^12CiiCi2<^H-I>12CiVi2¥33*I*2i1'(^12C?1<^11~^12CiiCi2<^12M33^1i1 
(((J’i2“^?i yh  +(t’ii “^12)^11  )d\i  +((fcii -fr *2)^12  +(t’i2-i'ii  yii)du  Wa 
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/ll(®)  *  ^(^I2Cl2C3^^/l2-i>^2C^2C3^<i^)^(»3^Sin*(2e)+(((b^2Cl2C3^^/?2- 

12^12^33^  11  )'l'32+{i’  12^  11^  12^^  11“*12C  lj4 12V  33*l'23+(^  12^ \t4  11“ 
^12CllCl2‘^12y33*l*13)COS(20)+(i»|iCi2C3yfn-i)llCi2C3yii2)«|»3i  + 

{b  12C  lid  i2-^i2CiiC  12</ 1 1 334'23+(J’  12CllCi2dj2- 

^12Cll<^llV^33+13)sin(26)+((hi2CnC22<i|i-fci2Ci2<#l2M33*l'22+(i’l2ClVll“ 

J’l2CllCl2<*12M33’l'l2)<^OS^(2®)+((fcl2fll^l2^12CllCi2dii)d33+22+(t'llCi2<il2~ 

^llCllC^2^^1l)<^33’^21+(^’l2^1lCl2<^12^12Cll<^ll)<^J3l|»l2+(i’llC^lCl2<^l2- 
^’llCl2<^  llV^33’l*ll)COS(26)+(fcnCiiCi2<fii-fcnCii<ii2)d33+21 +(^iiCniiu- 

_ ^ll<^ll<^12<^12y33'l*lll _ 

(((^>?2“^ii  V?2  +(^?i  ~f>i2  )c?i  )di2  H(bii  -b  12)0 12  +(b?2“^n  )^?i  M?i  W33 
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APPENDIX  III:  APSD  ELECTRONIC  CIRCUITS.  MODULES  I-VIII 


The  Analog  Phase-Sensitive  Detector  (APSD),  designed  and  fabricated  by  Dave  Owens, 
is  an  integrated  S-module  electronic  system  that  produces  all  Mueller  elements  from  the  scat- 
tergram  in  a  highly  automated  marmer,  under  the  control  of  a  host  micro Vax  computer.  An 
experimenter  woidd  typically  initialize  the  ellipsometer  (select  sample,  analyte,  beam 
wavelengths,  incident  backscattering  angles)  and  monitor  the  automated  progress  of  the 
APSD  by  LED  readouts  on  its  front  control  panel.  The  APSD  recognizes  the  optic^  configura¬ 
tions  (Tables  3-4),  acquires  the  scattergram  (Equations  12,  14b,  16b,  and  18b),  and  makes  the 
Mueller  element  mappings  that  are  digitized,  graphed,  and  stored  on  disk.  We  provide  in  this 
appendix  the  major  .AJ^D  circuits  now  operating  in  this  ellipsometer  system. 
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FRONT  PPNEL  LOYOUT 


CORRESPONDING 

FREQUENCIES 

1 :  31  .896  khz 
2:  33.96  khz 

3:  63.79  khz 

4:  67.92  khz 

5:  4.13  khz 

6;  £5.86  khz 

7:  97.75  khz 

8:  99.82  khz 


* 


Figure  AIII.l.  The  front  panel  layout  of  the  Analog  Phase-Sensitive  Detector  (APSD).  Eight 
PSD  channels  are  represented  (1-8).  Connectors  J17-J20  and  J21-J24  are  inputs/outputs  of  the 
primary  modulator  frequencies  omegt,  <i>2,  2o>i,  and  2u)2.  R1-R16  are  the  course  (odd)  and  fine 
(even)  reference  phase  shift  controllers,  while  SW1-SW8  are  the  phase  inverters,  per  channel. 
Connectors  J1-J8  are  reference  frequency  outputs,  while  J9-J12  and  J13-J16  are  the  PSD 
(Mueller  elements)  output  channels.  R17-R24  are  the  PSD  amplitude  adjustments,  while  R26- 
R33  are  retardation  adjusters  to  transmitter  and  receiver  PEM's  and  switches  SW10-SW13 
allow  manual  or  remote  retardation  control.  LED's  L1-L5  are  status  indicators  for  the  incident 
beams  power  regulation  circuit,  while  L10,SW14  -  L13,SW17  show  operational  status  of  the 
shutter  controllers  and  allow  for  manual  or  remote  switching  between  beams. 
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BACK  PANEL  LAYOUT 


Appendix  III 


Figure  AIU.2.  The  APSD  back  panel  layout.  J25  is  die  serial  communications  link  to  and  from 
host  CPU  and  stepper  motor  cont^lers,  A/D  converter,  modulator  and  servo-motor  con¬ 
trols,  shutter  and  pyro-electric  detectw  devices. 
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J-31  AGC  DC  DETECTOR  SIGNAL 
J-32  DC  DETECTOR  SIGNAL 
J-33  AC  DETECTOR  SIGNAL 
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Figure  AIII.4.  The  APSD  back  p>anel  wiring  layout,  upper  rack. 
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Figure  AII1.6a.  The  APSD  control  panel  to  back  plane  wiring  harness.  (Reference  phase 
control  and  output.) 
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Figure  Alll.Sb.  The  APSD  control  panel  to  back  plane  wiring  harness.  (Reference  phase  control 
and  output.) 
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Figure  Ain. 7a.  Flowdiart  of  PEM  modulator,  frequency  synthesizer  and  multiplier,  and  jrfuue 
adjustment  circuits  cf  the  AFSD  (Modules  MU). 
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ANALOG  MULTIPLIER  BOARD  SCHEMATIC 
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Figure  AIII.Tb.  Schematic  of  the  APSD  analog  multiplier  board  (Module  II). 
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FILTER  AMD  PHPSE  BOARD  LAYOUT  (SOLDER  SIDE) 
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Figure  AIIlJc.  The  APSD  filter  and  phase  board  layout  desig;n  (Module  HI). 
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Figure  AlU  Jd.  Schematic  of  the  APSD  sinusoid  waveform  generator  (Modules  I). 
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Figure  AlllJe.  The  APSD  sinusoid  waveform  generator  board  layout  design  (Module  I). 
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Figure  AIII.S.  Flowchart  of  phase  references,  the  Phase  Sensitive  Detectors,  and  the  DAEDAL 
ST701  A/D  board  circuits  of  the  APSD  (Modules  IV- V). 
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Figure  Alll.Sa.  Module  V  pin  connections  to  the  DAEDAL  ST701  A/D  microprocessor. 
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Figure  AIIl.9b.  Module  V  wiring  assignments  of  J-49  connector  to  the  DAEDAL  ST701  A/D 
microprocessor. 
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PHASE  SENSITIUE  DETECTOR^  A/D  CONUERTER 
UlRING  DIAGRAM 
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Figure  AIII.IO.  A/D  converter  (Module  V)  to  Phase  Sensitive  Detector  wiring  assignments. 
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Figure  AIILll.  Autcnnatic  gain  control  and  amplification  circuit  (Module  VI). 
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Figure  Alll.lla.  The  inddent  beam  power  regulation  circuit  Module  VII.  The  feedback  loop 
acts  between  the  pyroelectric  detector  output  and  the  servo  motor  that  adjusts  the  transmis¬ 
sion  axis  of  a  polarizing  crystal. 
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Figure  AUl.l2b.  Layout  of  the  APSD  incident  beam  power  regulation  servo  plug 
cord  (Module  VII). 
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4  -  SHUTTER  CONTROL  CIRCUITS 


Figure  AIII.13a.  The  APSD  Serial  Address  Gateway  (SAG)  system  (Module  Vni). 
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Figure  Ani.l3b.  The  serial  data  cable  from  the  SAG  to  the  stepper  motor  controller  (Module 

vm). 
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Figure  AIU.14.  Wiring  diagram  between  transmitter  and  receiver  photoelastic  modulators 
(retardation  ctmirol)  and  die  SAG. 
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Figure  Alll.lSa.  The  APSD  shutter  control  board  for  switching  between  incident  beams.  The 
shutter  drive  unit  is  the  model  100-2B  UniBlitz  design  of  Vincent  Associates,  Inc. 
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APPENDIX  IV:  SOURCE  CODE  OF  THE  ANALOG  APSD  SOFTWARE  MODULES. 


Program  LISA  (Light  Scattering  Apparatus),  written  by  Charles  Heiuy,  consists  of  32 
FORTRAN  77  subroutine  modules.  This  appendix  includes  a  flowchart  of  ^ese  modules  as 
integrated  into  the  APSD  unit,  and  their  source  codes. 

When  entering  “RUN  MAIN",  LISA  prompts  for  five  options:  (1)  begin  a  new  experi¬ 
ment;  (2)  review  collected  data;  (3)  calibrate  optics;  (4)  calibrate  A/D  converter;  and  (5)  exit.  In 
Step  (1),  a  header  block  of  information  is  established  before  the  experiment  is  executed.  That 
information  includes  (a)  the  operator  lume,  (b)  the  ntunber  of  scattering  samples,  (c)  the  sam¬ 
ple  luune,  (d)  whether  the  sample  is  dry  or  contaminated,  (e)  the  start  and  fii^  backscattering 
angle  selections,  (f)  the  resolution  of  backscattering  angle  scan  between  these  limits,  (g)  the 
number  of  lasers,  and  (h)  the  wavelengths  of  the  laser  beams.  LISA  will  then  ask  whidi  com¬ 
munications  port  with  parity,  bits,  baudrate,  and  mode  is  linked  to  the  Serial  Addressable 
Gateway  (SAG).  LISA  then  prompts  for  whether  real-time  graphics,  real-time  A/D  chaimel 
voltages,  or  neither  are  to  be  presented  on  the  screen.  (If  'neither*  is  selected,  the  experiment 
will  run  faster.)  After  these  data  are  entered,  the  experiment  proceeds  automatically.  Steps 
(2)  and  (5)  are  self-explicit.  The  calibration  Steps  (3)-(4)  will  typically  be  performed  before  and 
after  a  long  trial  of  experiments  (see  Sections  4.6.1  -  4.6.2). 

We  now  present  the  system  flowchart  followed  by  its  source  code  modules  (see  also 
Section  4.7). 
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Figure  AJV.  1  Light  Scattering  Apparatus  (LISA)  flowchart  of  system  software  modules. 
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Figure  AIV.l  -  continued 
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Figure  AIV.l  -  continued 
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AIV.l  Analog  APSD  Software  Modules:  BUBBLE_UP  Source  Code. 


I  SUKOUTWE  ■UaKEJUrCAUtAY.SIZE) 

1 


C  IHE  B  A  ASCENDINCINTECEKBUB8U  SORT  ROUTINE.  ANARRAYB 
C  PASSED  n  THAT  E  SORTED  FROM  I -1000.  SIZE  E  THE  NUMBER 

C  OP  DBMS  M  THE  ARRAY  THAT  THE  USER  WANTS  SORTED. 

C - - - 

■ 

f  NIECER  ARRAY,SIZE.HOU>,BUP 


:o 

DEflENSION  ARXAyni.BI]H3l)) 

11 

L-0 

12 

13 

10 

HOLD -1000 

14 

I-o 

15 

16 

DOTOI-  1.SIZE 

!  LOOP  THRU  the  ARRAY 

17 

ip(array(I).ce.h(MD)coto  to 

1< 

HOLD  -  ARRAY(I) 

1  HOLD  LOWEST  NUMBER  M  HOLD 

19 

I-I  ! 

KEEP  PLACE  OP  LOWcST  NUMBER 

30 

20 

CONTEIUE 

(  END  LOOP 

21 

22 

l-Lf  1 

1  MCREMENT  ARRAY  COUNTER 

23 

BUP(L)-HOLD 

24 

ARRAY(D  •  1000 

1  PLACE  BR:  NUMBER  WHERE 

25 

IP(L.EQ.SIZE)COTO30 

1  smallest  WAS. 

26 

GOTO  10 

27 

2t 

30 

DO40I-  1.SIZE 

29 

ARRAY(I)  -  BUPCI) 

30 

40 

CONTMUE 

31 

32 

return 

33 

END 
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AIV .2  Analog  APSD  Software  Modules:  CMIX  Source  Code. 


1 

SUOKCXniNE  CMIX(ltNUM,CNUVI) 

2 

4 

C 

1205  ROUTINE  E  DESIGNED  TO  TAKE  IN  AREAL  NUMBER<UNDER 

3 

C 

AND  CONVERT rriO  A  character  FOR  USE  WITH  A 

6 

c 

GRAPHICS  ROUTINE. 

• 

9 

REAL  RNUM  R1,RPLC,RBUF 

10 

CHARACTER  CNUVP6 

11 

DIMENSION  R1(5).RPLC(4).n<6) 

12 

DATA  RPtjaioao.,iao.,io.,i./ 

13 

CNUM-" 

U 

1 

PORMAT(P6.2) 

IS 

16 

RBUP-RNUM 

\7 

18 

DO  10 1-1,4 

19 

IP(RNUM.CE.RPLC(I))THEN 

20 

RI(I)-RNUM«PIjC(I) 

21 

n(i)-iPix(Ri(i)) 

22 

RNUM-RNUM-(FLOAT<I1(l)rREtC(I)) 

23 

24 

ELSE 

25 

l1<I)-0 

2« 

ENDIP 

27 

10 

CONTINUE 

28 

29 

IF<RNUM.CE..1>THEN 

30 

R1(S)-RNUM/.1 

31 

n(6)-inx(Ri(srio) 

32 

n<6)-ii(6yio 

33 

ELSE 

34 

n(5)-o 

35 

ENDIP 

36 

37 

CNUM(1:1)-CHAR(nO)»46) 

36 

OIUM(2:2)- CH  AR(I1  (2)  «46) 

39 

CNUM(30)-CHAR<I1P)»48) 

40 

aiUM(4;4)-CH  AR(I1  (4)*48) 

41 

CNUM(5;5)--.' 

42 

CNUM(6«)-CHAR4n  (6)446) 

43 

44 

DO  20 1-1,6 

45 

IP(CNUM<I:I).EQ.CHAR(46))THEN 

46 

CNUMIH)--- 

47 

ELSE 

48 

GOTOW 

6* 

ENDV 

50 

20 

CONTEIUE 

51 
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52  30  RNUM  -  RBUP 

53 

5«  REIURN 

5S  END 
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AIV .3  Analog  APSD  Sofhoare  Modules:  DATF.I.  1  Source  Code. 

1  SUBROUTWEDA'm/rrrEplUEPOiCT.PCMtT.ICNT.CHAN.IPAT.HEX) 

2 
3 


5  C 

6  C  TM«  nod  to  dlllgitoci  Is  MUsIt  the  oeeuliv*  tov«l  eoMral 

7  C  oonotonds  for  thsdstcl  701  A/D  convener.  ‘nwflnlpsflwshM 

•  C  Ihe  ejmen  wHh  e  antoie  eonMl.  The  eeecutive  to  erreiertl 

9  C  by  Ihe  himan  ooninend  (Une  10).  The  converter  trOI  leepond  wMi 

10  C  en  echo  of  the  neeg  end  provide  e  cerrtage  oontrol  tP  eid  (ivc  en 

11  C  ee  e  pronpl  (chemcler  eliing  41).  At  Ihto  point 
11  C  the  ejrelcfn  to  reedy  to  oolleel  dele. 

13  C 

14  C  At  Ihto  point  the  converter  echoe  the  cooimend  end  inihelie  e  LP 

15  C  CB  which  I  look  for  end  ooiil  fooin  the  dele  coneclfon.  The  dele 

W  C  vehaee  oome  in  e  long  etrtng  eepereled  by  IP  C3L  I  look  for  Iheee 

17  C  end  k  to  tieed  to  ehepe  the  dele  to  Ihet  individuel  numbefi  con 
10  C  be  pieced  In  en  eney  celled  '  BOAT 

19  C 

10  C 

11  C  TYPE  -  THE  PUNCnON  TO  BE  PEBPOBMED  BY  THIS  BOUTINE 

22  C  0. -DimAUZEANDSTBOBEOCHANNEU 

13  C  1.  -  MnUUlX  THE  Ad3  TO  EXECUTIVE  MODE  ONLY 

24  C  1,  -  STBOBE  ONLY  ONE  CHANNEL  PASSED  IN  BY  '  CHAN  * 

25  C  3.  •  STBOBE  CHANNELS  0  - 14  BASED  ON  KNT 

16  C 

27  C  BEPOBT -EBBOBPLAC  WHEN  SET  TO  I  INDICATES  THAT  THE  BCXmNE 

20  C  DID  NOT  PUNCnON  COBBECTLY.  THIS  B  PASSED  BACK  TO 

29  C  THECALLEB 

X  C 

31  C  POUT  -THB  6  THE  SEBIAL  PORT  DEFINED  BY  THECALLEB  THAT 
M  C  WILL  K  USED  FOB  THE  ATT  COMMUNICATIONS. 

X  C 

39  C  KNT  -  THE  NUMBEB  OP  DATA  ELEMENTS  (  OB  CHANNEL  NUMBERS ) 

M  C  THAT  DATA  6  BEING  COLLECTED  FOB.  THBBREQUIBED 

X  C  BY  THE  HEXDEC  SUBROUTINE. 

37  C 

X  C  CHAN  -  THE  B4DIVIDUAL  CHANNEL  NUMBEB  TO  BE  STROBED.  PASSED 
X  C  prom  the  CALLER 

40  C 

41  C  BOAT  -  ARRAY  OP  REAL  NUMBERS  CONVERTED  PROM  HEXIDECIMAL 

42  C  DEPIA4C  THE  RELATIVE  VOLTAGES  FOB  EACH  channel. 

43  C  THE  6  PASSED  BACK  TO  THE  CAUEB. 


45 

46  character  MSG.A*»,TDAT»1,ENDDAT>5,TURN0N*19,CS.CR.IP 

47  CHARACTER  MSC1>X,PORT«10,MESC’S12,CDAT'4.QUIET>3 

«  CHARACIERSTROBEX,CHAN*2.CNT*9.HEX’4,A2DJNPirr6.E>1 

69 

X  »nECER*4T»>IEOUT.LENJTRB9C 

51  NIECER  EIZE.IOUT,CHANNEI.TYPE.REPORT 
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52 

53 

54 

55 

56 

57 
56 

59 

60 
61 
62 

63 

64 

65 

66 
67 
66 
66 

70 

71 

72 

73 

74 

75 

76 

77 
76 
79 
60 
61 
62 

63 

64 

65 

66 
67 
66 
69 

90 

91 

92 

93 

94 

95 

96 

97 
96 

99 

100 
101 
102 

103 

104 
108 


REALIDAT 

DIMENSION  RDATn6),HEX(16),A2DJNPin'(16) 


L  -0 
E  -  CHAIt(27) 
CS  -  CHAR(29) 

at  -  CHAII03) 

IP  -CHAROO) 
KNT-  10 
lEM  -0 


TIMEOUT-  1 
RESCAN  -0 

turnon  -•ST-TOI  EXECUTIVE  ON' 

L£N_STRINC  -  512 

C  Ores,'4,mE-'iWA3;'.STA'tUS-'NEW,CARRlACECONTROL  -  "NONEO 


ll'(TYI>E.EQ.3.OR.TirPE.EQ.2)COTO40  I  STROeiNC  FOR  DATA 
IPfIYPE.EQ.1.OR.TYPE.EQ.0)THEN  !  USERS  S  INTIIAUZINC  THE  BOARD 


2  FORMAT(A1) 


10  FORMAT  (A30) 

1VRnEO,'(A4)TCS#TX)  •  !  CLOSE  EXBTINC  COMMUNICATIONS 

CALLTWATFO)  (  PAUSE  .2  SECS 

WRnE(3/(A4)TCS//T)4'//CR  !  WAKE  THE  CONTROLLER  BOARD 


CAILTWATTO)  !  PAUSE  .2  SECONDS 

RE*  -  0  !  RIITTALIZE  ERROR  COUNT 


16  WRITE(3.'(Aiy)CR 
CAILTWATTO) 


t  CARMACE  CONTROL 
I  PAUSE  .2  SECONDS 


CALL  READ.QtO  (FORT.MESC.LEN  JTRINC.TTMEOOT.I5IZE.IOOT. 
.CHANNEL.MUSE) 


C  WRITE(4,*)I5IZE.-  DITHAUZINC  MESC  -  '.MESC 


DO  17 1  -  I.EOE  ♦  5  !  CHECK  FOR  A  FROMPT 
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106  ■>(MESC(i:l).EQ.'-')COTO  20  !  COMMAND  MODE 

107  V(MESC(i:l>.EQ.'«‘XX}TO  20  !  COMMAND  MODE 

!0»  P(MESC<l:l).EQ.'’0CX}TO30  !  EXECUTIVE  MODE 

100  17  CONTINUE 

110 

111  EKR-EMltl  I  egCREMENTElUtOO  COUNTER 

112 

113  V(IERR.EQJpHEN 

114  REKMCT  -  1 

115  GOT0 1000 

116  ENDII> 

117 

lit  COTOM  I  CO  TRY  TO  WAKE  IT  ACAM 

119 

IX  C - 

121  C  TOBWRnB  THE  MESSAGE  *ST701-EXEarnVE  ON' TO  THE  BOARD  TO  SET 

122  C  THE  MODE  TO  EXECUTIVE.  WHICH  THE  BOARD  WIU  ANSWER  WITH  A  '  " 

IX  C - 

124 

IX  X  ERR  -  0 

IX 

127  X  DO  27  I  -  1,19 

IX  WRnE(3,'(AnTURNON(I:l) 

IX  27  CONTINUE 

IX 

131  WRnE(3.'(Ar)CR 

IX 

IX  CAUTWArr(2)  •  pause  1/2  second 

1M 

IX  CAU.READ_Q«3(PORT,MESC.LEN_STRINC.nTME.I5IZE.IOUT, 

IX  .CHANNELMUSE) 

IX 

IX  V(R3UT.EQO)COTDX 

IX 

IX  ERR  -  ERR  *  1 

141 

142  P(ERR.EQJ)THEN 

143  REPORT-  I 

144  COTOIOX 

145  ENDE 

146 

147  COTOX 

140 

1M  C - 

IK 

151  X  L  -  0 

152  X  E(TYTE.EQ.1)COT0 1000  I  MniAUZATION  COMPIETE 

IX  I  RETURN  TOCAUER 

154  ENIMP 

IM 

IK  C - - - - 

IX  C  THE  part  ASKS  THE  AX  TO  STROBE  ITS  CHANNEIS 

IX  - - 


I  THE  A/D  BOARD  ANSWERED  MOVE  ON 

I  MCREMENT  ERROR  COUNTER 

!  NOT  COMMUNICATWC  WITH  A/D 
!  SETERRORPLAC 
!  RETURN  TO  CALIER 


I  NOT  COMMUNiCATINC  WITH  A/D 
I  SETERRORPLAC 
I  REIURNTOCAUER 
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1*0  40  WMreo/(A4nCS//TX)-  I  aX»  EXBTWC  COMMUNICATIONS 

Ml 

142  CAIiTWAirp)  IFAUSEJSECS 

lO 

1*4  WITre(3.'(A4nCS//lM7/at  !  CONIXOLB  TO  AX>  BOARD 

1*S 

14*  CALLTWAITP)  I  PAUSE  J  SECONtX 

M7 

1M  - - 

1«*  C  THE  REMOVES  THE  MOTOR  CONTROLS  PROM  THE  READ  BUPFER 

170  C - - — - 

171 
171 

173  CAU.READ_QiO<PORT,MESC.l£N.STRlNC,nME.EIZE.IO(rT. 

174  CHANNEUINUSE) 

175 

17*  C  1«RnE<4,>rGIZE  -  MSIZE 

177  C  WRnE(4,*rMESC  - '.MESC  •  TEST  DATA 

ITS 

179  ERR-0 

ISO 

181  43  WRnE(3,-(A9n-AS0,9,S‘//CR 
1*2  C  WRnE(4,-(A9)rAS0,4.S‘//CR 

Its 

IS4  READ(3.'(ASI2)'.ERR-42)MESC 

Its 

11*  c - — _ _ 

1*7  C  THIS  PART  LOOKS  FOR  THE  MESSAGE  SENT  OUT  THAT  IS  ECHOED  BACK  TO 

1«*  C  THE  serial  PORT.  ONCE  THIS  IS  READ  THE  REST  OF  THE  INPUT  STRINC 

1*9  C  6  DATA. 

190  - - - 

191  START  -  1 

192  t34T-10  I  STROBE  FIRST  9  CHANNELS 

m 

194  45  00501 -l«  !  SEARCH  FOR  PART  OF  THE  STROIC 

195 

19*  RHMESC<|:|  ♦  1).EQ.'AS'.OR.MESC0:|  :•  1).EQ.'AKTCOTO  70 

197 

19*  50  CONTINUE 

199 

200  - - 

201  C  THB  E  AN  ERROR  CATCHING  PORTION.  IP  NO  STRB4G  B  POUND  THEN 
302  C  I  try  UP  TO  5  times.  IF  I  STILL  GET  NOHHERE I  SET  REPORT  -  1 

203  C  AND  RETURN  TO  THE  CALLER. 

304  C - - - - 

205 

20*  aatR-ERX»1 

207 

20*  B(IERX.EQ.*)THEN 

209  REPORT-  I 

210  GOT0 1000 

211  ENINP 

212 

213  GOTO*!  I  STROBE  THE  AID  AGAR4 
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214 


213 

21( 

c- 

217 

20 

DOI0l-BTAItT,ICNT  !  READ  M  THE  HEX  DATA 

21( 

219 

ltEAOC3.-(A()>2DJNnmi) 

220 

C 

wiinE<4.*)i'  •,A2DjNFirr(iy/CR 

221 

222 

223 

•0 

CONTMUE 

224 

225 

22( 

c 

1HB  COGS  AND  SCANS  CHANNE13  7  ■  10 

227 

220 

229 

P(RESCAN.EQ4nHEN 

230 

■ESCAN  -  1 

231 

BTART  -  11 

232 

KNT-  11 

233 

234 

13 

WWIEO-TAOTAK  10,S7/C« 

233 

C 

W«ITE(4/(A7)7AK  10.S' 

23* 

237 

CALLTWArrO) 

230 

23* 

■EADp,-(A23Sr,EM-(5)MESC 

240 

241 

CCm>4S 

242 

END* 

243 

c 

245 

c 

THB  PART  ASSUMES  THAT  THE  REST  OP  THE  READ  ST11B4C  IS  HEX  DATA 

34( 

c 

SEPARATED  RY  carriage  RETURNS  AND  LME  FEEDS.  lUSETHESEAS 

247 

c 

(REARS  (ETWEDK  THE  NUMRERS  AND  PLACE  THE  MDMDUAL  NUMRERS 

2«t 

c 

(4  AN  ARRAY  HEX 

249 

290 

c 

251 

00 

t-0 

232 

K-0 

233 

294 

DO  110  M-  1,11 

233 

29* 

257 

c . 

c 

THB  DETERMtiiES  W  THE  DATA  B  MDEED  HEX  OR  |UST  CARRACE. 

290 

c 

V  ns  GARBAGE  1  GO  READ  ACAM 

299 

c— 

no 

241  D0 100 1  -  U 

2(2 

2M  P(A2DJNnn<M)(»>.LT.CHAI((40.0lt. 

2(4  .A2D>mnp«)(l:l).CT.CMA1VnWXn^  100 

2(S 

Ji*  l-L*1  I  MCaOOENTCHAIlACmiCNT 
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a>AT(H)  -  A2DJNnjT(MXI;D  !  PLACE  DATA  M  ARKAV 


aw 

270 

■M.EQ.4)1HEN 

!  CAN  ONLY  HAVE  4  CHARA'S 

271 

WlC-0 

1  KTHAUZE  DATA  PLAC 

272 

L-0 

1  RESET  character  CNTER 

273 

HEX(M)  -  CDAT(1:4) 

!  PLACE  DATA  IN  ARRAY 

274 

CDAT-  •• 

275 

COTOIIO 

27f 

ENDIP 

277 

27S 

100 

CONDNUE 

279 

290 

110 

CONTVJUE 

1  CONTINUE  THRU  LOOP 

2S1 

292 

293 

c 

THB  KEQUE5TS  THAT  THE  HEX  CHARACTER  DATA  RE  CONVERTED  TO  REAL 

294 

c 

DATA  TO  K  SENT  RACK  TO  THE  CALLER. 

295 

296 

c— 

297 

13S 

CAU  HEXDEC(HEX,RDAT.ICNT) 

299 

299 

WRnE<3/(A4)-)CS//TX)  • 

!  CLOSE  EXET1NC  COMMUNICATIONS 

290 

291 

CAUTWAirp) 

1  PAUSE  a  SECS 

292 

293 

WRnEO,-(A4)')CV/T03'//CR 

■  CONTROL  6  TO  SAMPLE  STAGE 

29* 

293 

CALLTWAfTO) 

!  PAUSE  .2  SECONDS 

29* 

297 

1000 

RETURN 

299 

END 
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AIV.4  Analog  APSD  Software  Modules:  DECODE  Source  Code. 


1  suMOUTWE  OECotx  (ciN.enoirn 

2  O'"  . .  . . 

3  C  THE  EDECODE-POR  CALLED  BY  THE  PANEL  SUKOUmEP^.KM 

4  C  TTE  OVEN  THREE  BYTES  generated  BY  THE  MOUSE  THAT  WILL 

5  C  BEDECODEDTORETURN  APKKIDPOR  APARTKULARPANEl. 

4  C  CM  E  THE  3  CHARACTER  MPUT  STRING  AND  MTOUTE  AN 

7  C  MTECER  SENT  BACK  TO  THE  CALLER. 

(  O'" . . . . . 

« 

10  CHARACTER  *3  CM 

11  C  CHARACTER  *C)CM 

12  »ITECEIf4  HI1.Hn.lj01 

13  C  AN  MTECER  REPORT  E  ALWAYS  MCODED  AS  3  BYTES. 

14  1-0 

15  I-It1 

14  HT1-ICHAR(CM(I:I»32 

17  l-NI 

14  Hn-ICHAR(CM<EI»32 

1»  l-M 

30  tj01-R:HAR<CM(U)K>3 

21  l-IM 

22  C  DECODE  THE  3  BYTES  TO  OBTAM  THE  BflECER  VALUE. 

33  »rTO(JT-HT1'1034tHI3*14«|MOO<L01,14) 

34  V(MOO<L01/14.3).EQ.O)  B4TOOT-MTOUT 

25  RETURN 

34  END 
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AIV.5  Analog  APSD  Software  Modules:  DRAW _FJ  P  Source  Code. 


1 

2 

3 


( 

< 

10 

11 

12 

13 

14 

15 
l« 
17 
It 
1« 
V 
21 
22 
23 
M 
25 
25 
27 


30 

31 

32 

33 

34 

35 
35 
37 

30 

35 

40 

41 

42 

43 


SUaaOinME  0«AWaU(S1MEEP.ANCI£.KAIIM.Iia4at.ll£ND.ItOAT, 

.MUSE) 

c— — - 

C  1HE  MOO  MAWS  A  CRAm  OP  THE  USEK  SELECTED  elements  FOR  EACH 
C  SWEEP  OP  THE  SAMPLE  stage.  THS  B  MTENDED  TO  K  SOMEWHAT  REAL 
C  HME  SO  USER  CONTROL  OMTITED. 

C _ _ _ _ 


CHARACTER  TEXTTS,TEXTI*3S,TEXT2*3S,TEXt3T5,TEXT4*35 
character  CNUMMO,COL*3,LAST_PT*5.START*6,ENI>‘6 
CHARACTER  E.A'S.SELn.SPACE>40,CT>6,B,AI*S 
character  CURREN1*5.MCREMENrt,POINT'5 

MTECER  RECCNT,REC,IPLC,X.Y,BUSY,MATRIX 
EUTECER  X2,Y2.X3,Y3 

REAL  RARM.RMCR.REN0,RDAT,RBUP.ANCLE.R1,R2 
DIMENSKM  1I>AT1(10)iLOAT2(10),LOAT3(10),LDAT40Q) 
DMENSKM  LAST_Pr(9)kPOINT(9).ICHAN(9) 
dimension  IA(niR(«).ICm.lDN).RDATnt).IEL£(15>.RBUF(«) 
COMMON  LDATI.IDAT2.LDAT3,IDAT4 


C. - - - 

C  THESE  ARE  THE  MATRIX  ELEMENT  ARRAY  NUMRERS  THAT  ARE  COLLECTED 

C  RY  EACH  PERMUTATION  OP  THE  POLARIZERS. 

C. - - 


DATA  lA  !  1,L4,5.5A13,14,I5' 
DATA  ■  /  14.4.«.10.I2.13.14,1N 
DATA  1C  /  14.4A7J.13,15,W 
DATA  R>  / 1^,4,5,11.12,13.15,15/ 


!  VERTKAl.  VERTICAL 
!  VERT1CAU45DEC 
!  45  DEC  .  VERTICAL 
t  45  DEC  ,45  DEC 


3  FORMAT  (40r')) 
WRfTE<5PACEJ) 
E-CHAROT) 


44  wunEC-nEz/Tvir 

45  WRnEr.*)E»Xr 


I  DBABLE  DIALOG  AREA 
!  CLEAR  THE  DIALOG  AREA 


47  C - - 

40  C  THB  SETS  UP  THE  DIAIOC  AREA  SO  THE  USER  HAS  AN  H3EA  WHAT  B  REMC 

05  C  DBPLAYED.  TTS  REPORTS  THE  CURRENT  POLARIZER  POSmON.  THE 

50  C  start.  END  and  RKREMENT  OP  THE  SAMPLE  STAGE  ANCLE.  ADOTTIONALLY, 

51  C  TT«  CURRENT  ANCLE  OP  t4C1DENCEB  DBPLAYED. 
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S3 

S4 

PCMUSE.EQ.2nT1EN 

!  MmAUZE  COUNTEES 

55 

MUSE-0 

56 

MUSE1  -0 

57 

ENDF 

St 

5> 

V<MUSEXQ2VniBg 

1  ONLY  NEED  TO  ESTABU5H 

«0 

*1 

CAU  CMIX(RA>M,STAItT)  1  TEXT  ONCE  FOE  INE  WHOLE 

62 

63 

CAU.  CMIX(I(END.END) 

1  EOUIME. 

«4 

65 

CAU.  CMR(IIMat.MCIIEMENT)  1  STAKT,  END  AND  MCEEMENT 

66 

! 

AEE  MADE  CHAEACTEES  HEEE 

67 

TEXT!  -  ‘STAET  ANCtE'/STAKT//’  END  ANCIEV/END 

6t 

TEXT2  -  ’ANCIE  MCEEMENT;  7/MCEEMENT 

«9 

TEXn  -  'CUEEENT  ANCIE  DcgiM*' 

70 

72 

C 

THB  SAVES  THE  ELEMENTS  that  WILL  BE  CEAFHED  FOB  EACH  FOLAEIZEE 

73 

c 

FEBMUTATION  TO  AN  AEEAV. 

74 

75 

u 

P(BWEEF.EQ.11ITHEN 

1  FOLAEBEES  VEET,  VEXT 

n 

n 

TEXT  -  -FOLAEIZEES:  VtfOat  V^rttaT 

7* 

OO70l-l,lOATl(t0) 

1  HEAD  THE  Ad>  CHANNELS 

to 

KHANd)  -  LDATKI) 

t  MTO  A  BUFFEE  AEEAY 

tl 

70 

CONTE4UE 

t2 

ss 

evD  -  LDAT100) 

t  SAVE  COUNT  ON  ELEMENTS 

t4 

•s 

DO  75 1  -  t.t 

1  LOOPTHEUMATEIXELE 

tt 

EU(I)-IA(I) 

SAVE  M  AEEAY 

■7 

75 

CONTMUE 

m 

m 

EISEIF(BWEEF.EQE)TNEN 

50 

fl 

TEXT  -  -FOLAEBEES;  VcMaL  45  Dtgim' 

«2 

DOtOI-1.U>AT3(10) 

!  EEAD  THE  A/D  CHANNELS 

«3 

ICHANd)  -  lOAT2d) 

!  V4TO  A  BUFFEE  AEEAY 

M 

•0 

CONTE4UE 

«S 

n 

BND-U7AT200) 

1  SAVE  COUNT  ON  ELEMENTS 

f7 

tt 

OOtSI-  l.t 

1  LOOFTHEUMATEKELE 

m 

mufD-m 

1  SAVE  M  AEEAV 

100 

ts 

CONTVJUE 

101 

1« 

X-  X-MCE 

103 

m 

EtSOFIBWEEP.EQJEdMEN 

MS 

-163- 


Appendix  IV 


TOCT  -  TOLMIZERS:  45  Dtsm*.  Vtfter 

107 

DO90l-1,U>A'n00) 

!  READ  THE  A/D  channels 

lot 

ICHAKKI)  -  LDATKD 

!  MTO  A  KIPPER  ARRAY 

lot 

90 

CONTWUE 

no 

END  -  LDAT300) 

!  SAVE  COUNT  ON  EUMENIS 

111 

112 

DO  95 1  -  1,9 

1  LOOP  THRU  MATRIX  ELE 

113 

ELE<I)-IC(I) 

!  SAVE  IN  ARRAY 

114 

95 

CXINTINUE 

115 

X  -  X  t  MOI 

lit 

117 

E1SEV(BWEEP.EQ.4)THEN 

lit 

119 

TEXT  -  TOLAEIZEES;  45  Dtgran,  45  D*gn«t' 

120 

D0100I-1,IDAT400) 

•  READ  THE  A/D  CHANNELS 

121 

ICHANO)  -  LDAT4(I) 

!  INTO  A  BUPPER  ARRAY 

122 

100 

CONIWUE 

123 

END  -  IDAT4<10) 

1  SAVE  COUNT  ON  ELEMENTS 

124 

125 

DO  105 1  -  1,9 

!  LOOP  THRU  MATRIX  ELE 

12t 

E1£(D-ID(I) 

t  SAVE  IN  ARRAY 

127 

105 

CONTWUE 

12t 

X  •  X  -  MCE 

129 

130 

ENDE 

131 

132 

c— 

133 

C 

flAC  THE  SEE.EU  ROUTINE  TO  DRPlAY  THE  ELEMENTS  THAT  ARE 

134 

c 

rossnu  TOR  THE  SWEEP 

135 

c _ 

13t 

137 

matrix  -  1 

13t 

CALL  SEE_ELE(BWEEP.MATRIX.MU) 

139 

140 

c _ 

141 

c 

THE  PART  DRAWS  THE  TEXT  TO  THE  DIALOC  AREA  WINDOW. 

142 

c— 

143 

144 

EEc-teo 

145 

CALL  »ITRPnEEC.SEC) 

14f 

WRTEr.TEWKV/SEC 

147 

wRnEr,’)Brsr/sEc 

140 

wRnEp.TEmrr 

149 

X3-  120 

150 

Y2  -  350 

151 

CALLHIY(X2.Y2.A1) 

152 

WRnEf.’lE/TLr//A1 

153 

WRnEr.TEffXTWffTEXT 

154 

155 

Y2- Y2-1fl0 

I5f 

CALLHnr(X2.n.Ai) 

157 

wtnET.TEirMTi- 

19t 

wRmr.TBnroAi 

199 

WRnET.TBfLTir/iaEXTI 
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« 


MO 

Ml  Y2  -  Y2  •  100 

102  CAU.HIV(X2.Y2.At) 

MS  w«rrer.TB/T^*Ai 

iM  wiincr.')E/n.Tw//TExn 

165 

166  Y2  -  Y2  - 100 

167  CAU.HIY0aY2.A1> 

160  witrrEr,’)E//iP’//Ai 

169  wi(irer,*)E//TT»r//rE3cn 

170  MaOTEr.fE/rSC 

171 

172 

ITS  EEC -ISO 

174  CAU.  INTVrF(EEC,SEC) 

175  WUTE(*.’)E//W//SEC 

176  wiinEr.*)E//wio' 

177  CAU.TWArr(10) 

170  wiinEr.*)E/7sr/fiEc 

179 

100  ENDIP 

101 

102  C - 

IIS  C  THBWWIESTHECUIUtENTMCIDENTANClETO'mEDIALOC  AREA 

104  C - 

IIS 

106  CAU  CMIX(ANCl£.ailWENT) 

107 

110  X2-000 

109  Y2-  25 

190 

191  WRnEp,*)B/TKPr 

192 

193  CAU  HIY0aY2.A1) 

194  1lWnEp,TE/rtF’»A1 

195 

196  X2  -  X2  t  300 

197  CAU  HnroaY2.Ai) 

190  WUTEC.*)Em:'//A1 

199 

200  ¥2  -  Y3  »  105 

201  CAUHrY0aY2.A1) 

202  witnEr.*)E/ru:77Ai 

203 

204 

208  X2-X2-300 

206  CAUHrY0aY2.A1) 

207  wumr.'lE'PuroAi 
200 

209  Y2  -  Y2  - 105 

210  CAUHIY(X2,VXA1> 

211  WltnE(*.')E0l£'OA1 

212  WWTEr.TBrtr 

213 
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214 

V2-Y2t2$ 

215 

CALLHIYOaVlAI) 

216 

217 

wRrrer.TC/np-//Ai 

2U 

WRnsr.*)E/ninr 

219 

WRnEf,*)E/ri.T67/CURRENT 

220 

WRITE(*.')E//l>*n' 

221 

222 

C*“ 

223 

c 

nos  CHECKS  TO  SEE  IF  IHE  USER  WANTED  TO  OMTT  DRAWING  THE  GRAPH 

224 

c 

FOR  THE  SFEOPIC  SWEEP.  THE  tOTH  ELEMENT  CONTAB4S  THE  NUMBER 

225 

c 

OF  THE  9  ELEMENTS  THAT  WILL  BE  DRAWN. 

226 

227 

225 

229 

IF(EWEEP.EQ.1)THEN 

230 

IF(IOATT(10).EQ.O)GOTO  1000 

•  NO  ELEMENTS  ARE  DRAWN 

231 

232 

ELSEIF(EWEEF.EQ.2)THEN 

233 

IF(LOAT200).EQ.O)GOTO  1000 

•  NO  ELEMENTS  ARE  DRAWN 

234 

235 

ELSEIPIEWEEP  EQ.3)THEN 

236 

E(LOAT3<IO).EQ.OX:OTD  1000 

•  NO  ELEMENTS  ARE  £>RAWN 

237 

235 

ELSEIF(EWEEF.EQ.4)THEN 

239 

IF(U>AT400).EQ.O)GOTO  1000 

!  NO  ELEMENTS  ARE  DRAWN 

240 

241 

ENDIF 

242 

243 

C— 

244 

245 

c 

THE  MOD  DRAWS  THE  UNE  SEGMENTS  TO  THE  SCREEN 

246 

247 

C— 

2a 

2a 

2S0 

DOIOOK-  I.IEND 

!  LOOP  THRU  THE  ELEMENTS 

2^1 

251 

253 

C— 

c 

THE  FART  DETERMB^ES  THE  COLOR  EACH  MATRIX  LINE  ELEMENT  WILL  BE 

254 

255 

256 

M  -  ICHANdC)  • 

M  -  THE  CHANNEL  READ 

257 

ICOL  -  IELE<M)  > 

ICOL  -  THE  ELEMENT  COLOR 

255 

259 

V(KX>1.EQ.1«)THEN 

!  THIS  COLOR  B  WHITE 

210 

WRITEr.*)E/rMV1-  ! 

MAKE  LINE  DASHED 

261 

WRITEr.’)E//>av  ! 

LINE  COLOR  WHITE 

262 

ELSE 

263 

wunEr.TE/rMW  ! 

MAKE  LINE  SOLID 

264 

CALL  »nRFT(ICOl.COl} 

!  INTEGER  TO  TEKCHARA 

U5 

WRnEf.TClirML'/SOOlO:!) 

!  WRnE  COLOR  TO  TERMINAL 

!  INTCCEIITOTTKCHAIIA 
!  WRnt  COLOR  TO  nXMlNAL 
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268  C  THE  X  B  THE  BECINNINC  ANCLE  OP  THE  SAMPLE  FOR  WHICH  DATA  IS 

269  C  RE71UEVED.  THE  ZERO  POINT  IS  SCREEN  POSITION  245.  EACH  DECREE 

270  C  INCREMENT  E  20  SCREEN  UNITS.  THUS  THE  EQUATION  BELOW: 

271  C - 

272 

273  IP(INUSE1.EQ.0)TH&4  >  USE  ONLY  ONCE  ON  RUN 

274 

275 

276  X  •  IFIX(RARM) 

277  X-  245  +  (20*X) 

278 

279  C - 

280  C  THE  INCREMENT  FOR  EACH  DATA  FT  IS  IN  INCR.  HERE  NORMALIZED  TO 

281  C  SCREEN  UNITS.  1  DEC  •  20  SCREEN  UNHS. 

282  C - 

283 

284  INCR  -  inX(RlNCR) 

285  MCR  -  INCR  *  20 

286  INUSE1  -  1 

287  ENDfP 


289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 


K1  '  too 

lYPOINT-O 


C - 

C  THIS  MOD  RESOLVES  THE  VOLTAGE  INTO  A  Y  COORDINATE  ( lYPOINT  ) 

C  THE  BEST  RESOLUTION  B  1/1000  VOLT.  1/10  VOLT  -  100  SCREEN  UNHS 
C  1/100  VOLT  -  10  SCREEN  UNHS  AND  1/1000  VOLT  -  1  SCREEN  UNIT. 

C - 

R2  -  RDAT(M)  !  SAVE  DATA  IN  BUFFER 

DO  180  N  -  1^ 

R1  -  R2  •  10.0  !  READ  PROPER  CHANNEL 

MUM  -  IPIX(R1) 

nrPOINT  -  INUM  •  K1  *  lYFOOXT 
U  -  R1  -(PLOATdNOM)) 

IP(N  EQ1)Kt  -K1  -W 
nKN.EQ.2)K1  -  K1  -9 
lao  CONTINUE 

C - 

C  THIS  MOD  NOKMAUZES  THE  SCREEN  UNIT  WITH  THE  RAR  GRAPH  AND  DRAWS 
C  THE  UNE  FROM  ONE  POINT  TO  THE  NEXT.  1900  IS  THE  Y  COORDINATE  FOR 
C  THE  0.0  UNE  ON  THE  Y  AXIS. 

C - 


Y  -  1900  ♦  lYFOINT 


!  CALCULATE  THE  Y  POINT 


»(Y.CE.J900)Y  -  2900 
P(Y.LE.900)Y  -  900 
CALL  HIY  (X.Y,A) 


!  DON'T  LETT  LEAVE  THE 
t  GRAPH 

I  CALC  X.Y  VECTOR 
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322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 
399 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 


IAST_PT(M)- A 


•  SAVE  IN  BUFFER  ARRAY 


1P(INUS£.EQ.0)THEN 

wtrrEc*,»)E/rMLr 

WRrrEC.*)C//T4M2' 

WRrrEC/)E//T^//A 

WRnEr/)E/rLH7/A 

ELSE 


!  IP  TH6  6  THE  1ST  POINT 

!  SET  MARKER  MODE  TO 
!  SET  THE  ORIGIN 
\  DRAW  THE  MARKER 


C - - - 

C  THIS  Part  must  estabush  an  origin  that  was  the  last  point  before 

C  EVERY  DRAW. 

- - 


WRmEr/)E//V//POCNT(M)  !  set  THE  ORIGIN 
WRnEr/)E/rLGVyA  !  DRAW  TO  NEW  POINT 

ENDfP 

200  continue 

- - 

C  THIS  INCREMENTS  THE  COUNTER  FOR  THE  next  X 
C^ - — _ 


IP(I5WEEP.EQ.1.0R-I5WEEP.EQ.3)THEN 
X-X  *INCR  !  INCREMENT  HHEX  POINT 
ELSE 

X  -  X  -  INCR  !  DECREMENT  THE  X  VALUE 
ENDIF 


C - - - — _ 

C  THIS  SAVES  THE  VECTORS  OF  EACH  LINE  ELEMENT  CALCULATED  FOR  THIS 
C  POINT  into  a  buffer  SO  THAT  THEY  CAN  BE  USED  AS  ORIGINS  FOR  THE 
C  NEXT  CROUP  OF  POINTS 
C - - 


DO300I-  L9 
POB^d)  -  LAST_PT(T) 

300  CONTQguE 

WRTTET.'O&y'MVO'  !  MAKE  LINE  SOLID 

WUSE-I  f  SETWUSEPLAGTOON 

1000  return 

END 
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AIV.6  Analog  APSD  Softtoare  Modules:  GET_ARRAY  Source  Code. 

1  SUBKOUHNE  CXT_ARKAY(LCT.REI>RAW) 

2 

3  - 

4  C  THE  ROUTINE  BUSED  TO  GET  THE  USER  TO  SEIECT  AN  ARRAY 

5  C  ElEMENT. 

*  C  LET  -  THE  CHARACTER  LETTER  A -TO  BE  SEUCTED  BY  THE  USER 
7  C  REDRAW- S  AFLAC  FOR  THE  ROUTINE  TO  REDRAW  THE  INVBmLE  ARRAY 

t  C  BLOCKS.  WHEN  SET  TO- 1 

»  C - 

10 

11  CHARACTER  E»l,Un*1,SECrj.ANS*12 

12 

13  ETTECER  X,Y,REDRAW 

14 

15  E  -  CHARpr) 


1»  IF<REDRAW.EQ.1)iTHEN  •  FLAG  TO  TURN  ON  ALL  5  BLOCKS 

19  REDRAW -0  !  RESETTHEPLAC 

20 

21  IF<ICHARaET).CT.M.OR.ICHAR(LEn.LT.70)THEN 

22  |-ICHAR(LEI)-33  !  SEGMENT  NUMBER  TO  START  WTTH 

23 

24  DO  10 1  -  32J4  !  ONE  BLOCK  E  ALREADY  ON 

IS  IF<I.EQ.I)COTO  10  !  IP  ON  SCREEN  DONT  DRAW 

24  CAaiNTRFT(I,SEC)  I  CONVERT  TO  TEK  CHARACTER 

27  WRrrEr,’)E/rS\r//SEC(1JVrV  !  DRAW  THE  BOX 

28  10  CONTINUE 

29  ENDIP 

30  ENDIP 

31 

M  X-1S00  !  PLACE  THE  MOUSE  X,Y 

33  Y-SSO 

34  IFLAC  -  1 

35 

3*  CALL  Cn<X,Y.IFLAC,IMODE.rrYPE  ICIN.IPORT) 

37 

38  IS  WRnET.TE/rLW  !  SET  UP  THE  DIALOC  AREA 

39  WRnEr.*)&/TJI44-  !  COLOR  WHTTE  ON  BLUE 

40  WRTIEr.’lE/rLZ-  !  CLEAR  OP  TEXT 

41  WRTTEC,*)E//T.V1'  !  ENABU  DIALOC  AREA 

42 

43 

44  WRUEf  ,*r  SELECT:' 

45  WRnEf,T  1.  AN  ARRAY  ELEMENT 

48  WRTIEr,*) 

47  wRnEr,*r  3.  exit 

a 

49  20  READr,'(A12)',ERR-15)ANS  !  READ  FROM  THE  MOUSE 

» 

51  BHANSC:1)EQ.'1'.0R-ANS<1:1).EQ.'3TC0TDX 
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52  COTO20 

53 

54  - — — - 

55  C  THECHECKSTHESEUCTXMTOMAKESUBE  AN  ARRAY  ELEMENT  WAS 

56  C  CHOSEN. 

57  C- - - - 

56 

59  30  SEC-ANS(7:»)  •  GET  USER  CHARACTER  SELECTION 

60  CALLDECODE(5EC,EEC)  !  CHANCE  SEGMENT  NUMBER  TO  INTEGER 

61 

62  IP(I5EC  •  33.CT.69.0R.EEC  t  33.LT.6S)COTO  20 

63 

64  WRITEr,*)E/7ID!'  I  DELETE  THE  GIN  CURSOR 

65  WRnEr,*)E/7SICCir 

66 
67 

66  UET  -  CHAR(ISEC  ♦  33)  •  PLACE  THE  SELECTED  LETTER  IN  LET 

69 

70  C - 

71  C  THB  PART  ERASES  THE  REST  OP  THE  BLOCKS  THAT  ARE  NOT  IN  USE 

72  C  EEC  E  THE  SELECTED  SEGMENT  NUMBER. 

73  C- 

74 

75 

76 

77 
76 
79 

60  40 

61 

62  RETURN 

63  END 


DO40t-33J6  !  LOOP  THRU  THE  SEGMENT  NUMBERS 

IP(I.EQ.EEOCOTO  40  !  IP  ON  SCREEN  DON'T  DRAW 
CAa  INTRPT<I,SEC)  •  CONVERT  TO  TEK  CHARACTER 
WRnEr.*)B7SV//5EC<1:2)T/'0'  !  ERASE  THE  BOX 
CONTINUE 
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AIV.7  Analog  APSD  Software  Modules:  GIN  Source  Code. 


1  S(n>OUT1NECIN<Xt,Y1,inAC.IMODE,ITYFE.ICIN,l?ORT) 

2 

3  C  CHARLES  HENRY  JULY  7  1W9 

4  C - 

5  C  1HB  PROGRAM  E  CAUED  CIN  POR.  IT  WILL  DEFINE  A 'CIN'(  GRAPHICS 

6  C  »IPUT,  OUTPUT  )CURSORl>OR  USE  IN  PROGRAM. 

7  C  THE  WnLEnHER  ENABLE  THE  MOUSE.PUCIC  OR  THIA4BWHEE1S. 

•  C  THEDEFAULTESETPORTHEMOUSEUSINGTHE  ARROW  CURSOR  IN  PICK 

9  C  MODE 

10  C 

11  C  XI.YI -NEW  LOCATION  FOR  THE  CURSOR.  DEFINED  BY  USER 

12  C 

13  C  BOAG  -  FLAG  THAT  MAKES  ALL  SEGMENTS  VISIBLE.  THE  E  USEFUL  WHEN 

14  C  THE  USER  EBUIUHNG  SOMETHING  WITH  ALL  SEGMENTS  TURNED 

15  C  OFF  AND  THE  GIN  SUBROUTINE  E  CALLED  LAST.  THE  DEFAULT 

16  C  E  TO  ESUE  THE  COMMAND  EVEN  IF  NOTHING  E  OFF 

17  C 

It  C  IMODE  -  THE  E  THE  GIN  MODE.  THERE  ARE  THREE  TYPES 

19  C  EACH  TYPE  1£TS  YOU  PERFORM  SUGKTLY  DIFFERENT  TASKS. 

20  C 

21  C  FKK  REIURNS  BUTTON  PRESSED.XAT  LOCATION,  VIEW  NUMBER  AND 

22  C  WHICH  SEGMENT  WAS  PICKED. 

23  C 

24  C  LOCATE  RETURNS  A  SINGLE  REPORT  CONTAINfriCTTTE  BUTTON 

25  C  PRESSED,X/Y  LOCATION, AND  VIEW  NUMBER  IP  SPECIFIED. 

26  C  SINCE  THE  LOCATE  MODE  FOR  THIS  PROGRAMS  USE  KNOT  MUCH 

27  C  DIFFERENT  THEN  THE  PICK.  I  AM  USING  IT  HERE  TO  DRAW  AND 

26  C  USE  GIN  RUBBERBANDING. 

29  C 

30  C  STROKE  RETURNS  ONE  OR  MORE  FIRST  POINTS  WHICH  ARE  SEPARATED 

31  C  BY  DIFFERENT  FIRST  CHARACTERS,AND  A  LAST  POmr.THE  FIRST 

32  C  REPORT  WILL  VICLUDE  THE  BUTTON  SELECTED  THEN  THE  SUBSEQUENT 

33  C  STROKEPOMTCHARACTERSWILLBE  A*  I'FOLLOWEDBYTHEVY 

34  C 

35  C  THELASTPO»ITWIlLBEA'0'FOLLOWEDBYTHEX/Y. 

36  C 

37  C  O-PKK 

36  C  1  -  LOCATE 

39  C  2  -  STROKE 

40  C 

41  C 

42  C  TTYPE-THBB  THE  CURSOR  SEGMENT  TYPE.  NORMALLY  TIS  AN  ARROW 

43  C  BUTTHERE  ARE  OCCASSIONS  WHEN  A  CROSSHARB  USEFUL 

44  C  ADOmONALLY,  WHEN  THE  GVI  B  ACTIVE  AND  THE  IBER  B 

45  C  SELECnWG  A  MENU  ITEM  THAT  REQUIRES  NO  GW  DEVICE  AN 

46  C  ALTERNATE  SEGMENT  B  PROVIDED  THAT  BA  DOT.  VTHE 

47  C  USER  ALREADY  HAS  A  SEGMENT  THAT  B  NEEDED  FOR  THE  CURSOR 

46  C  THEN  ASBFASSEDMTTYPEANOTHEtITEGERVALUEB 

49  C  PAKEDMIFORT. 

50  C 

51  C  0- ARROW  SEGMENT 
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52  C  1  -  CKOSSHAR 

53  C  2-DOT 

54  C  S-NOVnEXOPSECMEKrTOKMADETHECUItSOR 

55  C 

56  C  KaN -IHBE  THE  GRAPHICS  INPUT  DEVICE.  THERE  CAN  BE  KKn  OK 

57  C  PIVE  DBVERENT  DEVICES.  THE  ONES  WE  USE  ARE  USTED  BELOW 

SB  C 

5»  C  0  -  MOUSE 

60  C  1  -THUMBWHEEIS 

61  C  2  -  PUCK  (LARGE  TABLET)  -  PHIS  6  SPECIFIED  BY  THE  PORT) 

62  C 

63  C’"”"*"— . . . . . 

64 

65  BVTEGER  X,y,XI,yi 

66  CHARACTER’S  A,AI,A2,A3,A4,A5.A6 

67  CHARACTER  E,AAA*I2,C’2.CS,US.SEC’3,AI0>6,B'I 

66 

6«  E-CHAR(27) 

70  CS-CHAR(24)  'START  VECTOR  MODE  char 

71  US-CHAR(3I)  I  STOP  vector  MODE  CHAR 

72 

73  c - 

74  C  THE  following  E  THE  SETUP  POR  THE  PARTICULAR  GIN  DEVTCE  THE 

75  C  LEER  S  REQUESrmC.  «tp...USER  MAY  WANT  THE  MOUSE  TO  MOVE  THE 

76  C  CROSSHAIR  M  STROKE  MODE. 

77  C 
76  C 

n  C  ICIN  -  0  MOUSE 

60  c  rrypE  •  i  crosshair 

61  C  IMODE  •  2  STROKE  MODE 

62  C 

B3  C  BELOW  WE  START  DEPININC  WITH  THE  PICK  FUNCTION 

64  C  I  HAVE  TO  DEFBVE  THE  NLAIBER  OP  CHARACTERS  IN  THE  CSTRING"’  SO 

65  C  THAT  THERE  WONT  BE  ANY  MNERSPACINCM  THE  ESCAPE 

66  C  COMMANDS.  THAT  WOLAD  CAUSE  A  FATAL  ERROR  THIS  IS  STORED  IN 'ir 
r  C 
6B  C- 


«0 

*1 

«2 

49 

•4 

•5 

« 

*7 


100 

101 

no 

109 

104 

MS 


WRnEr,*)E//TOr 

wunET.’jE/TSKai' 

WRrTEf,’)E/n.W 


•  DELHE  THE  GW  SEGMENT 
!  DELETE  THE  GIN  CURSOR 

•  DISABLE  DMLOC  AREA 


V(»«OOE.EQ.O)THEN  •  USER  WANTS  PICK  FUNCTION 

V|ICB4.EQ.0)THEN  f  SET  UP  FOR  MOUSE 

C  -  T>V 

D  -  2  I  NUMBER  CHARA  LRED 14  STRINC 

ElSElFdCM.EQ.ITTHEN 
C-T'  I  SET  FOR  THUMBWHEELS 

n  -  I  I  NUMBER  CHARA  USED  14  ST1UNC 

ELSElP(IGR4.EQ.2|fTHEN 
P(mORT.EQ.0)C  -  'Mr  I  TABLET  PORT  0 
IF(IPOnrT.«}.1)G  -  Rl'  t  TAHET  PORT  1 
P(IFOItT.BQE)C  -  ir  I  TABLETPORT2 
n-2  )  NUMBER  CHARA  USED  MSmOG 
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IM  ENDIP 

107 

lot  C - 

lot  C  HEKE  WE  KCINWnH  THE  LOCATE  FUNCnON 

no  C - 

111 

112  QSEVCMOOE.EQ.pTHEN  ■  USER  WANTS  THE  LOCATE  FUNCTION 

113  ■MCIN.EQ.O)THEN  I  SET  UP  FOR  MOUSE 

114  C-W 

115  11-2  !  NUMEER  CHARA  USED  M  STRMC 

IM  ElSEV(ICa4.EQ.I)ITHEN 

117  C-TT  I  SETFORTHUMBWHEEIS 

lit  D  -  I  •  NUMKR  CHARA  USED  IN  STRMC 

lit  ELSEVdCM.EQJITHEN 

110  KIPOtT.EQOK:  - ’AT  'TAMET  PORTO 

121  P(IPORT.EQ.I)C  -  ‘■O'  !  TABLET  PORT  I 

122  V(IPORT.EQ.2)C  -  'BT  !  TABLET  PORT  2 

123  n  -  2  !  NUMBER  CHARA  USED  04  STWNC 

124  END* 

125 

lit  C - 

127  C  THE  PART  DEPMES  THE  STROKE  FUNCTIONS 

lit  C  THESE  ARE  ONLY  ALLOWED  FOR  THE  TABLET  and  THE  MOUSE. 

lit  C 

130  C - 

131 

132 

133  ElSEIF(IMODC.EQ.2)[THEN  !  USER  WANTS  THE  STROKE  FUNCTION 

134  IF(IC»I.EQ.0)THEN  I  SET  UP  FOR  MOUSE 

135  C  -  "Dr 

13t  D  -  2  I  NUMBER  CHARA  USED  IN  STRINC 

137  ElSEIF<ICB4.EQ.trrHEN 

I3t  C-’;'  !  SET  FOR  THUMBWHEELS 

I3t  0-1  !  NUMBER  CHARA  IKED  IN  STRINC 

140  ElSEV(ICM.EQ.2riHEN 

141  WRnEr.TYOUMUSTNOTSPEOFr  AFORTFORSTROKT 

142  GOT0 1000 

143  ENDV 

144  ENOtP 

145 

14*  C - 

147 

14t 

14t  WRTIEr.TE/TSV-O’  !  MAKE  CURSOR  INVBIBU 

150 

151  4  ■1(rTYTE.EQ.1.OR.TTYPE.EQJ)COTO30  !  IXINT  DRAW  A  SEGMENT 
151 

153  C - 

154  C  THE  USER  BREQUESTV4C  THAT  A  DOT  BE  DRAWN  ^ISTEAD  OF  THE  ARROW 

155  C - 

15t 

157  P(ITVFE.BQE](THEN  I  THB  E  THE  DOT  SEGMENT 

151  WRITEC,nEFR410r«c#>ri|r<»rMMr 
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1*0  c - - - 

1*1  C  1HE  SEGMENT  BA  SMALL  MVBIBLE  Mark  THAT  E  USED  %0HEN  THE  USES 

1*J  C  E SELECIMC  MENU  nEMS  FROM  THE  DIALOG  AREA  ALLTHATB 
1*3  C  SEARCHED  FOR  E  THE  RUTTON  THAT  WAS  FRESSED. 

1*4  C - - - - - - 

1*5 

l*« 

1*7  WRnEr,*)E/7SOClV  ■  RECIN  SEGMENT  NO.  4049 

1*0  CALLHTT(X1.yi,A)  !  FLACE  THE  SEGMENT  AT  X,Y  LOCAL 

1*9  WRnEr.*)B/TH'//A  !  DRAW  THE  SEGMENT 

170  WRrrEC,*)E//EC  •  CLOSE  THE  SEGMENT 

171  GOTOaO  I  |UMP OVER  ARROW  DRAW 

172  ENDIF 

m 

174  C - — - - - 

175  C  THE  lEGINS  THE  DRAWEIC  OF  THE  ARROW  CURSOR. 

17*  C - — _ 

177 

ITS  5  CONTINUE 
179  WRnEr,*)E/TSC 

liO  X-0 

1*1  Y-100 

1*2  CALL  HIY(X,Y,A) 

1*3  W*nEr,*)E/TSF'//A  !  SET  FfVOTFOINT  FOR  CURSOR 

1*4 

1*5  wuntc-TE/Tsocn- 

1**  *«rTEC.**/7MF-V/E//Ti4L17/E//T<rri- 

1*7 

1**  C _ _ _ _ _ _ 

1*1  C  the  FART  DRAWS  THE  ARROW  SEGMENT.  IT  B  DRAWN  AT  THE  0,0  ORIGIN 

190  C  AND  THEN  B  MOVED  TO  THE  USER  DEFINED  LOCATION 

191  C - — _ 

Id 

1*3  X-0 

1*4  Y-100 

MS  CAU.  HIV<X.V.AI 

1**  X-*0 

1*7  Y-70 

19*  CALL  HIY(X.Y,A1) 

19*  X-40 

200  Y-70 

201  CALL  HIY(X.Y,A2) 

202  X-102 

203  Y-12 

204  CAUHTY(X.Y,A3) 

208  X-95 

20*  Y-0 

207  CAU  HIY(X.Y.A4) 

20*  X-30 

20*  Y-40 

210  CAUHIY(X,Y.AS) 

211  X-30 

212  V-20 

213  CAUHIY(X.Y,A*) 
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114 


Its 

WWTE(’.*)E//V//A/n'/ACStfA1//A2//A3//A4//A5//A*0 

2U 

.  UMB7SC 

217 

ns 

» 

CONTtlUE 

n* 

220 

30 

OI(nY«.EQ.1)COTOM 

221 

WBITEr,*)B7SVC11(r  1  MAKE  CURSOK  MVBSU 

222 

S 

W«mr.*)BfSVr  1  MAKE  CURSOR  VEOU 

213 

214 

P(MOI)E.EQ.1)ITHEN  t  USER  WANTS  THE  U3CATOR  MODE 

22S 

lit 

■HnYK.EQ4).OR.nYrE.EQ4)THEN 

227 

22S 

WRirer,*)E//T«coJ2ynv/ 

219 

.  E/m'/K;0:«2V/’1'//E//TO//C(1:ny7av// 

230 

.  E/nr/zco'-Qv/tr 

231 

EISE 

232 

WRfiEr,*)E//Tr//C(i  nyn  •// 

233 

.  E//TR'//C(1:n)m7/E//V//CO;Dy/’0' 

234 

ENDS 

135 

23* 

237 

ELSES(M0DE.EQ.2)THEN  t  USER  wants  STR04CE  MODE 

23* 

23* 

S(frir*E.EQ.0.OR.rTYTE.EQJ}THEN 

340 

ynmr.'»nciico-.ovforii 

241 

timico-ti)irm-i/arteuc(i:avrv 

lU 

EUE 

243 

144 

aneiic(f:nyrv 

2*5 

ENDS 

14* 

147 

else  I  USER  wants  nCK  MODE 

MS 

M* 

P(rrYK.EQ2l  OR.ITY7E.EQ.2)THEN 

230 

wRnEr.TBnc'*ic<i:ny/ni7/ 

251 

EZirC(C0:I2yiV 

1S2 

S3 

ElSE»(rrm.BQ4rTHiN  !  USER  wants  A  SEGMENT  TD  IE 

154 

CAU.  MTRrniraRT.SEC)  !  THE  CM  CURSOR 

155 

WRnir.TK'TCOCO  «VWECy 

15* 

itfirwc<i:i^nrH/rsM'/»SGC/n' 

157 

23* 

EISE 

25* 

2*0 

»»Rntr.TS«7«-»co:nyro’  t  set  mouse  tor  noR 

SI 

1  TONCnONS 

1*1 

B4DIP 

2*3 

war 

ns  c- 


»  CAUHnr(X1,Y1,A) 
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IM 

m 

»(ITVrE.EQ49THEN 

!  Vns SEGMENT 

m 

wimr.iE<rsxcn'//A 

!  POSmoN  THE  CUKSOt 

m 

BSEV(rryre.EQ.tj(i>iEN 

I  IF  rrs  atoss  HAR 

272 

WUntP.TBTSXO’/M 

!  POSTnONTHEClRSOK 

273 

ELSE»(mrre.EQJlIIHEN 

!  O’  ns  CROSS  har 

274 

vr»mr.'}Ejrsx-//sea/A 

!  FOSmON  THE  CURSOR 

275 

ENOIF 

1  THE  DOTE  ALREADY 

274 

1  PLACED 

277 

27* 

1000  ICUI-0 

!  RESET  THE  TOGGLE  LOOP 

27* 

»40DE  -0 

!  RESET  THE  CM  TYPE  FIAC 

HO 

ITYPE  -  0  1 

RESET  THE  CURSOR  TYPE  TO  ARROW 

2lt 

2t3 

»(nY?E.EQ.lX»TO  1010 

213 

w«rrec,*)E/7svciiv 

!  MAKE  CURSOR  MVBIBU 

2M 

1010  vnmr.’y^nz' 

1  CLEAR  dialog  AREA 

215 

RETUIN 

2*6 

END 
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AIV.8  Analog  APSD  Software  Modules:  HEXDEC  Source  Code. 


1  SUHKXnWE  HEXDEC(HEXIN.IU>AT,CHANNELS) 

2 

j  c - 

4  C  THE  ntOCRAM  WILL  RECETVEINFUmOM  THE  AX>CONVER-mi 

5  C  CONVERT  rr  TO  mAKY,  CHECK  TO  SEE  IF  numbers  POSITIVE 

6  C  ORNECAT1VE.  IF  POS  THE  NUMBER  WILL  BE  CONVERTED  TO  DECIMAL 

7  C  AND  SAVED.  V  NEC,  A  1  WILL  BE  subtracted  AND  THE  BnS 

B  C  REVERSED  (Tt  COMPLIMENT)  AND  THEN  RETURNED  TO  DECIMAL 

*  C 

10  C  ISXIN- ARRAY  OP  HEX  CHARACTERS  PASSED  M  PROM  THE  CALLER 

11  C 

12  C  RDAT  -  ARRAY  OP  DECBrfAL  REALS  PASSED  OUTTO  THE  CALLER 

13  C 

U  C  CHANNEIS  -  THE  NUMBER  OP  ARRAY  ELEMENTS  PASSED  IN  PROM  THE  CALLER 

IS  C - 

1« 

17  CHARACTER*4  HEXIN,A,PLACE>I 

It 

1«  MTECER  K.KNT.BM,CHANNELS 

20 

21  BEALRDAT.RT 

22 

23  DIMENSION  BINa«).PLACE0«).HEXIN04).n3ATAn«).III>AT0t) 

24 

25  DATA  (B»<(l).l-1,16y327M.1«3t44l92,409L204t, 

2t  .  t024,St2.2S6.12t,644LI*4.4,L1/ 

27 

2a 

2* 

30  I  FORMAT  <A4) 

31  2  FORMAT  (n04(A1,A1» 

32 

33  C -  TESTDATA  - 

34  C 

35  C  I- 1 

Tt  C 

37  C3  WRITEr.’T  ENTER  UP  TO  1*  HEX  NUMBERS:  (4CHARMAX)' 

3B  C  WRflEC.T  enter  '  2  '  WHEN  OONF 

3»  C  WRITEr,*) 

40  C  READr,'(A4r,ERR  -  loaO)HEXm<l) 

41  C 

42  C  P(HEX»I<IX1:1).EQ.'Z’.AND.I.EQ  1)COTO  lOW 

43  C  V(HEX»HIX1:1>-EQ.'r)CO'IO  10 

44  C 

45  C  CHANNEIS-I 

46  C 

47  C  1-1*1 

4B  C  COT05 

4*  C 

SB  C - 

SI 
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52 

SJ  to  DO200KK-1.CHANNELS 

54 

55  KNT-O 

54  I-O 

57  K-0 

58  wurr-o 

59  A-HEXIN(nC) 

40  J  --1 

41 

42  DO40n-4,1.-1 

63  |-Jt1 

44 

45  5F(ICHAIt(A(ll;II».CT.44)THEN 

44  K  -  ICHAK(A<ll:n))  •  55 

47  C0T035 

64  ENDR' 

M 

TO  K'ICHAIt(A(II;II))-44 

71 

72  35  KNT  -  KNT  ♦  K  •  14") 

73 

74  40  CXINTINUE 

75 

74  BUPP-  KNT 

77 

74  C - 

79  C  THE  POUOWINC  MOD  CHANCES  THE  INTECEIIS  TO  iJNARY  NUMBERS 

40  C  ONtY  THE  14TH  place  has  TO  BE  IjOOICED  AT.  IP  THIS  NUMBER  B 

41  C  'V  THEN  WE  HAVE  A  NEGATIVE  NUMBER  AND  WE  WILL  DO  A  TOTAL 

42  C  CONVERSION. 

43  C - - 

44 

45  B(KNT.LT.BIN(I»  GOTO  100 

44 

47  C - 

44  C  ai  THE  NUMBERS  NEC  ALL  THE  1-S  AND  OS  ARE  REVERSED 
49  C - 

90 

91  IPUT-  17 

92 

93  DOTOfl-I.U 

94 

95  IPUT-IFUT-l 

94 

97  ■>(aRm.CX.BM(a))THEN 

94  aUPP  -  HUPP  -  BM<II> 

99  PUACE<IPUT)  -  IT 

too  E15E 

101  PLACE<IPUT)  -  T 

lOa  ENDIP 

103 

Ml  70  CONTMUC 
105 
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UM  c - 

107  C  THE  WUIES  THE  BINARY  NUMBER  TO  mE  SCREEN 

lOB  C - 

10*  C 

no  C  WRnEf,2)n>CE(16),PLACE05).PLACE(14),PLACE0»).TLACE|1J). 

in  C  1  PLACE01).ELACE(10>.PLACE(»),nACE(«),PLACE(7),PLACE(6),PlACE(5), 

112  C  1  PLACE(4),rLACEp),PLACEa).n>CE0) 

113  C - 

114  C  THE  EART  CONVERTS  THE  NUMBER  back  TO  DEOMAU  CHANCES  THE 

115  C  SIGN  AND  THEN  SUBTRACTS  1 

11*  C - 

117 

11*  D  -  1 

11*  KNT-O 

120 

121  DO«OII-1«.1,-1 

122 

123  P(nACE(n).EQ.'1')  THEN 

124  KNT  -  ICNT  ♦  BIN(ID 

125  ENDIP 
12* 

127  D  -D  ♦  1 

12* 

12*  90  CONimUE 

130 

131  ICNT- IC>n'-(2*ICNT) 

132  ICNT- ICNT- 1 

133  100  R>ATA(KIC)  -  KNT 

134 

135  200  CONTV4UE 

13* 

137  C - — — - 

13* 

13*  DO  300 1  -  1.CHANNE1S 

140 

141  IB(IDATA(I).EQA2I)THEN 

142  RDATO)  -  0.000 

143  GOTO  300 

144  ENDII' 

145 

14*  DATAII)  -  IDATA(I)  *  -1 

147 

14B  V(IDATA(I).CT.onHEN 

14*  l>ATA(l)  -  32*7*  -  R3ATA(I) 

150  ELSE 

151  DATAA  -  -(IDATAII)  <  32*7*) 

152 

153  ENDP 

154 

155  C  ROATtI)  -  (njOA'niDATA<l)yi*3*4.0)  *  0.0022  !  NORMALIZE  VOLTAGE 
15* 

157  UlAltQ  -  (nOATi(IDATA(l)VB192.0)  >  0.0022  !  NORMALIZE  VOLTAGE 

19B  C  RDAT(I>  -  <PLOAT<l>ATA<l^l0**.0)  1 03X02  I  NORMALIZE  VOLTAGE 
15* 
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1M  300  CONTINUE 
161 
162 

IM  c - 

164  C  NO  NEED  TO  CO  ANY  FURTHER  IF  THE  DC  ELEMENT  -0 

165  C - 

166 

167  C  «F(RDATO).1E.O.O)COTO  1000  !  ERROR  CONDflTON 

166 

169  RT  -  1  /  RDATO)  !  NORMALIZATION  FACTOR 

170 

171  C - 

172  C  THB  NORMAUZES  AU  THE  ELEMENTS  Wim  THE  •  11  'ELEMENT 

173  C - 

174 

175  DO  400  I  -  1,  channels 

176 

177  RDAT(I)  -  RDAT<I)  ’  RT 
176 

179  400  CONTINUE 

160 

161  C - 

162 

163  1000  RETURN 

164  END 
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AIV.9  Analog  APSD  Software  Modules:  HIY  Source  Code. 


1  SUHUXniNE  HIY(X,Y,A) 

2  c - 

3  C  THBROUTBrtB  A  UmnY  THAT  CONVERTS  TWO  «NTK:ER(X,Y)  SCREEN 

4  C  COORDINATES MTOTEKTRONICS CHARACTER C<X>E SCHEME.  THETEK 

5  C  TERMINAIS  HAVE  THEIR  OVkNCRAFHICSLANCUACE.  THS  LANGUAGE  REQUIRES 

t  C  THE  HOST  TO  ESUE  EVERY  COMMAND  AS  A  character  STRING.  MTHE 

7  C  CASE  THE  TWO  VECTORS  (>C,Y)ARE  CONVERTED  INTO  A  FIVE  CHARACTER 

E  C  STRING.  THESE  REPRESENT  ETTPOSmONS  FOR  THE  TERMINAL  AS  FOLLOWS: 

9  C  HIY,  Extn,  LoY,  HOC  (nd  UX. 

10  C  THBUnUIY  BONE  OF  THE  MOST  important  UmillES  FOR 

11  C  ANY  HOST  TO  TEKTRONICS  GRAPHICS  APPLICATIONS. 

12  C  NOTE:  X,Y  REMAIN  UNCHANGED  WHEN  SENT  BACK  TO  CALLER. 

13  C^ - - - 

15  MTECER*1X,X0.X1,XLY,Y0,YI,Y2 

16  CHARACTER  *5  A 

IB  X2-Xn2B 

19  Y2-Y/I28 

20  xi-(x-xri2sy4 

21  Y1-(Y-Yri28y4 

22  XO-MOO(X,4) 

23  VO-MOO(Y,4) 

14 

25  C - 

16  C  HERE  THE  INTEGERS  ARE  chanced  TO  A  character  STRING. 

27  C - 

28 

29  A0:I)-CHARO2*Y2) 

X  A(2J)-CHAR(96«YO'4»XO) 

31  AOJ)-CHAR<96tY1) 

32  A(4:4^CHAR(32tX2) 

33  A<S-J)-CHAR(64*X1) 

34 

39  REIURN 

36  END 
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AIV.IO  Analog  APSD  Software  Modules:  INT_TO_CHAR  Source  Code 


SUBKOUHNE  INT_TOjCHAIt(NUMBEK.CNUM,LENCrm) 


3  C - 

4  C  THIS  RCXniNEWIU.  CHANCE  INTCCEKS  PROM  *A99,999.m  INTO 

5  C  CHARACTERS. 

6  C 

7  C  NUMBER  -  BiTTECER  PASSED  IN  PROM  THE  CALLER 

I  C 

9  C  CNUM  -CHARACTER  REPRESENTATION  OP  THE  ABOVE  INTEGER  THAT  B 

10  C  RETURNED  TO  THE  CALLER. 

II  C 

12  C  LENGTH  -  THE  NUMBER  OP  CHARACTERS  BEING  SENT  BACK  TO  THE  CALLER 

13  C - 

14 

15  character  *9  CNUM.CBUP 

16 

17  S  CNUM-"  !  BIITIAUZE  CHARACTER  VALUE 

IS 

19  C  WUnEC,*)'  ENTER  A  NUMBER:' 

10  C  WROEC,*) 

21  C  REAOC.*)NUMBER 

22 

23  NUMBUP  -  NUMBER 

24  IP(NUMBER.LT.0)THEN  •  US  A  NECmVE  NUMBER 

25  NEC-1  !  SET  A  FLAG  THAT  THE  NUMBERS 

26  NUMBER  -  AB5<NUMBER)  I  NECITIVE.  TAKE  US  ABSOLUTE 

27  ENDIP 
2S 

29  IP(NUMBER.EQ.O)THEN  •  THE  NUMBER  B  ZERO 

30  CNUM  - '000000000'  ■  THE  CHARACTER  -  ALL  0'4 

31  GOT0 1000  I  RETURN  TO  CALLER 

32 

33  ELSEIPCNUMBER.LT.IO)THEN  !  TTS  A  SINGLE  DICrr  NUMBER 

34  M  -  I  I  character  PLACE  COUNTER 

35  CNUMOtl)  -  CHARINUMBER  t  46) !  CONVERT  NUMBER  TO  CHARACTER 

36  GOT0 110 

37 

3a  ELSEIP(NUMBER.CT.99999999.0R.NUMBER.LT.49999999)THEN 

39  CNUM  -  DOOOOOOOO'  ■  IP  THE  NUMBER  IN  B  TO  LARGE 

40  COTO1000  !  CNUM  CANT  CONVERT  THB  NUMBER 

41  ENDIP 

42 

43  c - 

44  C  THB  PART  SEPARATES  EACH  INTEGER  PLACE  VALUE  INTD  IIS  B4DIVIDUAL 

45  C  COMPONENTS.  TT  THEN  CONVERTS  EACH  COMPONENT  INTO  A  CHARACTER 

46  C  AND  PLACES  THAT  character  IN  THE  CNUM  STRINC. 

47  c - 

4S 

49  M  -  0  I  PLACE  VALUE  BUPPER 

50  I  -  I  !  PLACE  VALUE 

51  B4  -  0  I  character  PLACE  COUNTER 
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SI 

SI  DOIOI-I4  !  LOOP  THRU  TOE  PLACE  VALUES 

54  V(NUMBER.LT.])COTOX  I  LOOKINC  POR  THE  PLACE  VALUE 

55  )-]*T0  I  MCREMEKT  PLACE  VALUE 

56  10  CONTINUE 

ST 

SB  C - 

SB  C  HERE  I  CCr  THE  ACTUAL  INTECER  VALUE  THAT  RESIDES  IN  each  PLACE 

to  C  VALUE.  It...  THOUSANDS  PLACE  (PLACE  VALUE)  -  S 

t1  C  HUNDREDS  PLACE  (PLACE  VALUE)  -  3 

62  C  TENS  PLACE  -  B 

63  C  ONES  PLACE  -  2 

M  C - 

65 

66  20  1-  1-2 

67  I-10"I*B  !  I  COES  TO  TOP  OP  THIS  PLACE 

tB  R-10“I  !  K- BOTTOM  OP  THIS  PLACE  VALUE 

6« 

70  DO  100  LOOP  -  1.1  »  1  •  LOOP  THRU  THE  place  VALUES 

71 

72  DO40NUM-IA-K  I  PIND  THE  INTECER  POR  THIS  PLACE 

73  L-NUM-NUMBER 

74  M-Mtl  !  ACniAL  INTECER  VALUE  WANTED 

75  V(Ll£.0)COTO  50  I  VALUE  E  POUND 

76  40  CONTINUE 

77 


Bl 

B2  SO  M  -  M  «  1  !  CHARACTER  PLACE  COUNTER 

B3  NUM  -  10  •  M  I  ACTUAL  INTECER  SOUGHT 

B4  CNUM(M:M)  -  CHARINUM  4  4B)  I  CONVERT  R4TK:ER  TO  CHARACTER 

as 

Bt  M-0  I  RESET  THE  MTECER  COUNTER 

S7  NUMBER- NUMBER -(K*  NUM)  I  DECREMENT  THE  NUMBER 

SB  l-l-l 

SB  I-10"I*B  !  DECREMENT  TOP  VALUE  OP  PLACE 

BO  K-IO**!  I  DECREMENT  BOTTOM  value  OP  PLACE 

Bl 

B2  100  CONTBUUE  lENDOPLOOP 

B9 


V  THE  NUMBER  WAS  NECrnVE  I  PLACE  A  MmuS  SIGN  M  PRONT  OF  THE 
CHARACTER  STRBBC  BEFORE  I  SEND  IT  OUT. 


110  W(NEC.EQ.l)mEN 


CBUP-CNUM 


!  THE  NUMBER  BNECniVE 
I  RESET  THE  NECrrrVE  INTECER  PLAC 

I  klAKE  A  COPT  OP  THE  character  STR 
t  BrniALBE  CHARACTER  PLACE  CNTR 


DOI20I-1.M  I  LOOP  THRU  THE  character  STRIBC 

L-L4t  !  MCREMENT  CHARACTER  COUNTER 
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10*  CNUM(l;L)  -  CBUP(I:I)  >  SHIFT  THE  STUNG  1  PLACE  RIGHT 

107  l»  CONTINUE 
100 

10»  CNUMCIil)  - I  ADD  THE  MINUS  SIGN  TO  FIRST  CHR 

110  M-gg4l  )  CORRECT  THE  CHARACTER  COUNTER 

111  DIDIP 
111 

113  LENGTH  -  IN 

II* 

115  C  WROEr,*)-  THE  CHARACTER  -  ’.CNUM,-  IN  -  •.lENCTH 
11*  C 

117  C  GOTO  5 
110 

11*  1000  NUMBER  -  NUMBUF 

110  RETURN 

111  END 
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AIV.ll  Analog  APSD  Software  Modules:  INTRPT  Source  Code. 


suwouTME  »niirT(»n.CH) 

c- - — _ 

C  niGROiniNEWaLTAKE  ANDINTECER  ANOTURNITINTOA 
C  CHARACIEKSnUNC  equivalent  TO  THE  INm^ES  FOR  THE 
C  TEK  TERMINALS. 


•  CHARACTER  CH*«.C 

«  MTECERINTjn^ 

10  DMENSiON  C(«) 

11  KNT-O 

II  CH--  • 

13  L-0 

14  XI-M00(INT,I6) 

15  X2-INT/16 

1«  IP<INT.CT.0)THEN 

17  X1-Xl44a 

10  ELSE 

W  XI-XU31 

10  ENDIF 

11  ICNT-ICNT+I 

n  C0)-CHAR<X1) 

13  ■*(MT.LE.0)COTO30 

14  DOIOI-I^ 

15  IP  (XI.CX.M)THEN 

16  XI-MOD(XI,64) 

17  XI-XI«4 

It  XI-XI«64 

I*  C(I)-CHAR(XI) 

30  KNT-KNTtl 

31  ELSE 

33  X1-X3«64 

33  0(I)-CHAR(X1) 

34  KNT-KNTtl 

35  COTOSO 

36  oaup 

37  30  CONTWUE 

30  COTOSO 

30  »  DO40I-I.6 

40  P<XI.LE.44)1HEN 

41  X1-MOO(X2^) 

43  XI-X3«4 

43  X1-X1«64 

44  C<I)-CHAR(X1) 

45  ICNT-ICNT«I 

46  ELSE 

47  X1-XI«64 

40  OOhCHAROn) 

0*  ICNT-OIT+I 

50  COTOSO 

51  DA>» 
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S2 

40  CONTWUE 

53 

SO 

L-7 

M 

*(WT.LT.1i.  AND.MT.CT.-»)iOfr- 1 

55 

DO(0)-1,IC34T 

56 

L-L-1 

57 

CH0^P-C<n 

SI 

60 

CONTINUE 

59 

L-0 

60 

DO  70  l-U 

61 

»(CH<H).EQ.- TCOTO  70  1  B  THB  A  BLANK  SPACE 

62 

L-L+l 

63 

C(l)-CH(H) 

64 

70 

CONTINUE  1  THESE  DO  UX>PS  PLACE  TNE 

65 

1  CHARACTERS  ON  THE  LEFT 

66 

CH--- 

67 

DOi0I-l,L 

61 

CH(H)-C(D 

69 

•0 

CONTINUE 

70 

L-0 

71 

RETURN 

72 

E?4D 
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AIV. 12  Analog  APSD  Software  Modules:  LASER.JN  Source  Code. 

1  SUatOUTWE  LASaUN<SAMP.ACENT,CONCNOSAMI>J4AME,lAS,LAMDA, 

2  LASjOBO.EXn) 

THB  MOD  6  USED  FOR  ENTEUNC  SPECIFIC  LASSl  DATA  FOR  EACH  SAMPLE 
5  C  IF  THE  USER  WANTS  TEKTRONIX  GRAPHICS-  IHE  ROUTINE  B  RUN  JUST 

after  the  SAMFU  information  CATHEUNC  routine  '  TEXJNFUTS  ' 

t 

9 

10  CHARACTER  NAMEna^MF^,ACENT*10.CONC*tS,LAMDAMS 

n  CHARACTER  DATE*9,TTME^TEXT^.EM,A*5,SEC?3 

12  CHARACTER  CORRECT*XSAIklFCNT,LASERS,COUNT^ 

13  CHARACTER  SAMFLEW.ERROR.t.jOROER 

14 

15  MTECER  CHANCE.ERRMSC,X.XX1,yi,Y2.Y3 

It  WTECER  LAS,LAS_ORO,ORDER 

17 

10  REALREND,R1NCR.RARM 

14  REALOET 

20 

21  C - 

22 

23  DBIENSION  SAMP(10).ACENT(10),CONC00) 

24  DIMENSION  LAS(10).L4MDA(4(q,I^_ORO(40) 

25  DIMENSION  STARTC10).STOF(10),INC00).POS(10) 

2t 

27  DIMENSION  COUNT(4) 

20  DATA  COUNT  ritr,’2n<r,’3rf/4«h7 

29 

30  2  FORMAT<A20) 

31  3  FORMATIA4) 

32  4  FORMATrOO 

33  5  FORMAT(A2) 

34  t  format  (A) 

35  7  FORMATTB) 

3t  0  FORMAT  (A10) 

37 

30  E  -  CHAR(27) 

39  CHANCE  -  0 

40  BTART  -  1 

41  KNT  -  1  I  SAMPLE  COUNTER 

42  BAMF-  1 

43  cxir-o 

44 

45  C - 

40 

47  CALL»fT_TO_CHAR(NOSAMF.SAMFLE,l£)  •  CONVERT  TO  CHARACTER 

40 


50  C  TTOS  FART  PLACES  A  RED  PANEL  segment  0000  NO  THE  ENTIRE  SCREEN 

51  C  FOR  A  RACKCROUND. 
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52  C- 
51 


$4 

w«nEr,*)E//w 

!  FIXUP LEVELO 

55 

WMrer.TE/rBKr 

!  DELETE  ALL  SEGMENTS 

5fi 

wurrer.TB/TWj' 

!  PD(UP  LEVEL  NORMAL 

57 

56 

EEc-aooo 

59 

CALL  »ITm  (I5EC,SEC) 

60 

wiuref,*)Br5P//sEc 

!  BEGIN  THE  PANEL  (000 

61 

ynmc-yantf 

1  PANEL  COLOR  RED 

62 

X-l 

63 

Y-l 

64 

CALLHIY(X.Y,A) 

65 

vnmr.'yEjnr-uA 

!  SET  PANEL  ORIGIN 

66 

67 

X-40K 

66 

CALLHIY(X,Y,A) 

69 

W«nEC,TE//TjC7/A 

!  draw  BOTTOM  OP  PANEL 

70 

Y-3276 

71 

CALLHIY(X,Y.A) 

72 

w«rrer,*)&/TjC//A 

•  DRAW  LEFT  SIDE  OP  panel 

73 

X-X-40M 

74 

CALLHIY(X.Y,A) 

75 

W«IICC/)E//Tfi'//A 

!  draw  TOP  OP  PANEL 

76 

WBnEf,*)E/rSC 

1  CLOSE  AND  PILL  PANEL 

77 

76 

C- 

79 

c 

THB  B  THE  PIRST  LINE  THAT  6  REQUIRED  BY  THE  USER. 

60 

c 

NAME,  DATE,  TIME  AND  NUMBER  OF  SAMPLES. 

61 

c- 

62 

S3 

CALL  T1ME4<DaTE.T1ME) 

!  SYSTEM  TIME  AND  DATE 

64 

65 

EEC-1 

66 

CALL  MTRPr(6EC,SEC) 

67 

66 

69 

90 

WRTIEr.*)E//^//5EC 

!  BECB4  THE  SEGMENT 

91 

ynmr.'HE/nnr 

I  LINE  COLOR  WHTTE 

92 

X-100 

«3 

Y-ICOO 

94 

CAU  HIY  (X.Y,A) 

95 

wRrrEr.’)E//ap’//A 

1  SETTEXT  ORIGIN 

96 

WRITEr.*JE/rLTY'//DATE 

!  WRITE  THE  DATE 

97 

X-  1000 

96 

CAU.HIY(X.Y.A) 

99 

wRUEr.TE/nrtfA 

!  SETTEXT  ORIGIN 

100 

wnriEr.iEn.Tr/mME 

1  WRITETHETIME 

101 

103 

WRirEr.TBrMIT 

1  L»IE  COLOR  RED 

103 

x-ioao 

104 

CAU.HIY(X,Y,A) 

106 

wRmr.nBFirM 

1  SETTEXT  ORKM 
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106 

■reXT  -  •  NAME.-- 

wr 

mmr.’)iEjn.TrintxT 

!  WRHE  THE  DATE 

lot 

wtrrer,*)Brsc 

100 

110 

111 

C 

IHEPARTDRAWS  A  ROX  AT  THE  ROTTOM  OP  THE  SCREEN  FOR  THE  DMLOC 

112 

C 

AREAMPinS. 

113 

114 

115 

6EC-EEC«1 

1U 

CALL  MTRPT  (EEC.SEC) 

117 

WRnEr,1BrtF/«EC 

*  BEGIN  THE  PANEL  iOX 

118 

WRnEf,*)B/T»n.V 

!  LINE  COLOR  WHTIE 

119 

vnmr.'^nm 

!  PANEL  COLOR  RLUE 

130 

X  -  1 

121 

Y-  1 

123 

CALLHIYOCY.A) 

123 

WRnEr,*)E//XP’// A/PI  • 

!  SET  PANEL  ORIGIN 

124 

X-409S 

125 

CALL  HIYOLY.A) 

126 

wRnEr,TE/m:v/A 

*  DRAW  BOTTOM  OP  PANEL 

127 

Y-450 

128 

CAUHIY(X.Y,A) 

129 

WRnEf,*)E//XC'//A 

•  DRAW  LEFT  SIDE  OP  PANEL 

130 

X  -  X>40M 

131 

CAUHIYP(,Y,A) 

132 

wunET.iE/njcv/A 

■  DRAW  TOP  OP  PANEL 

133 

wRiTEr.TE/njr 

!  POL  THE  PANEL 

134 

13S 

136 

c 

THB  DRAWS  A  LV1E  AROUND  THE  TWO  DIALOG  AREA  LINES:  COLOR  RED 

137 

138 

139 

wRnEr.TE/rMLr 

•  PANELCOLORRED 

140 

X-  100 

141 

Y-  ISO 

142 

CAUHIY(X,Y.A) 

143 

WRnEr.TE//TP’//A 

!  SET  PANEL  ORIGW 

144 

X-3995 

145 

CALLHIY<X.Y.A) 

146 

WRirEr.TE//XC7/A 

!  DRAW  ROTTOM  OP  PANEL 

147 

Y- Y«250 

148 

CALLHIY(X.Y,A) 

149 

WRnEr,TB/lC7/A 

f  DRAW  LEFT  SIDE  OP  PANEL 

ISO 

X'  100 

151 

CALL  HIYP(,Y,A) 

152 

witrT8c,*)Emr/^A 

!  DRAW  TOP  OP  PANEL 

153 

Y-  Y-2S0 

154 

CALL  HTYpLY^A) 

1S5 

wRnE<*,*)Em:’«A 

<  DRAW  LEFT  SIDE  OP  PANEL 

1S6 

152 

c- 

i» 

IS*  wmrer.TBmn' 
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IM 

161 

TEXT  -  INTER  <  E  >  TO  EXIT 

162 

16) 

X-1600 

16* 

Y-«) 

165 

CAU.Hnr<X.Y.A) 

166 

WIinEC,’)E//TP’//A 

!  SET  TW  ORIGIN 

167 

WimEp,’)E//T.TA«V/7EXT 

!  WRITE  THE  TEXxx*%]r<Rn'nu 

1*6 

wiinEr,’)E/«c 

!  ciosE  and  FILL  Panel 

16» 

170 

C- 

171 

c 

THB  SETS  UP  THE  DIAUX:  AREA  so  THAT  THE  TEXT  AND  DATA  ENTRY 

172 

c 

ARE  ALL  WnHIN  THE  DATA  INPUT  WINDOW. 

17) 

17* 

175 

wRnEp,*)E/n.w 

t  DISABU  DIALOG  AREA 

176 

WRnE<*,*)E//XZ' 

!  CLEAR  dialog  AREA 

177 

WRITEr,’)E//Ti2' 

•  DIALOG  AREA  2  LINES 

170 

WRnEf.TE/rLCDI- 

!  65  CHARACTER  ALLOWED 

m 

WRnEr,*)E//TiilLr 

!  DIALOG  TEXT  WHITE 

100 

X  -  200 

101 

Y  -  160 

102 

CALLHIY(X,Y,A) 

10) 

WRnEr,*)E//TX7/A 

1  SET  TEXT  DULOG  ORIGIN 

1M 

105 

106 

107 

C— 

100 

c 

THS  WRHES  THE  NAME  OP  THE  PERSON  RUNNING  THE  EXPERIMENT 

109 

C— 

190 

191 

1*2 

EEC-S 

W 

CALL  tTTRPT(BEC,SEC) 

1*4 

195 

WRnEr.’»E/PSIC7«EC 

’  DELETE  THE  SEGMENT 

1*6 

1*7 

wRnEr.ic/Psr//5Ec 

!  BEGIN  THE  SEGMENT 

1*0 

WRnEc.TE/rMPr 

!  PANEL  COLOR  GRAY 

1** 

WRrtEr.TBPMTI' 

!  TEXT  COLOR  WHTIE 

200 

201 

X  -  2500 

202 

Y-297S 

20) 

CALLHTY(X.Y,A> 

20* 

WRHEr.TBPJP’WA 

!  SET  PANEL  ORIGIN 

205 

X  -  X  1 1100 

206 

CALL  HrY(X,Y,A) 

207 

WRrrEr.')E/PLC7>A 

1  DRAW  BOTTOM  OP  panel 

200 

Y  -  Y  ♦  100 

20* 

CALLHIYpLY.A) 

210 

WRnEr.*)E7PLC-tfA 

•  DRAW  LEPT  SIDE  OP  PANEL 

211 

X  -  X  •  1100 

212 

CALLHIY(X.Y,A) 

21) 

WRnEp.*)EffXCr#A 

!  DRAW  TOP  OP  PANEL 

190- 
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M4  WUTEr.nEffXr  !  nix  TOE  PANEL 

215 


216 

217 

C- 

C 

TOB  PLACES  TOE  TE)CT  IN  TOE  PANEL 

218 

Qm 

219 

220 

X-2550 

221 

Y-3000 

222 

CAIiHIY<X,Y,A) 

223 

WIinEp,»)E//TJ’tfA 

!  SETTOE ORIGIN 

224 

WmrEr,’)E/rLTA4V/NAME 

!  WRnETHENAME 

225 

WWTEf.*)E//BC 

1  CLOSE  THE  SEGMENT 

226 

227 

C- 

228 

c 

TOB  DRAWS  TOE  SAMPU  DATA  HEADER  AND  NUMBER 

229 

C— 

230 

231 

40 

EEC  -  7 

232 

CALL  INTRIT(ISEC,SEC) 

233 

WRnEC,«)E//W//5EC 

!  DELETE  THE  SEGMENT 

234 

WRrtEr,*)E/rsr//5EC 

!  BEGIN  THE  SEGMENT 

235 

236 

X-  1 

237 

Y-MOO 

238 

CALL  HIY<X,Y.A) 

239 

WRnEC.*)E//T4U' 

•  UNE  COLOR  BLUE 

240 

WRnEr,’)E/7lP'/M 

•  SET  UNE  ORIGIN 

241 

242 

X-40P5 

243 

CAU.HIY<X,Y,A) 

244 

WRITEC/)E//TjC'//A 

1  SETUNEEND 

245 

246 

wRTiEc.TBmpr 

•  PANEL  COLOR  CRAY 

247 

wRiiEr.TE/rMn' 

1  TEXT  COLOR  WHTIE 

248 

249 

X-  BOO 

250 

Y-1550 

231 

CAUHfY(X,Y,A) 

252 

WRnEp,*)E/rLr/M 

•  SET  PANEL  ORIGIN 

2S3 

254 

X  -  X  ♦  1100 

255 

CALL  HIYPLY.A) 

256 

WRnEr.’)B/TX:7/A 

!  DRAW  BOTTOM  OP  BOX 

257 

258 

Y  -  Y  ♦  100 

259 

CALLHIY(X.Y» 

260 

WRire<»,TE/nLC'»A 

•  RIGHT  SIDE  OP  BOX 

261 

262 

X-X-IIOO 

263 

CAILHIYPLY.A) 

264 

WRnEp,*)BrLC'»A 

1  TOPOPBOX 

265 

WRflEC.TBOF 

!  PnXTHEBOX 

286 

267 

wimv.TEmn' 

!  TEXT  COLOR  WHTTE 
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2U 

■m  X '  X  4 100 

270  Y  -  Y  -  75 

271  CAU  HIY(X,Y.A) 

272  WRrrEC,*)E/rLF’//A  f  seTTOfT  ORIGIN 

273 

274  CAUINTJTO_01AIl(ICNT,SAMI>C>rr,LE)  !  CONVERT  TO  CHARACTOl 

275 

27t  CAU.INT_TO_CHAR<NOSAMP,SAMPLE,LE)  !  CONVERT  TO  CHARACTHl 

277  I  THE  NUMBER  OP  SAMPLES 

27S 

279  IP(NOSAMP.EQ.1]iTHEN 

2ao  WRnEr.*)E/n.Tr//'i  op  i  samples'  •  wroe  the  text 

251  ELSE 

252 

2B3  WRnEC ,*)E//T.TA4'//SAMPCNT//'  op  -.SAIXPLEO  :LEy/ 

254  SAMPLES' 

255 

296  ENDIP 

287 

2(8  WRnEr,’)E//^  !  END  SEGMENT 

289 

290  C - 


291 

292 

293 

C 

C 

THB  WUIt  THE  COLUMN  HEADERS  FOR  *  SAMPLE  NAMES  *  AGENT  TYPES 

AND  •  CONCENTRATIONS  • 

294 

299 

BEG  -  8 

296 

CAa  INTRPT(ISEC.SEG) 

297 

WtnEC.’)E/rSK'//5EG 

299 

WRr(E^.’)E/rsr//5EG 

!  BEGIN  THE  SEGMENT 

299 

300 

WRnEc,')E//Tknr 

!  TEXT  COLOR  YELLOW 

301 

X-500 

302 

Y  -  2250 

303 

CALL  HrY(X,Y,A) 

304 

WRnEf,TE//aP'//A 

!  SETTEXT ORIGIN 

305 

TEXT  -  •SAMPLE:' 

306 

WRnEr,»)E/rLTr//TEXT 

!  WRITE  SAMPLE  TEXT 

307 

300 

X  -  1800 

309 

CALL  HIY(X,Y,A) 

310 

wRnEr,’)E/np'//A 

•  SETTEXT  ORIGIN 

311 

TEXT  -  AGENT:- 

312 

*VRnEf.’)E»T.T>'//7EXT 

!  WRITE  SAMPLE  TEXT 

3'«3 

314 

x-3oao 

315 

CAUHIY{X,Y,A) 

316 

WinEp,»)E//TP'//A 

1  SETTEXT  ORKIN 

317 

TEXT  -  -CONCENTRATION' 

310 

WBnEf,')E/rLTAr/7iExr 

!  WUnE  SAMPLE  TEXT 

319 

310 

WRflEC.TE/rSC 

321 

192- 
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322  C- 

323 


324 

50  EEC  - 10 

325 

CALL  INT1»T(EEC,SEC) 

336 

WItnEr.’)E//^7/SEC 

327 

WIinEr.*)E//^E'//SEC 

320 

329 

Y-  2100 

320 

X-200 

331 

CALLHIY{X,Y,A) 

332 

WWTEr.’)E/^LI>’//A 

1  SET  panel  OUCIN 

333 

334 

X  -  X  1 1100 

335 

CALLHIY(X,Y,A) 

336 

WimEr,*)E//XC7/A 

!  DKAW  BOTTOM  OP  BOX 

337 

330 

Y  -  Y  ♦  100 

339 

CALL  HIY(X,Y.A) 

340 

WRrrer.’)E//TjC7/A 

!  RIGHT  SIDE  OP  BOX 

341 

342 

X-X-1100 

343 

CALLHIY<X.Y,A) 

344 

WlinEC.*)&'TjC7/A 

!  TOP  OP  BOX 

345 

WMIEC/IE/rLE’ 

•  PIUTHEBOX 

346 

347 

WIUTEr.*)B/Vn' 

f  TEXT  COLOR  WHITE 

340 

349 

X  -  X  4  100 

350 

Y  -  Y  -  75 

351 

CALLHtY(X.Y,A) 

352 

wRnEr.*)E/'TJ’//A 

!  SET  TEXT  ORIGIN 

353 

354 

WlinE(',’)E//T.ir//5AMF(ICNT) 

1  WRITE  THE  SAMPLE. 

355 

Y- Y-25 

356 

357 

C - 

350 

359 

X-  1500 

360 

CALL  H1Y(X,Y,A) 

361 

ynarer.'yetnriiA 

!  SET  panel  ORIGIN 

362 

363 

X  -  X  4  1100 

364 

CALLHIY{X,Y,A) 

365 

wiutec.*)E//tc7/a 

1  DRAW  BOTTOM  OP  BOX 

366 

367 

Y  -  Y  4  100 

360 

CALL  HIY(X,Y,A) 

369 

WlinEr,*)E//XC7/A 

!  RIGHT  SIDE  OP  BOX 

370 

371 

X  -  X- 1100 

372 

CAU.HrY(X,Y,A) 

373 

wi«rrer,*)E//iC7/A 

!  TOPOPBOX 

374 

wurrer-TE^/oF 

PILL  THE  BOX 

375 

193- 
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37» 

w«rrep,*)Emn' 

!  TECT  COLOR  WHTTE 

377 

371 

X  -  X  +  100 

379 

Y- Y-75 

330 

CAU.HIY<X,Y,A) 

3S1 

WWTEp,*)E//TF//A 

!  SET  TEXT  ORIGIN 

382 

WIirrEr.’)B/XT7-//ACENT(ICNT) 

383 

Y-  Y-25 

384 

MS 

366 

367 

X-28a0 

366 

CAUHIY(X,Y.A) 

369 

WWTEP,*)E//XP’//A 

!  SET  PANEL  ORIGIN 

390 

391 

X  -  X  ♦  1100 

392 

CAU.  HIY(X,Y.A) 

393 

WRnE<*.’)E//TjC'//A 

•  DRAW  BOTTOM  OF  BOX 

394 

395 

Y  -  Y  ♦  100 

396 

CAU.  HIY(X,Y,A) 

397 

WMref,*)B/TjC'//A 

1  RIGHT  SIDE  OF  BOX 

396 

399 

X  -  X  -  1100 

400 

CAUHIY{X,Y,A) 

401 

WWTEf.TB/XCVM 

!  TOP  OF  BOX 

403 

vmrer.'ie/ne-  i 

POL  THE  BOX 

403 

404 

wunzT/ie/rmi’ 

!  TEXT  COLOR  WHTIE 

405 

406 

X  -  X  ♦  100 

407 

Y- Y-75 

406 

CAU.HIY(X.Y.A) 

409 

wKn^.’)e/nf//A 

!  SETTEXT ORIGIN 

410 

YnimC,')E//TTr//CONC(KNT) 

411 

wiimr,’)E/rsc 

412 

SIS 

C— 

414 

c 

1HB  NEXT  PAKT  GETS  THE  NUMBER  OF  AGENTS... 

SIS 

416 

417 

52 

FORMAT|5X,-ENTER  THE  NUMBER  OF  LASERS  ( 1  -  4  ):  -4) 

416 

419 

wRnEr.*)E/n.vi’ 

!  ENABLE  DIALOG  AREA 

430 

421 

40 

winEr.*)E//TX 

1  CLEAR  THE  DIALOC  AREA 

422 

1i«nE<*42) 

423 

434 

READ<'.«)I-ASEItS 

1  READ  LASER  COUNT 

425 

426 

V(LASERS.EQ.'r.OILLASERS.EQ.'c’)THEN  !  USERTOEXTT 

427 

EXIT-]  t  SET  EXIT  FLAG 

436 

GOTO  1000 

1  RETURN  TO  CALLER 

429 

ENOV 

194- 


Appendix  IV 


430 

♦S*  •EAD(lASE«S,'(tN,n)',EIUl-40)LCNT  •  CONVEKT  TO  B4TECER 
433 

433  *(UNT.LT.l.OILLCNT.CT.4)COTO40  !  BAD  INPUT  tX3  IT  AGAIN 

434 


435 

436 

C - 

C  IHB  BEGINS  niE  LASER  INPUT  SECTION... 

437 

43S 

43> 

70  EEG  -19 

440 

441 

X  -350 

442 

Y  -  1750 

443 

444 

CALL  »rntPT<ISEG.SEG) 

445 

WlinEp,*)E/rSK‘//SEC 

<  DELEIETIIE  segment 

446 

WRnEC,*)E/7SE'//5EC 

!  BEGIN  THE  SEGMENT 

447 

440 

WRITEr,*)E//>n.1' 

!  LINE  COLOR  WHITE 

449 

WRnE(*,*)E//3IP»- 

!  PANEL  COLOR  GREEN 

450 

wRnEr,*)E//Tknr 

!  TEXT  COLOR  YELLOW 

451 

452 

453 

CAa  HIY(X,Y,A) 

454 

WRnEC.TE//TP’//A 

!  SETTEXT ORIGIN 

455 

TEXT-U' 

456 

WRrrEr,*jE//xTr//rexT 

!  WRITE  THE  TXT 

457 

450 

VmiEC.*)B'W4- 

!  TEXT  COLOR  BLUE 

459 

x-xnso 

460 

461 

CAlLHIVptY.A) 

462 

WRnE(»,*)B/TP’//A/7’l’ 

!  SET  PANEL  ORIGIN 

463 

X-X  +  700 

464 

CAU.HIY(X.Y,A) 

465 

WRIIEC.TBrLCV/A 

!  DRAW  BOTTOM  OP  BOX 

406 

467 

Y  -  Y  ♦  100 

460 

CAUMIY(X,Y,A) 

469 

wRrrE(*,TE/rLG7/A 

!  RIGHT  SIDE  OP  BOX 

470 

471 

X-X-700 

472 

CAU.HIY(X,Y,A) 

473 

WlCTEf  «)E//XGV/A 

1  TOP  OP  BOX 

474 

WRITEf,TE//lP 

1  PILL  THE  BOX 

475 

476 

Y- Y-7S 

477 

X  -  X  ♦  ISO 

470 

CAIXMIY(X,Y,A) 

479 

!  SETTEXT  ORIGIN 

400 

CAU.  »n'_TO_CHAII(LCNT,LASERS,IJE) 

401 

WIIIIEr.*)E/n.Tr«LASEIIVr  LASERS' 

402 

WRrTEC.TBrSC 

1  CLOSE  THE  SEGMENT 

4B3 
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484 


48$ 

486 

487 

488 

c- 

c 

c 

C— 

THE  WMTS  THE  TEXT  HEADER  INFORMATION.  THE  NUMBER  OP  THE  HEM 

FOR  THE  LASER  ORDER  AND  WAVEIENCTH, 

489 

490 

BEC-21 

491 

CALL  INTRFT(BEC,SEC) 

492 

WRITEf,*)E//VCV«EC 

493 

ynmc.’f/rseiixc 

494 

vnmc.'iE/rmr 

!  TEXT  COLOR  YELLOW 

495 

X-23S0 

4916 

Y-  1820 

497 

CALLHIY(X,Y.A) 

498 

WRnEC/)EfflP'//A 

•  SET  TEXT  ORIGIN 

499 

TEXT  -  LASER- 

500 

WRnEr,*)E/rLT3-//IEXT 

!  WRrTETHETXT 

$01 

Y-  1750 

$02 

CAILHIY(X,Y.A) 

$03 

WRnEC,’)E/rLP-//A 

!  SET  TEXT  ORIGIN 

$04 

TEXT  -  -ORDER- 

$05 

WRnEC,*)E//XTS-//TEXT 

!  WRITE  THE  TXT 

$06 

$07 

X  -  3050 

$08 

Y-1730 

$09 

CAUHIY(X,Y,A) 

510 

WRnEr.-)E//lP'//A 

!  SET  TEXT  ORIGIN 

$11 

TEXT  -  -wavelength- 

$12 

WRnEr.*)E/rLT:-//rEXT 

!  WRITE  THE  TXT 

513 

514 

WRITEr,*)E//'SC 

IS 

l«  C- 


517 

$18 

519 

C 

C 

c 

THB  BEGINS  A  LOOP  THRU  THE  LASERS  FOR  EACH  SAMPLE.  THE  LASER 
NUMBER  (1  -4)  6  TAKEN  ALONG  WTTH  THE  WAVELENGTH  THE  LASER  WILL 

KTUNEDTDO. 

$21 

522 

WRnE<*.’)E//LZ- 

1  CLEAR  dialog  area 

523 

LASflCNT)  -  LCNT 

1  place  NUMBER  OF  LASERS 

524 

525 

528 

527 

D0  400I-  1,  LOVT 

1  LOOP  THRU  THE  LASERS 

528 

Q 

530 

c 

THB  DRAWS  THE  PANEL  THAT  SHOWS  TVHICH  LASER  B  TO  BE  DESC1UBED. 

531 

c— 

532 

533 

534  n  -1200 

535  X  -500 

538  Y  -  Y1 

537 
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SN 

660-30 

S» 

CALL  »nRrT(6E&SEC) 

S40 

WRITEr,*)ErSK-//SEC 

1  DELETE  THE  SEGMENT 

Ml 

WRrrer,*)Brtr/«Ec 

!  BEGIN  THE  SEGMENT 

542 

543 

CAU  HIY(X,Y,A) 

544 

WRnEr.*)E//TP’//A/n  • 

!  SET  PANEL  ORIGIN 

545 

X-X*  1000 

546 

CAU.Hiy(X,Y^) 

M7 

WRntr.*)E//XGV/A 

!  DRAW  BOTTOM  OP  BOX 

545 

54* 

Y  -  Y  ♦  100 

550 

CAUHIY(X,Y,A) 

551 

WUnET.TBrtCV/A 

•  RIGHT  SIDE  OP  BOX 

552 

553 

X  -  X  •  1000 

3M 

CA1I.HIY(X.Y,A) 

555 

wRnEr.TE/ncv/A 

!  TOPOPBOX 

556 

WRIIEf.1E/7lF 

!  PILL  THE  BOX 

557 

555 

Y- Y-75 

555 

X  -  X  »  100 

540 

CAtLHIY(X.Y.A) 

561 

¥nmc.')fjnriiA 

!  SETTEXT ORIGIN 

562 

563 

WRfn6r.**/7MT4- 

t  TEXT  COLOR  BLUE 

564 

565 

R^SERSEQ -ITTHEN 

566 

wRnEc.TE/TtTr/ri  or  i  laser-  >  mm  the  text 

567 

565 

else 

56* 

CALL  Rn-.TO.CHAROX^rT.LASERS.LE) 

570 

WRfTEr.*)Dn.TT/7C00NT(iy/’ OR -//LASERS/r  LASERS' 

571 

572 

END57 

573 

574 

WRnET.TBTSC 

!  CLOSE  THE  SEGMENT 

575 

576 

c— 

577 

575 

100 

K)RMAT(5X.‘ENTER  -.AS.-  LASER  NUMBER:  '4) 

sn 

550 

102 

BORMATTSX.'ENTER  the  laser  NUMBER:  ( 1  -  4  )  '4) 

551 

552 

553 

110 

P(IjCNT.EQ.I)THEN 

!  W  ONLY  ONE  laser  THEN 

554 

WRIIEC,102) 

1  GET  THE  LASER  NUMBER 

555 

ELSE 

556 

WBnEr.100)COONT(l) 

557 

ENDV 

READ  rAERR-IKqi^ORDCR 


I  READ  IHEtASEX  ORDER 
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9*2 

sn  V(L.OU>ER.EQ.")COro  no  !  look  for  null 

SM 

>»  V(L.ORI>EILEQ.'r.OK.L.Oitt>ER.EQ.'«‘)THEN  !  USER  TO  EXIT 

S»»  IEXrr-1  •  SET  EXIT  FLAG 

WT  GOT0 1000  !  RETURN  TO  CALLER 

9W  ENDIF 

m 

MO  READ<L.ORDER.‘(BN.D)',ERR-no)ORDER  !  MAKE  CHAR  AN  INTEGER 

Ml 

MJ  IF(ORDER.LT.1.0R.ORDER.CT.4)GOTO  110  !  EVALUATE  BOUNDS 

M3 

M4  LASjORD(I  ♦  MCNT)  -  ORDER  !  PLACE  M  ARRAY 

60S 

M6  C -  WRnE<*,*)E//TlF0'  !  FIXUFLEVELo 

607  WRITEr.*)E/TSKr  !  DELETE  AU  SEGMENTS 

60B  WRnEf,*)E//RF6'  !  FIXUF  LEVEL  NORMAL 

60» 

610  RETURN 

611  END 
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AIV.J3  Analog  APSD  Software  Modules:  MENU  Source  Code. 


1  SUMOUIWEMENU 

J  C - — _ 

C  THB  B  A  MENU  PO*  THE  MULLER  MATRIX  EXPERIMENT  POR  USERS  THAT 

C  DO  NOT  HAVE  A  CRAFHK5  TERMINAL. 


character  COOP.OUMTS 
character  •«  TTIlE.TI1.Tn,TO.TM,TI5 

10 

n  TTILE--  MULLER  MATRIX  EXPERIMENT 

11  TT1--1.  BEGIN  ANEW EXPERIMENr 

13  TD-1.  REVIEW  COUECTED  DATA- 

14  TD-a  CAUBRATEOPTK  STAGES' 

15  TM-'4.  CALIBRATE  AA3  CONVERTER' 

1*  TB-'S.  EXIT 

17 

IB  10  PRINT  I,TTHE  !  THE  PRINTS  THE  ABOVE  MENU 

W  PRINT  ETTI 

10  PII»rT].Tn 

11  PIUNT1.TD 

11  PRMT1.TM 

13  PR»IT3,TI5 

14 

15  1  PORMATri'.I0W.'ni,S»r7Kni,'^,T49,'»'/) 

IB  S  T11,'",'ni,A,Tt»,'*'/ni,'“,T4»,'^/T11,'“,T49.'^ 

17  1  PORMA'rmi.»,Tll,A,T»,'"/ni,-^,T69.'^mi  ».T*».'^ 

II  3  PORMATHTI  •,'ni,A,TB9»mi.'^.Tt9.'*'/nt,-.TW.'*'/ 

»  S  TlIJBr-y) 

30  4  PORMAT(A) 

31 
31 

33  C - — - - - - - 

THB  ROUTES  THE  USER  TO  THE  PROPER  SUBROUTINE  SELECTION 
3S  - - 

3B 

37  READ  (•/.ERR-BOO)  I 

31 

3*  IP  (I.LT.1  .OR.I.CT3)  COTO  BOO 

40 

41  GOTO  000.100^,400^00)  I 

41 

41  100  CALL  NEW.IEKD)  I  BECBIANEWEXP 

44  GOT0 10 

45 

4B  100  CALLLOOKUP  !  LOOK  AT  OLD  DATA 

47  GOT0 10 

41 

«•  300  CALLSTACEJOStnON  !  CAUBRATE  OPTIC  STAGES 

SI  COTOW 
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52  400  CAU.A2D_CAL  f  CAUBRATE  DATA  COLLECTION 

53  GOT0 10 

54 

55  400  WRITE  f  ,*)TIEASE  KEEP  YOUR  NUMBERS  WITHIN  THE  LBT 

St  WRITEf.T  RETURN  TO CONTlNUr 

57  READ  r,4)  COOP 

SB  COTOIO 

S» 

to 

t1 

tl  500  RETURN  I  USER  WANTS  TO  EXIT 

43  END 


200- 


Appendix  IV 


AIV.14  Analog  APSD  Software  Modules:  MIX  Source  Code. 


SUMOinWE  MK(AJ4UMKIt) 


nos  KOUTME  chances  IKTTECEKS  OP  9999  OR  USS  MTO  CHARACmtS 
SOTHATIHEY  CAN  BE  USED  AS  NAMES  OP  PILES  POR  THE  SAVED  DATA 
SnUNCS. 


( 

9  CHARACTER  NUMBERS 

10  MTECER  A,HTHOU,THOU,HUND,TEN.ONES 

11  C  READC,*)A 

12  C 

13  C  THE  WILL  SUPPRESS  lEADINC  ZEROS  TO  THE  CHARACTER  STRINC 

14  C 

15  nupp-A 

14  V  (A.CE.10a00)THEN 

17  NUMIJEN-1 

11  GOTO  2 

19  ELSEIP(A.CE.1000)THEN 

20  NUMLEN-2 

21  COTOS 

22  ELSE  V(A.CE.100)  THEN 

23  NUMLEN-3 

24  GOT0 17 

25  ELSE  IP  (A  CE.  10)  THEN 

24  NUMlEN-4 

27  COT035 

2B  EISE 

29  NUMUiN-5 

30  CaTOS5 

31  ENDV 

32  C 

33  C  THE  PART  SEPARATES  THE  »ITECEREfrOSB4Cl£  PLACE  VALUES 

34  C 

35  2  0031-90000^-10000 

34  l-SA 

37  K-K«1 

3B  B'0.LEil)COTO4 

39  3  CONTMUE 

40 

41 

42  4  HTHOU-OOX) 

43  C  WRflET.THTHOU-  MTTHOU 

44  A-A-<mHOU*10a00) 

45  K-O 

44 

47  5  D0 10 1-9000.0000,-1000 

41  I-4A 

49  K-K»1 

50  V0.U.QCOTO15 

51  W  CONTERIE 
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52 

S3 

54 

15 

■mou-oMC) 

S5 

C 

WnV.’TTOOU-  •,THOU 

S* 

A-A-<IHOtnOOO) 

57 

17 

K-0 

S» 

DO  30 1-WOA-IOO 

59 

J-l^ 

to 

41 

VO-LE^COTOJO 

42 

30 

CONimUE 

43 

44 

30 

HUND-OMC) 

45 

C 

WHITE  f  .^-HUND-  -,HUND 

46 

A-A-(HllNDn00) 

67 

35 

K-0 

46 

DO  40  l-OOA-10 

49 

I-l-A 

70 

K-K*l 

71 

*0LE^0)COrO90 

n 

40 

coifmuE 

73 

74 

50 

TEN-(10-K) 

75 

C 

W«nE<*.*ritN-  MEN 

74 

A-A-flEN’IO) 

77 

55 

K-0 

71 

DOW  1-9,0, -1 

79 

J-WA 

•0 

K-KM 

t1 

W  O-lE  O)  GOTO  70 

62 

40 

CONTMUE 

63 

64 

TO 

ONES-OWP 

65 

c 

WKnEt,TONES-  •,ONES 

64 

•7 

c 

66 

c 

HE«E  THE  value  Of  THE  IVTECER  R  CHANCED  TO  A  CHARACTEX 

69 

c 

90 

91 

GOTO  (iai00,100j00,400)  NUMIEN 

92 

93 

90 

NUMKK-CHAIt(HTHOU*4«yCHAI((THOU«4a) 

94 

t  M3UI(Hl]ND«4a)»CHAIinB4>4(y<C>IAI((ONE$»4«) 

95 

COTOSOO 

94 

97 

100 

NUMK>-CHAi(THOU«4ay/CHAIt(HUND*4«V/CHAR(TEN»4«) 

96 

s 

M:HAIl(ONESt4«) 

99 

corom 

100 

300 

NUMlER-CHAH<HUND«4SVCHAI(TTEN»4(y(CHAR(ONES«4a) 

101 

COTOSOO 

103 

300 

NUMIEK-CHAII<TEN*4ty/CHA*<ONES«40) 

109 

COTOSOO 

104 

106 

400 

NUMtEI(-CHAK(ONES44q 
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106 

107  SOO 
100 

109 

110 


/O 


♦ 


A‘BUPP 

K-0 

KETURN 

END 
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AIV.15  Analog  APSD  Software  Modules:  MOV_STAGE  Source  Code 


1 

2 

3 

4 

s 

* 

7 

( 

• 

10 

11 

12 

13 

14 

15 

16 
17 
IS 
19 

21 

22 

23 

24 

25 

26 
27 
2S 

29 

30 

31 

33 

35 

36 

37 

3S 

39 

60 

41 

42 
63 

44 

45 

46 

47 


C 

c- 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 


SUBHOUTINE  M0V3TACE(LASEIUNUM.TYPE.1>MDA,START_!>0S,REI>0RT, 
GRAPHICS) 


THB  ROUTINE  MOVES  THE  OPTK  STAGES  TO  THEIR  PROPER  POSmONS  POR 
CHANNELING  THE  LASER  SEAM  TO  ETTHER  THE  SPECTRUM  ANALYSER  OR  THE 
SAMfU. 


LASERJ4UM-  THB  B  THE  USER  DEFINED  LASER  NUMKR  POR  WHICH 
THE  MOVEMENT  OP  THE  OPTIC  STAGES  E  BEINC 
REQUESTED. 

TYPE  -  I.  USER  EREQUEST1NC  THAT  THE  LASER  BEAM  BE 
DIRECTED  TO  THE  SPECTRUM  ANALYZER 

2.  USER  E  REQUESTINC  THAT  THE  LASER  BEAM  BE 
DIRECTED  AT  THE  SAMPLE. 

3.  USER  E  REQUESTINC  THAT  THE  SAMPLE  STAGE  BE 
SENT  TO  ns  START  POSmON. 

LAMDA  -  WAVELENGTH  OP  THE  LASER  BEING  TUNED. 

START_POS  -  THE  OBTANCE  IN  STEPS  POR  AXE  1  TO  MOVE  THE 
THE  SAMPLE  STAGE  TO  ITS  HOME  POSmON 

RECORD  -  THE  E  AN  ERROR  FLAG  SENT  BACK  TO  THE  USER 
IP  ANY  ERROR  CONOmON  OCCURS  DURING  THE 
STAGE  MOVEMENT  OPERATION 

GRAPHICS  -  WTECER  FLAG  INOICATINC  THAT  A  TEKTRONIX  TERMINAL 
B  n  USE  AND  TO  CAU  THE  GRAPHICS  ROUTINE 
TEK_TEXT. 


CHARACTER>10  VELACC,DET,DOMMY,START_POS,PORT 
CHARACTtR*1  LASER.CS,AXB.CR,INPUT,ANS 
CHARACTER>20  PILENM 
CHARACTERS  MSC.MSC1 
CHARACTERMS  LAMDA,  ANALYTE,  AMOUNT 

INTEGER  TYPE,CRAPHICS.TXTJ>LC.RESET 

LOGICAL  T 

DIMENSION  VEl24).ACC(4)bDET(4).DUMMY(4) 


so  C - 

SI  C  THB  CHECKS  TO  SEE  IT  THE  TYPE -3  THB  B  THE  CALLER  ASKINC 
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52 

53 

C  THAT  THE  SAMPLE  STAGE  BE  MOVED  TO  nS  USER  DEFINED  START  POSITION. 

54 

55 

V(TYPE.EQJ}THEN 

56 

velokt^)  -  'W 

57 

ACC0)0  J)  -  'W 

55 

DBTO)  -  STAKTJOS 

59 

GOTO  SO 

60 

DODIP 

61 

62  C- 


63 

64  5 

PORMAT(12<A10)) 

65 

lOTT-O 

46 

CR  -  CHAROS) 

!  CARRIAGE  RETURN 

67 

GS-CHAR(29) 

1  character  required  TO  ESTABLBH 

65 

!  A  SERIAL  THRU  LINK  TO  A  DEVICE 

49 

L-  LA5ER_NUM 

•  TRANSFER  THE  LASER  Nt»IBER  TO  "L' 

70 

REPORT -0 

•  BIITIALL2E  ERROR  PLAC  TO 'NONE' 

71 

72  C- 


73 

74 

75 

C 

C 

THB  PART  ESTABLEHES  THE  DATA  PILE  NAME  THAT  HOLDS  THE  STAGE 

MOVEMENT  DATA  FOR  EACH  LASER. 

76 

77 

B>(rYPE.EQ.1)THEN 

>  USER  WANTS  TO  channel  BEAM  TO 

75 

PIIENM  -  ■SPECTRUM' 

■  THE  SPECTRUM  ANALY2XR 

79 

50 

ELSEIP(TYPE.EQ.2)THEN 

!  OR  ELSE  THE  USER  WANTS  TO 

51 

PIIENM  -  ■SAMP’ 

•  channel  THE  BEAM  TO  THE  SAMPLE 

52 

n  EUE 

M  KErODT-  1 

65  GOT0 1000 

66  EMD6P 

67 

66  C - 

m  C  THBMQUmESVTHEOATAnUEXBTSPROmTOOnNINCTHEPaE 

90  C  V  rr  DOGS  NOT  THEN  THE  REPORT  FLAG  IS  SET  THE  RCXniNE  BENDED 

91  C - 

92 

«3  »IQtjntE(PILE-PaENM,EX6T'T)  !  ASK  IP  PILE  exists 

94 

95  PCJIOTTPHEN 

96  REPORT-  2 

97  GOT0 1000 

96  ENDV 

99 

100  c - 

101  C  HERE  THE  PROPER  PlUB  OPENED. 

100  C - 

105 

104  OPENaPIU  -  PILENM,ACCESS-'DIRECr.PORM--PORMA'nED’, 

105  RECL-IOOvSTATUS  -  ■OU>',»fARED,ERR  -  10) 


•  IP  THERE  B  NO  PILE 
I  SET  THE  ERROR  PLAC 
!  AND  RETURN  TO  THE 
!  CALLER 


!  OR  ElEE  INPUT  WAS  BAD  SET 
<  THE  ERROR  PLAG  AND  return 
I  TO  THE  USER 
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t06 

107  GOTO  30  !  OPEN  WAS  SUCCESSFUL  MOVE  ON 

too 

109  30  KEPOKT-S  !  OPEN  FAILURE  SET  THE  REPORT  FLAG 

no  GOTO  1000  t  RETURN  TO  CALLER 

111 

112  C - 

113  C  THE  PART  READS  THE  SPECIFIED  RECORD  FOR  THE  LASER  PASSED  IN 

114  C  AS  THE  VARIABLE  LASER_NUM.  THE  NUMBER  E  THE  PILE  RECORD  NUMBER. 

115  C - 

114 

117 

IIB  30  READ(2,REC  -  LPMT  -  5,ERR  -  40)VEL<1),ACC0),DBT0), 

119  .DOMMY(l),VEL<2),ACCa).DBTP),DUMMYP),VEUJ).ACC(3), 

120  .DET(3),DUMMY(3) 

121 

122  GOTO  SO  !  THE  READ  WAS  GOOD  MOVE  ALONG 

123 

124  40  REPORT-4  !  THE  READ  FAILED  SET  THE  FLAG  AND 

125  GOT0 1000 

126 

127  C - 

12S  C  HERE  THE  STEPPER  MOTORS  ARE  MOVED  FROM  THEIR  HOME  POSITION  THE 

129  C  VELOCTIY.  ACCELERATION  AND  DETANCE  SPECIFIED  BY  THE  ABOVE  INPUT. 

130  C  THEBDONEBYUSEOP  ADO  UX3P  THAT  LOOPS  THRU  ALL  THREE  AXE 

131  C  ON  THE  CONTROLLER. 

132  C - 

133 

134  SO  DO  130 1 -14 

135 

136  C - 

137  C  FIRST  I  MAKE  SURE  THAT  THERE  B  DATA  PRIOR  TO  WRITTNC  TO  THE  PORT 

130  C  NO  VELOCITY  OR  ACCELERATION  MEANS  NO  MOVEMENT.  THE  ROUTINE  THAT 

139  C  CREATES  THESE  MOVEMENT  FILES  UNDERSTANDS  THAT  NOT  ALL  AXE  OR 

140  C  STAGES  ARE  REQUIRED  TO  MOVE  EVERY  TIME  AND  THUS  THE  RECORDS 

141  C  ARE  FILLED  WITH  ZEROS. 

142  C - 

143 

144  BKVEUI)  EQ  Tr.OR.ACCm.EQ  TT  OR  DBT(I).EQ  TDTHEN 

145  ICNT  -  KNT  ♦  1 

146  GOTO  130 

147  ENDIF 
14S 

149  C - 

150  C  THE  TURNS  ON  THE  POWER  TO  THE  STEPPER  MOTORS  AS  THEY  ARE  NEEDED 

151  C  THE  AXE  SPECIFIES  THE  SPECIPKr  MOTOR. 

152  C - 

153 

154  AXE  -  CHAR<4«  *  I)  !  CHANCE  INTEGER  TO  CHARA 

155 

156  WRITEO/IASnAXE/fSTT  '  ■  TURN  STEPPER  POWER  ON 

157 

Iji  c - 

159  C  THE  CREATES  THE  COMMAND  UNE  that  B  SENT  TO  THE  CONTROLLER 
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1»  C  IT  E  A  CHARACTER  STUNCIHAT  MUST  BE  exact  IN  ns  LENGTH.  THE 
1*1  C  E  SO  BECAUSE  THE  CONTROLLER  BUFFERS  ns  DATA  AND  DOES  NOT  UKE 
1*2  C  many  SPACES  ON  THE  END  OF  THE  COMMAND  LINE.  AFTER  MUCH  TRIAL 
1*3  C  AN  ERROR  I  have  FOUND  THAT  THERE  A  POSSminY  OP  13  FORMATS 

1**  C  OR  CHARACTER  LENGTHS  THAT  MAY  BE  REQUESTED  OP  THE  ROUTINE.  I 

1*3  C  PROVIDE  THEM  HERE. 

1**  C  THE  COMMAND  LINE  E  AISO  A  CHARACTER  STRJNC. 

167  C 

1**  C  AXE  -THE  STEPPER  MOTOR  CONTROLLER  axe  NUMBER 

1*»  C  MSCl  -THE  COMMAND  LINE  THAT  TEUS  the  VELOCTIY, 

IPO  C  acceleration,  and  DISTANCE  FOR  EACH  AXE. 


in 

172 

C — 

173 

430 

PORMAT(A11) 

174 

451 

FORMAT(A12) 

175 

452 

PORMAT(A13) 

176 

453 

FORMAT<A14) 

177 

454 

PORMAT(A13) 

ITS 

455 

PORMAT(A16) 

179 

456 

PORMAT(A17) 

ISO 

457 

FORMAT(AI*) 

1S1 

4SS 

F0RMAT(A19) 

1S3 

499 

FORMAT!  ALO) 

1«3 

460 

FORMAT!  A2I) 

1*4 

461 

FORMAT!A22) 

1S5 

462 

F0RMAT!A23) 

1S6 

1*7 

C — 

I« 

IB* 

190  MSC  -  AXEirV//VEL<l)  !  BEGIN  COMMAND  UNE  W/VEL 

191  M5C1  -  ’ ' 

192 

IPJ  M  -  0  I  M  -  character  counter 

19* 

193  D07DK-U  I  LOOP  THRU  EACH  SETTINC 

196 

197  DO  *0 1  -  1,12  !  LOOP  THRU  EACH  CHARACTER 

19* 

199  IP(ICHAR(MSCO:D>LT.43)COTO*0 

200  !  DONT  COUNT  SPACES  OR '♦* 

201  M-M4  1  !  COUNT  STRINC  length 

202  MSGI<M:M)  -  MSG<I:D  !  BUILD  THE  STRINC 

203  60  CONTINUE 
20* 

203  M-M«1  I  RVCREMENT  STRINC  COUNT 

206  MSC1(M:M)-"  !  ADO  A  SPACE  AFTER 

207  (  THE  COMMAND. 

20*  BKK-EQ.DMSC  -  AXBIPA7/ACC(I)  I  ADO  ACCELERATION 

20*  IP(K.EQ.2)MSC  -  AXE//T>'//D6T(I)  I  ADD  TRAVEL  D6TANCE 

210 

211  70  comxuE 

212 

213  M  -  M  *  1 
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J14  MSCI(M:M  ♦  1)  -  -c  •  !  ADD  A  CO  TO  THE  END 

215  M  -  M  1 1 

21«  I  -  M  •  10 

217 

21*  CAUTWAITtS) 

219 

220  COTO(570,Sa0,S90,600,610.020,630,6t0,650,M0.670, 680.690)1 

221 

222  570  WUTEO,450)MSC10:M) 

223  GOT0 100 

224  580  WKnEp,451)MSC1C:M) 

225  GOT0 100 

226  590  WRnE(3,452)M5C10:M) 

227  GOT0 100 

228  600  WUTEO,453)MSCir.M) 

229  GOT0 100 

230  610  W|trTEO.4S4)MSCI0:M) 

231  GOT0 100 

232  620  WltnE(3,455)MSCtO;M) 

233  GOT0 100 

234  630  W|UrTE(3.456)MSCtO;M) 

235  GOT0 100 

236  640  WRnrEO.457)MSCI0;M) 

237  GOT0 100 

238  650  W|tnE(3,4S8)MSCI(1:M) 

239  GOT0 100 

240  660  WlinE(3.499)MSCin;M) 

241  GOTO  too 

242  670  WRnE(3.460)MSC1(1:M) 

243  GOT0 100 

244  680  WRnE(3.461)MSC10:M) 

245  GOT0 100 

246  690  W«nE(3,462)MSC1(1:M) 

247 

248  100  ai(IYFE.EQj)COrO  lOOO  !  EXrTIF  MOVING  STAGE  TO  START 

249 


250  130  CONTINUE 

251 

252  C _ _ _ _ _ _ 

253  C  AT  THE  roiNT  THE  THE  ROUTINE  MAKES  A  SWITCH  BASED  ON  THE  TYPE  OR 

254  C  data  REQUESTED  BY  THE  CALLER. 

255  C 

256  C  type -1  THE  spectrum  ANALYZERS  THE  TARGET.  THE  stages 

^  C  ARE  NOW  MOVED  TO  THE  CORRECT  LOCATON  THE  USER 

TS*  C  B  REQUESTED  TO  PRESS  RETURN  WHEN  THE  LASER 

C  TUNNING  E  COMPLETE.  THE  STAGES  ARE  RETURNED  TO 

260  C  THEIR  HOME  POSITIONS  AND  THE  NEXT  LASER  LOOPS  B9 

J»1  C  TURN.  <  IP  THERE  ARE  more  LASERS  > 

262  C 

C  TYPE  -  2  THE  SAMPLE  E  THE  TARGET.  SINCE  THE  STAGES  ARE 

264  C  NOW  *4  THE  CORRECT  POSITION  POR  DATA  COLLECTION 

c  THE  ROUTBilE  B  EXTTED.  THE  STAGES  ARE  SENT  HOME 

266  C  BY  THE  CALLER  AFTER  DATA  COLLECTION. 

267  - - - 
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MB 

3t9 

Z7D 

108 

zn 

110 

272 

112 

273 

114 

274 

116 

275 

276 

C— 

277 

C 

ITS 

c— 

27» 

2S0 

281 

282 

283 

284 

285 

286 

287 

288 

28» 

c— 

2«0 

281 

120 

2F2 

2*3 

2M 

2*5 

2*6 

2*7 

2*8 

C— 

2** 

c 

300 

c 

301 

c 

302 

c 

303 

c — 

304 

305 

140 

306 

307 

308 

30* 

310 

c — 

311 

c 

312 

c 

313 

c 

314 

c — 

315 

316 

1000 

317 

318 

1010 

31* 

1020 

320 

1000 

321 

1040 

•(mE-EQ-lpHEN  !  BEAM  E  SFECmUM  ANALYZES 

FOItMAT(24(0) 

FOItMAT(30X,lASER :  '.U.ZOX.'WAVELENCTO  :  -.AtSM 
POilMATOOX,TIIE5S  RETUBN  WHEN  THE  LASER  E  CALIBSATEDtV/) 
POIlMAT(3SX,'WArnNC...V/) 

K)itMAT(«)X4) 


THE  PART  CALLS  THE  GRAPHICS  ROUTINE  TO  DEPLAV  THE  TEXT  ABOVE. 


RKCRAPHICS.EQ.1)THEN 
RESET-  1 

ANALYTE  -  LAMDA 
ANS  -  CHARO-  *  4S) 
TXTJLC-4 


I  DO  NOT REDRAWTHE  PANEL 

•  PLACE  wavelength  AND 
•  LASER  No.  IN  VARIABLES 
■  PLAC  FOR  ABOVE  TEXT 


CALL  TEK_TEXT(TXTJLC,P0RT,RESET,ANS,ANALYTE.AM00NT,IEXIT) 


GOTO  140 
ENDIP 


WRITEr.tOt) 

WRITEr.llOIL  LAMDA 

WUnEC.llI) 

WUHEC.IH) 

WRITEC.IW) 

READT.W.ERR-IMWPUT 


REVERSE  DIRECTION  AND  <  C  >  TELLS  FT  TO  CO  THE  SAME  DBTANCE 
ANOVELOCTTY.  KXT  KEPT  A  COUNT  ON  THE  NUMBER  OP  STAGES  NOT 
MOVED  DURING  THE  OPERATION.  IF  ITS  -  3  THEN  THERE  E  NO  HOME  TO 
CO  TOO. 


8HICNT.lt  J)WRnE(3/(A4)7H  C  •  !  SEND  ALL  THE  STAGES  HOME 


ENDIP 


THE  PROVIDES  THE  USER  WTTH  ERROR  INPORMATTON  W  THE  UNLIKELY 
EVENT  THAT  A  PROBLEM  OCCURS  WITH  THE  ROUTINE. 

THE  ERASED  ON  THE  NUMBER  OP  THE 'REPORT'  VARIABLE. 


VIREPORT.CTUQTHEN  !  THERE  E  A  PROBLEM 

PORMATOOX.'NO  PIU  TYPE  WAS  PROVIDED  BY  THE  CALLERVO 
PORMATnOX.'THE  PILE:  ’.AX.-  CANNOT  BE  POUND'.//) 
PORMATnOX.'THEU  WAS  AN  OPEN  ERROR  ON  THE  PILE:  ’.AlOJI) 
PORMATOOX.'THE  HIE  '.A*,'  FAILED  ON  THE  READ'^O 
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322 

323  ■HltEPOilT.EQ.1)Wlin^,10I0) 

324  B'(>EPORT.EQJ)WltnEr.1030)ni£NM 

325  V(U?Oin'.EQJ)WimC(>,t030)PaENM 

326  ■KIIE>QitT.EQ.4)Wltncc.1040)FIUNM 

327 

326  ENDIP 

329 

330  WRnC(3.'(A4rySI0*  I  TXJRN  STEPPER  POWER  OFF 

331 

332  RETURN  I  RETURN  TO  CAUER 

333  END 
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AJV .16  Analog  APSD  Software  Modules:  NEWTEK  Source  Code. 


COMMON  >MATlUX/AIWYfM0).BIlAY(3M0).CIlAY<3«0),DRAY(3*OO), 
.EKAY(SM») 

OMENSION  SAMmO),ACENT(IO),CONCOO),LAMDA(4a),LAS<40) 
DIMENSION  inA'rn«),HEXO*).START{IO)iSTOrna).INQIO) 
DMENSION  LASEKSOO) 

1  PORMAItAIO) 

3  K)IIMAT(A4) 

4  PORMATTOO 
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52  5  KXtMAT(A2) 

53  5  K>IIMAT(A) 

54  7  KKMATdS) 

55  •  FORMAT  (AIO) 

5« 

r  Its  -CHAROO) 

5R  AdC  -  CHAIK6) 

5»  CS  -  CHAR(29) 

«  CR  -CHAR03) 

*1  E  -  CHAR07) 

«2 

*3 

M 

iiiLE-'Wetoom*  to  Ih*  Muller  M>M>  EnipMmetry  Experiutont' 

46 

47  CHANCE  -  0 

44 

4»  V(CRArHICS.EQ.O)COTO  10 

70 

71 

73  C - - - 

73  C  TESTOATA 

74  NAME  -  -CHAS' 

75  DATE  -  '  7-IAN40' 

74  TIME  -  *17:30^’ 

77  NOSAMF-  I 

70  $AMP(I)  -  •COLD' 

75  ACENTO)-  -cr 

(0  CONCO)  ■  •■133  mu- 

41  STARTO)  -  •40.' 

43  STOFTI)  - 

43  WCO)  -  T  O" 

44 

45  LASO)- 1 

44  lAS(3)-3 

47  LAS(3)-3 

44  tAS(4)  -  4 

4* 

40  LAMDA(1)- 'III.V 

*1  LAMDA(3)  -  Tajr 

92  LAMDAO)  -  ■333 J* 

«3  tAMDA(4)  -  '444.4' 

«4 

«5  LASEllSO>-4 

44 

47  C  IF(l123.EQ.0)COIt>  540 

44 

44  C— — - 

100  C  THB  CHECKS  THE  TERMINAL  TYFE.  IF  THE  USER  6  USINC  A  TEKTRONIX 

101  C  TEHAMAlTHEROUTRIEVnLLUSE  ACOLORCKAFHICSROUnNEDESICNEDTO 
HO  C  CETAUTHESAMFLEMFORMATTONFORUFTOOSAMFUS. 

103  C^ - - - 

KM  C 

MS  C  CALLTEXMJNFO(nERMJ4UM..FLANES.TOT_MEM,FREEJMEM. 
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IM 

lor 

c 

urn 

c 

10» 

C 

110 

c 

lit 

c- 

112 

c 

112 

c- 

114 

115 

c 

1U 

117 

110 

119 

120 

121 

122 

c 

123 

c 

134 

c- 

125 

m 

127 

121 

c- 

129 

c 

130 

c 

131 

c- 

132 

133 

134 

135 

134 

137 

130 

139 

140 

141 

c- 

142 

c 

143 

c- 

144 

145 

10 

144 

» 

147 

40 

140 

149 

150 

151 

152 

c- 

153 

c 

154 

c- 

155 

154 

41 

157 

4S 

150 

159 

.IVasiON,OPr_NUM,OrTJNFO) 

V(NUM-PLANE5.EQ.-1)THEN 
COTOIO  •  NOTATCICTItONIX'mtMMAL 

IWS  PAItT  CAliS  THE  CKAPHICS  ROUTINE  THATTAKES  THE  SAMPLE  DATA. 

ELSE 

READr.'(nnOUMMY  !  THE  E  A  DUMMY  READ 

CAU  TEIUNPUr5<NOSAMP,SAMP,ACENT,CONCSTART,STOP,lNC, 
NAME.DATE.T1ME.IEXn) 

GRAPHICS  -  1  !  FLAG  THAT  GRAPHICS  ARE 

■  MUSE. 

P(Exn'.EQ.I)COT0 10000 

THE  E  THE  GRAPHICS  ROUITNE  THAT  TAKES  SPECIFIC  LASER  DATA  FOR 
EACHSAMFLE.  HOW  MANY  LASERS.  WHAT  ORDER.  WHAT  WAVELENGTHS 

CALI  laseilm<samp,agent,conc,nosamp,name,lasers,lamda,las. 

Exn) 

P(CxrT.EQ.I)GOTO  10000 

COTOSIO  I  GO  RECM  EXPERIMENT 


THE  GETS  THE  NAME  OF  THE  PERSON  RUNNING  THE  EXPERIMENT 


PRMTI.TnU 

FORMATCn.-  ENTER  NAME  : ’4) 

WRnETJO) 

READ(>4>NAME  imputname 

wunET.o) 

V  (CHANGE.EQ.1)  GOTO  SOO 


THE  GETS  THE  DATE  THE  DATA  WAS  TAKEN 


FORMATrn.'  ENTER  DATE  :  4) 

WRnV.42) 

BADr.9  date  I MPUT  DATE 

WRinr.*) 
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140 

1*1 

1*2 

C— 

■>  (CHANCE.EQ.1)  goto  joo 

1*3 

C 

1>1B  GETS  1HE  NUMBEK  OF  SAMPLES  AND  IHE  NAME  OP  EACH  SAM?1£ 

1*1 

C— 

1*5 

1*6 

50 

POIIMAT(T5/  ENTER  NUMBER  OF  SAMPLES  :  'Si 

1*7 

40 

WRIIEfJO) 

1*8 

REAOr,’.ERR-60)NOSAMP  !  B4  PUT  NUMBER  OF  SAMPLES 

1*9 

WRnEC,4) 

170 

171 

172 

WRnEr,«)T  AU  SAMPLES  ARE  THE  SAME  TYPE  <  y  >' 

173 

REAOr4>ANS 

174 

W  (ANS.EQ.nr)  GOTO  110 

175 

17* 

177 

DOWI-1.NOSAMP 

178 

179 

70 

FORMATrn,'  EPfTER  SAMPLE  NAME'.I.'  ;  M) 

180 

80 

WRIIEf.70) 

181 

READr,l)SAMP(l)  •  WFUT  SAMPU  NAME 

183 

WRnEC,4) 

183 

90 

CONTINUE 

184 

185 

W  <CHANCE.EQ.1)  goto  soo 

18* 

GOTO  130 

187 

188 

100 

FORMATOS/  enter  SAMPU  NAME  :  .$) 

189 

110 

WRnET.lOO) 

190 

READCJISAMPO)  (INPUT  SAMPU  NAME 

191 

DO  IV  I-LNOSAMP 

192 

SAMP(l)-SAMPn) 

193 

120 

CONIWUE 

194 

TwnEr,4) 

195 

V  (CHANCE.EQ.1)  goto  soo 

19* 

197 

c— 

198 

c 

Tms  gets  THE  TYPE  OF  agent  THAT  wax  BE  USED  ON  THE  SAMPLES 

199 

200 

201 

DO  12S  1  -  1J40SAMP 

202 

ACENTB)  - 

203 

125 

CONTWUE 

204 

295 

wunsc,*) 

20* 

207 

130 

WinET.THILL  AGENT  TYPE  BE  THE  SAME  FOR  AU  SAMPLES 

208 

1 

<  Y  >• 

209 

READCAERR-130)ANS 

210 

»  (ANSKITT)  goto  110 

211 

212 

0OM0MJ4OSAMP 

213 

140 

PORMATTTS.-  ENirai  ACENT.L'  ; 

■214- 
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114 

215 

214 

217 

ns 

21» 

220 

221 

222 

223 

224 

225 

224 
227 

225 

229 

230 

231 

232 

233 
134 
235 

234 
237 

235 
231 

340 

341 
242 
143 

244 

245 
344 
147 
24S 

249 

250 

251 

252 

253 
154 
255 

254 
257 


141 

241 

243 

144 

145 
114 
147 


150  wRncr.i40)i 

■EADT J)ACENT(D  !  INPUT  AGENT  NAME 

wrep,4) 

140  CONTINUE 

V  (CHANCE.EQ.I)  GOTO  500 
GOTO  200 


17D  POIlMAT(n.'  ENTES  agent  NAME  ;  ’S) 

ISO  WUTEC.ITO) 

SEADr.2)  AGENTO)  !  WPUT  AGENT  NAME 

DO  19a.l-1^0SAMP 
ACENItO-AGEI/TO) 

190  CONTINUE 

'wrrEc,4) 

r  <CHANCE.EQ.I)  COTO  500 


_ _ _ 

C  THBGETSTHE  AGENT  concentration  OP  THE  AGENT  FOR  ALL  THHESAMPUS 

- - 

200  WRireC-TWIU.  AGENT  CONCENTRATION  BE  THE  SAME  FOR  ALL  SAMPLES' 
WRTtEC.T  <  r  >• 

READr.4.ERR-200)ANS 

PIANS  EQ  -T)  COTO  250 


210  K)RMATnS.L'  EPTIER  CONC.  OP  ACENT(M|hn3)  :  ‘4) 
120  OO230I-I.P4OSAMP 
IWIEfJIO)! 

IEADTJICONCQ) 

WIEr,4) 

230  CONTMUE 

WRnEr.4) 

V  (CHANCE.EQ.I)  COTO  500 
COTO  250 

240  PORMATOS.'  enter  CONC.  OP  ACENT(M|0n3)  :  -J) 
250  WRTIECJSO) 

■EADTJICONCO) 

DO  240 1-2J40SAMP 
CONC(l)-CONCn) 

240  CONTWUE 

WRnEr.4) 


«  <CHANCE.GQ.1)  GOTO  500 
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IM 


C— 

270 

c 

271 

c 

272 

c— 

273 

274 

370 

275 

276 

277 

27S 

279 

300 

200 

3i1 

3t2 

283 

284 

390 

285 

286 

300 

287 

288 

288 

290 

310 

291 

292 

310 

293 

294 

295 

296 

297 

298 

333 

299 

300 

C - 

301 

C 

302 

C 

303 

C - 

304 

308 

330 

306 

333 

the  part  gets  the  start.stdp  and  increment  position  of  the  sample 
FOR  THE  rotation  M  FRONT  OF  THE  LASER. 


FORMATOOX.'START  POSITION  OP  ARM  <DECREE5>;  '4) 

D0325I- NOSAMF  !  LOOP  THRU  SAMPLES 

WBTTEfJSI) 

WRireCJID) 

R£ADC/(A«)'.ERR-]aO)START(l)  !  START  POSITION  OP  GONIOMETER 
WRIIEr.*) 

PORMATOOX.'MCREMENT  OP  ARM  <DEGREES>  ;  '4) 


WRITE<*.H0) 

REAO<*,‘(A«)'.ERR-300)INC(I)  >  INCREMENT  OP  GONIOMETER 

WRnEr.4) 

PORMAT(10X.  END  POSITION  OP  ARM(DEGREES)  :  *4) 

HRITECJlfl) 

■EADf /(Asy.ERR- J»)STOP(l)  )  END  POSITION  OP  GONIOMETER 

WRnEr.4) 

IP  (CHANCE.EQ.1)  GOTO  SOO 
CONTRIUE 


THE  PART  GETS  THE  LASER  Wavelength  AND  NUMBER.  THE  NUMBER 
E  ONE  OP  THE  POOR  LASERS  BERIG  USED  FOR  THE  PARTICULAR  EXP. 


PORMATpoX.'ENTER  NUMBER  OP  LASER  TO  BE  USED:'4) 
PORMATnoX.'SAMPU  No.  '.a'  SAMPLE;  -.AID) 


307 

30B  LOTT  -  0  !  THE  E  AN  ARRAY  EICREMENTER 

30* 

310  D0300I- IJ40SAMP  I  LOOP  THRU  THE  SAMPLES 

311 

313  340  WRITE  rJ31)l,SAMP(l) 

313  WRIIErJ30) 

314 

315  UAOr,*.ERR-340)LASERS<l)  !  HOW  MANY  LASERS 

31*  WRnip.4) 

317 

310  C— _ _ 

31*  C  THE  PART  LOOPS  TT«0  THE  LASERS  lUST  DEPI4ED  AND  GETS  THE 
SIB  C  ACTUAL  LASER  NUMBER  1-4  AND  IIS  WAVELENGTH. 

m  c— - - 
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4 


m 

ja  145 
3M  345 
325 
325 

xcr 

321  343 

32* 

330 

331 

332  344 

333 

334 

335 

335  370 

337 
330 
33* 

340  300 

341 

342  C— 

343 

344  V(C31ANCE.EQ.1)  GOTO  500 

345 

34*  C - 

347  C  THBPAItTinS'tK  ..•*  A  IP  HE  WANTS  TO  MAKE  CORRECTIONS 

3M  C  AND  PROVDES  A  MlA  N$  OP  OOOMC  SO. 

34*  C - - 

350 

351  400  PO«MAT(24<0) 

352  410  FORMAT  (T34.’HEADERPIl£-^ 

353  42r  FORMAT  00X,n.  OPERATOR:  •,A20,10X.-2.  DATE  •>*,•  '.ASJ) 

354  430  FORMAT  (n.O.  SAMPLr,T35,'4.  ACENT,TM.-5.  CONCJ) 

35!  440  FORMAT  OX,i2JX.A20JX,A2a.l0X,A15) 

35*  450  FORMAT  OOXa’ LASERS') 

357  450  FORMAT  (10X.XASER«',Il,iaX.AI5) 

355  470  FORMAT  <T30,‘-CONIOME1ER-<  DECO-) 

35*  450  format  (TT  1.7,  START: ',732. A*.T31.'5.  STOP:  •,T41. A*, 

350  1  T**,-*.  MCREMENT;  ■,T54.A*v/) 

351 

352 

353  - - 

354  C  ims  SHOWS  THE  USER  THE  MPUTS  THAT  WERE  |UST  MADE  ON  THE  SAMPIES 

355  C  HERE  EACH  SA54PLE  B  PICTURED  04DIVIDUAU.y  WITH  ITS  DATA. 

35*  - - - 

357 

355  Lorr-o 

35*  STRT- 1 

370 

371  500  D055e  I-STRTJ405AMP  I  LOOP  THRU  EACH  SAMPLE 

372 

373  WRfTEr.400) 

374  WRinr.410) 

375  WRITEC.^ 


FORMATBX.'OnER  THE  WAVELENGTH  FOR  THIS  LASER:  '.$) 
FORMAT(5X.a‘  ENTER  THE  LASER  NUMBER  (1 -«) :  *4) 

DO3701- I.LASERSd)  I  LOOP  THRU  THE  LASERS 

WRITE  C445)I 

READC,*,ERR*343)LAS<I  ♦  LCNT)  !  GET  LASER  NUMBER 
M«n^f,4) 

WRITE  r44S) 

REAOf  .•,ERR-343)LAK(DA(I  A  LCXT)  I  GET  LASER  WAVELENGTH 

MRIIEC,*) 

CONTB4UE  !  END  LASER  LOOP 

LCNT  -  LCNT  ♦  4  •  INCREMENT  ARRAY  COUNTER 

CONTINUE 
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376 

Wltntr.420)NAME,DA'nE.T1ME 

377 

wurrec.oo) 

37S 

W«rrer,440)l,SAMP<I).ACENT(l),  CONGO) 

379 

wiinEr,4) 

390 

wiintr,4W)LASEiis(i) 

391 

392 

DO  510  J  -  I.IASESSO) 

393 

WMTEC.460)LAS0  t  LCNI^LAMDAO  *  lOf!) 

394 

510 

CONTINUE 

395 

396 

wwreo) 

397 

WWTEr.470) 

399 

WltnEC.4(0)5TAirT0),STOP0).INC(l) 

399 

W1UTEC,4) 

390 

391 

392 

393 

394 

560 

KXMAT00X.  ANY  CHANCES  ?  (  RETURN  POR  NONE 

395 

OR  SELECT  NUMBER  )  '4) 

396 

397 

570 

WRnECJOO) 

399 

399 

READC,'(A)-,ERR-57D)ERR 

400 

401 

IP<ERR.EQ.-  TCOTO  550 

402 

403 

R<At)<ERR.'(aN,D)')ERRMSC 

404 

405 

IP  (ERRM5C.CT.«)COTO  570 

406 

IP(ERRMSCCT.0)THEN 

407 

CHANCE- 1 

409 

BTltT  -  I 

409 

COTO  (40,45.40,l»,aa0440.]M420JOO)  ERRMSC 

410 

ENDIP 

411 

CHANCE -0 

412 

540 

ia4T-LCNTtl 

413 

550 

CONTMUE 

414 

415 

416 

C 

AT  THIS  POMT  CONTRCH.  DATA  IS  SENT  TO  AD)U5T  THE  INSTRUMENTS 

417 

c 

419 

c<— 

419 

c 

1.  OPEN  THE  SERIAL  PORT  THRU  WHICH  ALL  THE  INSTRUMENTATION  VO 

420 

c 

AND  DATA  WILL  IE  CONTROLLED  AND  COLLECTED. 

421 

C— 

422 

423 

572 

P0RMA1VW/L10X,THE  COMMimlCATIONS  PORT  MUST  BE  DEPINED  WTTH-) 

424 

573 

PORMATOOX.'THE  PCXEOWMC  PARAMETERSrVO 

425 

574 

PORMATPOX,-W»  baud  NO  PARTTr) 

436 

575 

PORMATPOX.'B  BTIS  1  STOP  tlTJO 

427 

576 

PORMATnOX.TIS  PORTMUSTIE  B4  A  '  PASSAU  '  MODE  JO 

4» 

579 

POmtATtTOX.'PRESS  RETUBN  POR  DEPAtn.T  PORT  <  TXAL  >,-«) 

439 

m 

PORMATOOX.'ENTER  THE  SERML  PORT  NAME;  '4) 
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oo 

431  c— — - 

432  C  ■■  THE  USES  HAS  A  TEKTESMINAL  THEN  THE  TUCJIOT  ROUTINE  E 

433  C  CAUEDTDDBPLAYTHEAiOVETEXT. 

434  C - 

435 

436  560  V(CRAFHICS.EQ.I)THEN 

437  T)fr_nx:  - 1  i  flag  for  fortset  parameters 

43«  fort  !  clear  OUT  ANY  fort  data 

439  RESET  -0  !  FLAG  TO  DRAW  A  RED  PANEL 

440  EXTT  -0  !  INrnALIZEEXTTFLAC 

441 

442  CAUTEIC_TEXT(IXT_PLG,PORT,RE5ET,ANS,ANALYTE.AMOUNT,IEXTT) 

443 

444  P(IEXrT.EQ.1)GOTO  10000  !  USER  WANTS  TO  EXTT 

445 

446  GOT05M 

447 

440  ENDS' 

449  C - 

450  C  THE  TEXT  E  WRITTEN  TO  A  NON  TEKTRONIX  TERMINAL. 

451  C - 

452 

453  SOI  WRITEC^) 

454  WRIIEfJTS) 

455  WRnEfJ74) 

456  WRITEfJ75) 

457  WRnEr.576) 

450  WtnECJTO) 

459  WRITErJIY) 

460  READr,'(A10)',ERR-503)PORT 

461 

462  IP(PORT.EQ.'  TPORT  -  'IXA2:- 

463 

464  500  OFENP.FI1E  -  FORT,STATUS--NEW.CARRIACECONTROL  -  "NONF, 

465  .ERR  -  10000) 

466 

467  C - 

460  C  THE  MTITAUZES  THE  RELAY  RANKS. 

469  C - 

470 

471  wRnE(3.'(A9r)CS/p«wa6jrT/cR 

472  WRnEO.’(A9r)CS/P«WC70.0’//CR 

473 

474  C - 

475  C  MnULIEE  modulator  01 .  TO  KEEP  THE  MODULATORS  CALM  WE 

476  C  DECOVERED  THAT  PRIOR  TO  TURNING  ONE  OFF  ns  GOOD  practice  TO 

477  C  TURN  APKTTHER  ON  FIRST.  HERE  I  GET  THE  FIRST  ONE  WARMED  UP. 

470  C - 

479 

400  WRnE(3.’(A9)')CS«r«WC3ILr9CR  I  MODULATX3R  «1  ON 

401 

402  C - 

403  C  L  THE  PART  REQUESTS  THAT  THE  USER  DECIDE  TT9E  METHOD  or  WHICH 
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4M  C  THE  EXPERIMENT  WILL  BE  SEEN.  I  HAVE  PROVIDED  A  METHOD 

MS  C  BY  WHICH  REAL  TIME  GRAPHICS  MAY  BE  GENERATED  IF  THE 

M6  C  EXPERIMENT  E  CONDUCTED  ON  A  TEKTRONIX  TERMINAL 

M7  C  MOOE15  4111  OR  ABOVE.  ADDmONALLY,  THERE  E  A  METHOD 

41B  C  FOR  VIEWING  THE  AA>  VOLTAGES  FOR  EACH  DATA  channel  PER 

4a*  C  DATA  COLLECTION  CYCLE.  THE  USER  MAY  OPT  FOR  A  •QUIET- 

440  C  CYCLE  WHERE  NO  DATA  E  PRESENTED  TO  SPEED  UP  THE  DATA 

491  C  COLLECTION  IF  THE  RUN  TIME  CONFIDENCE  E  HIGH. 

492  C - 

493 

494  sai  FORMAT(/////,5X,'ENTER  THE  TYPE  OP  OUTPUT  DESIRED:V//) 

495 

499  S82  FORMATOOX.'!.  REAL  TIME  A/D  CHANNEL  VOLTAGE  OUTPUTSV/) 

497  5B4  FORMATOOX,  *2.  NO  DEPLAY  OP  DATAVO 

499  996  FORMATOOX. -3.  EXIT  ROUTTNE.//) 

499 

soo  c - 

SOI  C  THE  PART  CALLS  THE  GRAFHICS  ROUTINE  TO  DBPLAY  THE  TEXT  ABOVE 
902  C  AND  RETURNS  TTS  ANSWER  IN  *  ANS  •. 

303  C - 

904 

909  IP(CRAPHICS.EQ.1)THEN 

sot  TXT_FLC  -  2  !  FLAG  FOR  DEPLAY  PARAMETERS 

907  RESET  -I  •  FLAG  NOT  TO  DRAW  THE  PANEL 

909  cxrr  -0  i  iNmAUZEExrrPLAG 

90* 

910  CALL  TEK_TEXTrrXT_FlC,PORT,BESCT,  ANS,  ANALYTE,  AMOUNT.IEXTT) 

911 

912  IF(IEXIT.EQ.1)C0T0  10000  !  USER  WANTS  TO  EXTT 

913  GOTO  99* 

914 

919  ENDIP 

916 

917  C - 

919  C  THEE  THE  NON  TEKTRONIX  TEXT  TO  GET  THE  TYPE  OP  OUTPUT  THE  LEER 

919  C  E  REQUESTWC 

530  C - 

921 

523  593  WRnETJOl) 

523  WRnErJB2) 

534  WRnErJ94) 

525  WRnEr.S9t) 

536 

527  READC.TAT.ERR  -  5*3)ANS 

539 

529  V(ANS.EQ.T'.OR.ANS.EQ.’7.0R.ANS.EQ.T)GOTO  599 

930 

531  G0T0593 

532 

SJJ  c - 

534 

SIS 

539  9B9  P(CRAPHICS.EQ.I)THEN  I  LEER  HAS  A  TEX  TERMEIAL 

537 
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SM  nHANS.EQ.'IOTHEN  !  USER  WANTS  REAL  HME  GRAPHICS 

53»  STT-1  !  SET  THE  DISPLAY  FLAG  PORTER 

S40 

Ml  ELSEn>(ANS.EQ.-r)THEN  USER  WANTS  AA>  VOLTAGES 

542  GRAPHICS -0  !  FLAG  THAT  NO  GRAPHICS  REQUESTED 

543  STP-2  I  SET  DISPLAY  FLAG  FOR  CHART  MODE 

544  RESET  -2  !  DELETE  THE  RED  PANEL 

545  CALLTElC_TEXr(IXTJLG.PORT,RESEr,ANS, 

544  ANALYTE,AMOUNT,IEXn) 

M7 

548  ELSEIP<ANS.EQ.‘30THEN  I  USER  DOSENT  WANT  ANY  OUTPUT 

549  STP-3  I  SET  THE  FLAG  FOR  QUIET  MODE 

550  RESET  -2  •  DELETE  THE  RED  PANEL 

551  GRAPHICS -0  !  FLAG  THAT  NO  GRAPHICS  REQUESTED 

552 

553  CALLTEIC_TEXT(IXTJLG.PORT,RESET,ANS, 

5M  ANALYTE.AMOUNT,IEXTT) 

555 

556  ENDIF 

557 

558  C - 

559  C  THE  USER  DOES  NOT  HAVE  A  GRAPHICS  TERMINAL 

540  C - 

541 

542  ELSE 

543 

544  IF<ANS.EQ.'10THEN  !  USER  WANTS  AA)  VOLTAGES 

545  STP-2  !  SET  D5PLAY  FLAG  FOR  CHART  MODE 

544 

547  ElSEIF(ANS.EQ/2TrHEN  !  USER  DOSENT  WANT  ANY  OUTPUT 

548  STP-3  !  SET  THE  FLAG  FOR  QUIET  MODE 

549 

570  EUEIF(ANS.EQ.T)THEN  !  USER  WANTS  TO  EXIT 

571  GOTOIOOOO  I  RETURNTOCAUER 

572 

573  ENDIF 

574 

575  ENDIF 
574 

577  C - 

578  C  3.  THIS  PART  ESTABLISHES  CONTACT  WITH  THE  AA>  CONVERTER  VIA 

579  C  THE  UPIWK  CONTROLLER  CARO  84.  THIS  S  DONE  BY  SENDING  A 

580  C  COMMAND  <  CHAR(29)//D4>  THIS  CHANNELS  ALL  SERIAL  DATA 

581  C  TO  THE  AA>  BOARD. 

582  C  THE  A/D  B  awakened  BY  2  CARRIAGE  RETURNS  UPON  WHICH  IT 

SB3  C  RETURNS  A  HYPHEN  THE  COMMAND  <  ST-7D1  EXECUTTVE  ON  > 

584  C  E  ESUED  BY  1HE  HOST  COMPUTER  TO  ENTER  EXECUTTVE  MODE 

585  C  ANDASTAR'*'PR0MTBBSUED8YTHEA®,  IPALLB 

584  C  WEU.  AT  THE  POINT  THE  A®  B  READY  TO  COLLECT  DATA. 

5B7  C  IP  THERE  E  A  PROBLEM  THE  REPORT  FLAG  WILL  -  1. 

58B  C - 


590  m  KKt  -0 

591  REFORT-O 


I  MnTALtZE  THE  REPEAT  COUNTER 
I  MITIALIZE  THE  REPORT  FLAG 
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J«  Tl  - 1 

sn 

9H  C  Wllirep,*)Tl,llEPO«T.POItT,ICl,CHAN,RDAT,HEX 

395  POUT  -  TXAi’ 

996 

997  C  PAUSr  CALLINC  DATEL  TD  INITIALIZE  rr 

996 

999 

600  CAU  DATE10T,llEPC*T,PORT,ia,CHAN,RDAT,HEX) 

601  (  CO  AWAKE  THE  A7DCONVEKTEX 

602 

60S  R>(IIEPOIIT.EQ.1)THEN  !  THEKE  E  TKOUBLE 

604  IF(ICNT.EQJ)COTO  10000  !  IF  OVER  3  HUES  ..OUTT 

605  WRnEC,*) 

606  WUIZr.T  THERE  E  A  PROBLEM  WAIONC  THE  A/D  CONVERTER' 

607  WRnET.*) 

608  WRTIEC.*)'  CHECK  THE  CONNECTION  AND  PRESS  RETURN  ' 

609  WIUTEr.*) 

610  WRnEC,*) 

611 

612  READr/(A)',ERR-585)ANS  !  READ  THE  INPUT 

613 

614  989  ICNT-ICNT«1  !  COUNT  THE  TRIES 

619  GOTO  990  !  TRY  THE  A/D  AGAIN 

616  ENDIP 

617 

618  C - 

619  C  4.  THE  BEGINS  THE  LASER  CALIBRATION  SEQUENCE.  HERE  A  PREDEFINED 

620  C  PIU-SPECTRUM  DAT-  CONTAINS  THE  STAGE  POSITIONS 

621  C  NECESSARY  TO  CHANNEL  THE  LASER  BEAM  FROM  EACH  LASER  INTO 

622  C  A  SPECTRUM  ANALYZER.  IF  THE  PILE  DOES  NOT  EXIST  THEN 

623  C  THE  USER  E  INSTRUCTED  TO  CO  TO  THE  CALIBRATION  ROUTINE 

624  C  DEFINED  IN  THE  MAIN  MENU. 

629  C - 

626 

627  REPORT -0  !  INITIAllZE  ERROR  FLAG 

628 

629  WRnEO/(A4)')CS//T)2'//CR 

630  C  I 

631  WRrrE(3.’(A2)')'E ' 

632  WRJTE(3,'(A2n'C ' 

633 

634  WRnEp,’(A9)'rE  MN  STD '  !  TURN  ON  CONTROLLER 

639  I  PLACE  IN  NORMAL  MODE 

636  C - 

637  C  THE  PART  MAKES  THE  USER  CALIBRATE  THE  LASERS  THAT  WIU  BE  USED 

638  C  ON  THE  SAMPLE.  THEE  DONE  ONCE  FOR  EACH  SAMPU  UNLESS  A 

639  C  CAUBRATTON  B  NOT  NEEDED.  THAT  E  IP  SAMPLE  2t  ON  Laser  *1  E 

640  C  THE  SAME  AS  LASER  #1  ON  SAMPLE  V 

641  C - 

642 

643  D0999I- 1.LASERS0)  !  LOOP  THRU  LASERS 

644 

649  OPTIC  -  CHAR(a  *  LAS(I  «  LCNT))  I  ACTUAL  LASER  NUMBER 


!  INinALJZE  THE  OPTK 
STAGE  CONTROLLER  CARD 
I  SEND  STARTUP  COMMAND 
I  SEND  STARTUP  COMMAND 
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•«*  LASER  -  LAS<I  ♦  LCN7)  !  HOLD  IN  BUFFER 

*47  TYFE-1  I  FLACFORSFECTRUMSEnjF 

*4a 

*W 

6S0  CALLM0VJTACE(LASER.TYFE,LAMDA(I),START_P0S,REF0RT, 

*n  GRAPHICS) 

6S2 

*53  595  CONTINUE 

*54 

*55 

656  C - 

*57  C  THE  ERASES  THE  RED  TEXT  SCREEN 

65*  C - 

659 

*60  RESET  -2  I  DELETE  THE  RED  PANEL 

*61  CALLTEIC_TEXT(TXT_FLC,F0RT.RESET,ANS, 

4*1  ANALYIE.AMOUNT,IExn) 

663 

*64  C - 

665  C 

6*6  C  MfnAUZATION  E  COMPLETE  AND  THE  INSTRUMENTS  ARE  READY  TO 
667  C  COLLECT  DATA. 

*66  C  THE  E  THE  BECINNINC  OP  THE  MAIN  DATA  COLLECTDIC  LOOP 

669  C— - 

*70 

*71  LCNT-0  !  LASER  ARRAY  INCREMENTER 

672 

*73  DO  1070  LOOP  -  1 J405AMP  I  LOOP  THRU  AU  SAMPLES 

674 

675  C^ - — _ 

*76  C  THE  CONVERTS  THE  CHARACTER  INPUTS  FOR  START,  END  AND  INCREMENT 
677  C  ANCLES  TO  REAL  NUMBERS. 

*71  _ _ - 

*79 

6*0  *00  READ(STX3PTLOOP),'(M.P6.2r)REND 

6*1  READ(5TART[LOOP).'(aN.P6.2r)RARM 

6*2  READ(INC(L00PL'(IN,P6J)-)REICR 

6*3 

6*4  EHOTS*mX((REND-RARMyRINCR)«l  !  THE  E  THE  TOTAL  No 

6*5 

6*6  C— - - 

6*7  C  THE  CALLS  THE  GRAPHICS  ROUTINE  TO  DRAW  A  BAR  GRAPH.  THE  USER 
***  C  HAS  THE  OPTION  select  ALL  OR  lUST  SPECIFIC  Matrix  ELEMENTS 

6B9  C  TO  BE  aiAPHED  FOR  THE  EXPERIMENT. 

690  C^ - — - 

*91 

m  V(LOOP.EQ.1.AND.K.CT.irm  -  1 

6*3 

*94  PISTP.EQ.IXIHEN 

<95 

4*6  CALLTEK3(TP1,SAMPaOOP)iACENT(LOOP),CONC(LOOP),LAMDA(K)) 
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TOO  c— _ _ 

T01  C  IHBPARTESTABUSHESIFTHEItEECOINCTOBE  ANYCHEMKTRY 
70J  C  APPLIED  TO  THE  SAMPU.  B>  SO  THE  SAMPLE  STAGE  MUST  BE  MOVED  TO 

TID  C  THE  APPARATUS  THAT  SUPPLIES  THE  CHEMICALS. 

704  C - - 

705 

TOO  IP(ACENT(LOOP).EQ.‘NONEOTHEN 

707  RESCT-1  !  FLAG  TO  CLEAR  THE  SCREEN 

TOO  CALL  TEIC_TEXT(IXT_PLC,PORT.RESEr,ANS,  ANALYTE,  AMOUNT.IEXIT) 

709  0010605  I  NO  AGENT  FOR  THE  SAMP 

710  ENDIP 

711 

712  C— - 

713  C  n>  there  ECdNC  TO  BE  AGENT  APPLIED  THEN  WE  COME  HERE 

714  C  I  turn  OFF  THE  OPTK  STAGE  CONTROLLER.  TURN  ON  THE  SAMPLE  STAGE 

715  C  CONTROLLER  AND  MOVE  THE  THE  SAMPLE  100000  STEPS  COUNTER  CLOCKWISE. 

716  C  THE  EQUALS  A  PULL  90  DECREE  ROTATION. 

717  C _ 

710 

719  WRnE(3,'{A2)TP  • 

7J0  CALLTWAITO) 

721  WRnE0,'(A4r)CS//T)O'//CR 

722  CALLTWATTO) 

723  WRfIEa.'<A4)')CS//TO'//CR 

724  ( 

725  CAUTWAmS) 

726  WRnE<3,'(A9nt  MN  STO  • 

727  I 

720  I 

729  CALLTWATTO) 

730 

731  IDET  -  100000 

732  CALL  INT_TOjCHAR<IDBT.START_POS.LE)  •  CONVERT  IT  TO  CHARACTER 

733 

734  TYPE -3  I  FLAG  TO  MOVE  SAMPLE 

735  !  STAGE  ONLY 

736  CALL  MOV  JSTACE(LASER.TYPE.LAMDA(l),START_rOS,REPORT, 

737  GRAPHICS) 

730 

739  c - - - - 

740  C  SEND  A  MESSAGE  TO  THE  USER  TO  APPLY  THE  CHEMETRY  AT  THE  POINT. 

741  C  THE  E  PRESENTLY  DONE  MANUALLY.  JUST  WAIT  FOR  A  RETURN  TO  BE 

742  C  ENTERED. 

743  - - 

744 

745  620  FORMAT(10X,THE  SAMPLE  E  NOW  READY  FOR  THE  '.A20) 

746  622  FORMATn<Bt,’APPLY’,A10,'(M|An3)  TO  THE  SAMPLE//) 

747  624  FORMATOOX.-PRESSTOCOON.') 

740 

749  C— - - - - - 

750  C  V THE  LEER  EUSB4C  GRAPHICS  THDI  THE  ABOVE  TEXTS  DEPLAYH) 

731  C  R4  GRAPHIC  FORM  BY  CALL  THE  TEK  TEXT  ROUTINE 

731  C - 

7» 


!  DEABLE  OPTIC  CONTROLLER 

•  MmAUZE  CONTROLLER 

!  INniALiZE  THE  SAMPLE 
CONTROLLER  CARD 

!  TURN  ON  CONTROLLER 
PLACE  IN  NORMAL  MODE 
AND  POWER  DOWN  MOTORS. 


-224- 


Appendix  IV 


4 


TM  «26  B>(CRArHIC5.EQ.1]mEN 

m 

736  c  PAUSE*  AKXrr  TO  MOVE  THE  SAMPLT 

757 

731  ■KUXTP.EQ.triHEN 

7S»  EESET  -0 

760  ELSE 

761  BESET  -  I 

762  ENDIP 

763 

766  EXIT  -0  I  MITIAUZEEXTrPLAC 

765 

766  ANALYTE  -  ACENT(liOOP) 

767  AMOUNT  -  CONC(LOOP) 

766 

766  TYT.PLC-S  !  FLAG  POR  SAMPLE  PARAMEIEBS 

770 

771  CALL  TEK_TEXT(rXTJLC,PORT,RESEr,ANS,ANALYTE,AMOONT,IEXII) 

772 

773  P(IEXTr.EQ.1)COT0 10000  I  USER  WANTS  TO  EXTT 

774 


775 

77* 

c- 

c 

THB  CLEARS  THE  ENTIRE  SCREEN  PRIOR  TO  GOINC  ON  WDH  THE  PROGRAM 

777 

c— 

771 

775 

RESEr-2 

1  FLAG  TO  CLEAR  THE  SCREEN 

TfO 

7«1 

CALL  TEK_TE)CT(nCTJLC,PORT.RESET,  ANS.  analyte,  AMOUNT.IEXTt) 

7«2 

783 

GOTO  628 

784 

785 

ENDIF 

78* 

787 

WRnEC,610)AGENT(LOOP) 

I  TELL  THE  USER  TO  ADD 

788 

WRIIEr,623)CONC(LOOP) 

1  THE  SFEdPIED  CHEMISTRY 

789 

WRITEr,624) 

750 

MSGO:1)-" 

!  CLEAR  THE  VARIARU 

751 

752 

758 

CALLTWATT(30) 

754 

c 

READr.'(Ar.E»-628)MSG 

!  READ  THE  MESSAGE 

755 

75* 

DtMSGO-.tLEQ/  7COTO  626 

I  CO  SEND  STAGE  HOME 

757 

758 

GOTO  626 

!  MPUT  rad  ..DO  IT  again 

759 

800 

G— 

801 

c 

THB  MOVES  THE  SAMPLE  STAGE  BACK  TO  ns  HOME  POSmON. 

803 

c 

IT  ADOmONAUY  DKABLES  THE  SAMPLE  STAGE  CONTROLLER. 

803 

c 

THEN  WAKES  THE  OPTIC  CONTROLLER  CARD  AND  PLACES  THE  OPHC 

804 

c 

STAGE  CONTROLLER  M  NORMAL  MODE. 

808 

G— 

80* 

807 

631 

DeT--iiaooo 

•  FLAG  TO  DRAW  A  RED  PANEL 

I  FLAG  NOT  TO  DRAW  A  RED  PANEL 
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•08 

CALL  ■gT_TO_CHAR<IDBT,START_POS,lE)  1  CONVERTS  TO  CHARACTER 

•09 

•10 

TYPE-1 

•11 

CAIi  M0V^ACE(LASER.TYPE.LAMDA(I).START_P0S,REP0RT, 

•11 

GRAPHICS) 

•13 

•14 

CALLTWATTO) 

•15 

WRnEC3,'(A2)7P  • 

!  DBABU  SAMPLE  CONTROL 

•u 

CALLTWAirp) 

•17 

•18 

<08 

WRnEO,-(A4r)GS//W/(CR 

!  INrnALIZE  CONTROLLER 

•19 

CAlLTWAnO) 

no 

WRnE(l/(A4T)CS//T>l'//CR 

1  INniALIZE  THE  OPTK 

•21 

C 

f 

STAGE  CONTROLLER  CARD 

•22 

CAUTWAIT0) 

•13 

WRnE<3/(A9)TE  MN  STO  • 

!  turn  on  CONTROLLER 

824 

CALLTWAnO) 

!  ALL  MOTORS  DEENERGIZED 

•25 

826 

•27 

c— 

•28 

•29 

L-  LOOP 

1  SHORT  SAMPLE  COUNTER 

•JO 

R-T  ! 

initialize  laser  COUNTER 

•31 

•32 

•33 

c 

K-  COUNT  ON  THE  NUMIER  OP  LASERS  USED  IN  THE  EXPERIMENT 

•34 

c 

HERE  THE  OPnCPOSmONS  ARE  DETERMINED  BY  THE  <  LAS<IC)  > 

•35 

c— 

•» 

•37 

610 

R-K«LCNT  ! 

INCREMENT  LASER  COUNTER 

•38 

•39 

LASER-LASOQ 

•40 

•41 

c — 

•41  C  1HE  SETS  THE  TRANSLATION  stages  M  THE  PKOPEKFOSmONS  TO 

•41  C  SENOTHElEAMTOTHESAMnE. 

•44  C - - - - 

•4S 

•4*  •»  TYTE  -  2 


•47 


•SO 

•SI 

•SI 

•SI  c- 


•  flag  TO  UNE  BEAM  wrm  SAMPLE 

CALL  MOV_STAGEaASEILTYPE,LAMOA(l).STAItT_POS.REPOrr. 
CDAPHICS) 

V(REPORT.GE.1)GOntO  10000  !  EXIT  PROGRAM  ON  ERROR 


•84  C  HERE  TT4E  SAMPLE  STAGES  SENT  TO  ns  START  POSmON. 

•ss  c - — _ _ 


•57  STARTT -S0J)-RARM  !  DEGREES  TO  START  POSmON 

am 

•**  BBT  '  IPD^  STAm  •  3000D ) !  STEPPER  MOTOR  I'lCREMENTS 

••0  HOME  -  D6T 

••1 
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M2 

CAUMT_TDjC»All(K>BT,STAIIT_rOS.LE)!  CXaNVEKT  IT  TO  CHARACTER 

M3 

M« 

wirrEp,'(A2)Tr  ■ 

MS 

MS 

CAUTWAITO) 

M7 

WRrrE(},'(A4nC5//T>0'//CR 

!  INTIULIZE  CONTROLLER 

MB 

CALLTWATTP) 

BIB 

WRrTE0,‘(A4nCS//T»-//CR 

1  INITULIZE  THE  SAMPLE 

STD 

1  CONTROLURCARD 

S71 

CAUlWAnXS) 

B73 

B73 

WRnEp,'(ArnT  MN  SIS  ‘ 

1  TURN  ON  CONTROLLER 

B74 

1  rtACEM  NORMAL  MODE 

STS 

1  AND  POWER  DOWN  MOTORS. 

STS 

CALL  TWAnP) 

S77 

STB 

TYPE-3 

ST9 

CALL  M0V_STACE(LASER.TYPE.LAMDA(ILSTART_P0S,REP0RT, 

SBO 

Ml 

SB2 

GRAPHICS) 

BBS 

c 

THB  part  opens  the  proper  SHUTTER  SO  THATTHE  PORPER  LASER  BEAM 

BB4 

c 

CAN  CHANNEL  ns  WAY  TO  THE  SAMPLE.  mS  M  •  19  REPRESENT 

BBS 

c 

CONTACT  CLOSURES  POR  LASER  SHUTTERS  1  -  4  respectively. 

BBT 

BM 

CALLTWAnp) 

BB9 

m 

*(LASER.EQ.1)THEN 

•91 

B91 

WRrreo/(A9)TCS/r»wc»,v/A:R 

!  MODULATOR  *1  ON 

B99 

CALLTWAnO) 

•M 

WRnEp,'(A9)0C»r«WC2l^/A3l 

!  MODULATOR  #2  OPP 

BBS 

CALLTWAITP) 

•M 

WRnEp.'(A9nCSmWC2a^WCR 

!  MODULATOR  #3  OPP 

m 

CALLTWAITP) 

wm 

WRrrEO.-(A9r)CS<r%WC23^//CR 

1  MODULATOR  P4  OPP 

901 

WRnSP.'(A9nCS«P«WC1*.r«CR 

1  LASER  SHimER  PI  ON 

902 

CALLTWAITP) 

903 

WRITEO.'(A9nCSffTIWa7E’«CR 

!  LASER  SHUTTER  *2  OPP 

9M 

CALLTWAITP) 

9QS 

WRIIEO,’(A9)‘)CSir«WC1BE’/<CR 

t  LASER  SHUTTER  «3  OPP 

9M 

CAlLTWAnp) 

90T 

90B 

WRITEa’(A9nCS<r«WCI9^/«CR 

t  LASER  SHimER  *4  OPP 

«te  n5i«i(iAsaLGQ.zrniEN 

♦11 

♦la 

♦la  wnno,'(A^ncsir«i«C2i,i'aai  !  modulatok  *a  on 

♦M  CAUTWAfiP) 

ns  «rnnav^fncsr«wcaiur«ai  •  mooulatok«i  or? 
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f1« 

CALLTWArrp) 

*17 

wBrre(j/(A*)Tcs//^wci2,(r//cii 

!  MODULATOKMOf* 

•IS 

CAU.TWAIT1IZ) 

*19 

WWIEp,'(A«nCW/^WC23Xr//C« 

!  MODULATOK  «4  OPP 

«ao 

921 

CALLTWAIIP) 

*22 

W«nE(J,'(A*nCS//’»WCT6^//CR 

!  LASER  SHU1TES  41  OPP 

*23 

CAUTWAITP) 

*24 

w«rrep/(A«ncs//^wcir,i7/ai 

!  LASER  SHt/rTER«2  ON 

*3S 

CAUTWAITP) 

*3S 

wMreo/(A*nGS/A%wa»^//c« 

!  LASER  SHUTIER*]  OFF 

*27 

CAUTWAirCQ 

*28 

*29 

wMre(j/(A*ncs//^waw/cii 

!  LASER  SHUTTER  44  0PP 

*30 

*31 

ELSBF(LASEX.EQJ)THEN 

*32 

CALLTWAnp) 

•33 

*94 

wujT0/(Afncs/r%wcni‘//c» 

•  MOOUIATORMON 

*35 

w*iiE(j,-(A*ncs/r»wcjo,<r//c« 

•  modulator  tl  OPP 

*35 

CAUTMTAmi) 

*37 

WMIS<3/(A«nCS//^Wai,0'//Cll 

>  MODULATOR  42  OPP 

«3S 

CAlLTWAnp) 

*9* 

wMreo,'(A*ncs/^«wczi,o'//cii 

1  modulator  44  OPP 

•40 

CALLTWAnO) 

•41 

*nmci/(Air)CS/r%wa6,(rj/cit 

•  LASER  SHUTTER  41  OPP 

•42 

CAUTWAITP) 

•43 

WMre(3.(A»nCS/A»W07,(r//C« 

•  LASER  SHUTTER  42  OPP 

•44 

CAU  TWArrp) 

•45 

was.  i  v/c* 

!  LASER  SHUTTER  43  ON 

•46 

CAU-TWAnO) 

•47 

•a 

•«* 

*90 

WnEp/(A*nC»7*WCT9,0'//CK 

!  LASER  SHUTTER  44  OPP 

*91 

*92 

aSBP(LASCILCQ.4)!THEN 

*93 

wiirreq,'(A*nc»ir«wci3.r//c» 

1  modulator  44  ON 

*94 

CALLTWATTP) 

*95 

!  MODULATOR  41  OPP 

*9S 

CAULTWAnp) 

*97 

wMreo.'(Afnc»r*wai^^/ai 

!  MODULATOR  42  OPP 

*9S 

CAixTWArrp) 

*9* 

w«ntEp/(A*ncy^wci2.o’/(cii 

•  modulator  43  OPP 

*10 

CAUTWAnO) 

*51 

w«mo/(A*nc»r«wawr«c« 

1  LASER  SHUTTER  41  OPP 

«S2 

CAtllWAfTp) 

*•3 

wure(>,’(A9nc»r«wa7^«c> 

1  LASER  SHUTTER  42  OPP 

*94 

CAUTWATipt) 

*55 

wKm(i,'(A9r)cs#^**citjr»ai 

1  LASER  SHUTTER  43  OPP 

*55 

CAUlWAnp) 

*57 

*•0 

wiinsa-(A9nc»r%wci9.v*ai 

1  LASER  SHUTTER  44  ON 

*0* 

■NOP 
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*7P 

n  c — - — - 

m  C  KaSTAlUSHIHE  CONNECTION  WnH  THE  «3SaUAL  node  CONntOUEX 
*73  - - 

•74 

•75  CALLTWATIO) 

*7*  WKnE0,'<A4nCS//TO'//C»  ! 

*77  CAUTWATTO) 

•Tt 

*7* 

•n  C - — 

Ml  C  HEIE  THE  DATA  COLLECTION  BEGINS.  ALWAYS  M  THE  SAME  OBDEB 

•12  C - - - 

•13 

«M  MUSE-0 

••5 

•t*  CALLW(EH0TS,MUSE.ICNT,E,SAMI>,R1NCB.RARM.REND, 

•■7  .ANCl£.STT,roBT) 

«W  C  CALL  •BMT.rr 

••0 

••I  CALL  V4S(EHOTS.MUSE.ICNT.6.SAMMtlNCB.BABM.BEND. 

fU  .ANCLE.STT) 

••3  CALL  P4SV(EH0TS,MUSE.ICNT,B,SAMP,IUNCB.RABM,B£ND, 

••4  .ANCLE,STP) 

••5  CAU  P454S(EH01S.MUSE.ICNT,E,SAMP.BINCB.BABM,REND, 

«t*  .ANCLE5TP) 

•*7 

••( 

<m 

1000- - - 

1001  C  the  PABT  DELETES  THE  CHANNEL  GRAPHICS  THAT  WEBECBEATED  ON  THE 

1002  C  LAST  POLABIZEB  PEBMUTATTON. 

1003  - - 

1004 

1005 
100* 

1007 
HW 
MO* 

1010 

1011  C- 

1012  C 

1013  C- 

1014 

1015  CAUTWAm2) 

10M  »(LAK>LEQ.1)rTHEN 

1017 

1010  wBiiia'(A*nc54n*wa«.<rM3i  •  laseb  shutter  *1  opp 
101* 

1020  ELSEIP|IASEB.BQJ)ITHEN 

WEI  •WnPkTAOnCM^PTCITjrOCB  •  LASER  SHUTTER  *2  OPP 

1022 

I0»  IlEaPaASER.EQ.qTHEN 


*tCBAPHICS.EQ.1)THEN 

BSC-OSO 

CALL  MT«PT1|EEC,SEC) 

WRnEr.1B7Sr«EC 

WBfTEr.TEWTNO' 


I  SECMENTNUMIEB 

!  CONVERT  TO  TEK  CODE 
!  DEICIE  THE  SEGMENT 
!  BENEWTHEVIEW 


TTflS  PART  CLOSES  THE  LASER  SHUTTER  THAT  E  CURRENTLY  OPDJ 
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10*4  WRrTE(3,'(A9)xs//'«wci«.o'//cit  •  LASER  sHums  «*  on> 

1025 

10*6 

1027  ELSEV(LASEILEQ.4)1HEN 
10*1 

10»  WRirEC>/(A»nCS/^»Wa»,0'//CR  !  LASE*SHUmR*4  0PF 

1030 

1031  CALLTWATTP) 

103*  wRrreo/(A»y)CS//'»wc3o,i7/c«  !  modulator  «i  on 

1033 

1034  CALL  TW  Am*) 

10*5 

1036  WRfTEO.'(A«)‘)CS//’%WC23,0'//CR  !  MODULATOR  64  Oi^ 

1037 

1030  ENDV 

10M  CALLTWArrp) 

1040 

1041  C - 

101*  C  REESTAILEH  THE  CONNECTION  wnH  THE  63  SERIAL  NODE  CONTROLLER 
10U  C - 

1044 

1045  CALL  TWATTP) 

1046  WRnE<3.'(A4r)CS//TO-//CR  ! 

1047  CALLTWArrp) 

1046 

1046  C - 

1050  C  THB  PART  SENDS  AU  THE  STAGES  TO  THIER  HOME  rOSmON  SO  THAT  THE 

1081  C  NEXT  LASER  CAN  START  PRESH 

1052  C— — - — - 

1053 

1054  WRrTEp,  (A7)71ST1  C  ’ 

1085 

1056  IDBT  •  lOOOO 

1087  MSC  •  ’ ' 

1058  MOIKIE-  HOME-(2>HOME) 

1086 

1060  CAU.»rr_TO_CHAR(1HOME.START.EO$.LE)!  CONVERT  IT  TO  CHARACTER 

1061 

106*  TrPE-3 

1063  CALL  MOV  JTACE(LASEILTrPE.LAMDA(l),START_POS.REPORT, 

1064  GRAPHICS) 

1065 

1066  WRrTEp.-(A21)T2PS  ISTT  IH  2C  *CR  C  ' 

1067  CAILTWATTP) 

1066 

1066  IIEADp/(A60r,ERX-630)MSC 

1070 

1071  630  CAUTWAnp) 

1071  MSG-" 

1073 

1074  WRITEp,*(A5)r)r*5T0  ‘ 

1075  CAUTWAITCQ 
W76 

1077  WirRp.'(AIirr3K5Sn  3H1C3CRC- 
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ion  CALLTWAirO) 

ion  REAOp/(AOOr,Elt>-MO)MSC 
ion 

1011  ««0  WUIE(3,'(A5)T351D  ‘ 

1002  MSC  -  ‘  ‘ 

1003  CALLTWArrp) 

1004 

1005  WUTE(3,'(A2)0T  ’  !  TUON  OFF  THE  SAMPLE  CONTVOLLEIt 

1006  CAUTWArrO) 

1007 

ion 

100*  ■HCOAFHKS.EQ.IliTHEN 

ion  E  -  CHAIlaT) 

1001  EEC  -050 

1002  CALL  ■>nilPr<EEC,SEC) 

1003  WltnEr.’)E//^V/5EC 

1004  WRnE(*,‘)E/rKNO’ 

1005  ENEMP 

1006 

1007  C - 

1000  C  THE  FAKT  KEEPS  A  TOTAL  COUNT  OP  THE  DATA  RECORDS  ON  FILE 

lOOO  C - 

1100 

1101  000  nQU<RE(FR£-TNOEX’,EXET-p  !E  THERE  A  PIU  header  NUMBER 

1102 

1103  V  (NOrpTHEN 

1104  RECNUM-2  !  THE  FIU  HAS  NOT  YET  COT  DATA 

1105 

1106  OPEN  (UNTr-I.FILE-'EIDEX-.ACCESS-'DnUECr.STATUS-'UNKNOWN-, 

1107  FORM-'FORMATIED'.  RECL-134) 

1100 

1100  WRTTEO.REC-I.FMT  -  7,ERR-970)RECNUM  !  TOTAL  RECORD  NUMBER 

1110 

1111  WRnECP'THE  CURRENT  RECORDS  ON  PILE  ARE -.RKNUM-I 

1112  COTO040 

1113  END* 

1114 

1115  C - 

1116 
1117 

1110  OTEN  O.PILE-'MOEr.ACCESS-'DIRECr.STATUS-'UNKNOWN', 

1110  .PORM-'PQRMATTED',  RECL-134) 

1120 

1121  READ(1,REC-1.PMT-7,ERR-020)RECNUM 

1122 

IIS  020  WRnEC.Tim  CURRENT  RECORDS  ON  PILE  ARE -.RECMUM 
1114 

11B  . . . . 

im  C  BELOW  THE  B4DEX  POE  BWRmEN  TO  and  WILL  CONTAB>1 
IIS  c  THE DATE.SAMPiE,ACENT,AND THE  LASER  Wavelengths 
IIS  C  COtVCENIRATION  VALUES  WILL  IE  LETEDWIIH  HEADER  DATA 

IIS  . . . . . . 

IIS 
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1132 

11J3  fM  WUTE(1.REC->EagUM,PMT-«S6,EIUl-970)RECNUM,NAMEDATE.TIME. 
1134  'SAMrQ^ACENT(L),CONC(L),LAMDA(K*LCNT),EHOTS,RARM,REND,IUNCIt 

1133 

1136  WinE0.>EC-l,FMT-7,EIUt-970)RECNUM»1  !  INC  4  WRITE  COUNT  TO  FILE 

1137  970  CLOSE  <1> 

1138 

113»  C* . - .  . .  . 

1140  C 


1141 

C 

NOW  THE  ACTUAL  DATA  E  STORED.  IT  WILL  SAVE  AS  MANY  PILES  FOR 

1142 

C 

EACH  SAMPLE  AS  THERE  ARE  LASERS  (DIFFERENT  WAVELENGTHS).  EACH 

1143 

c 

TIME  THE  MOD  E  REACHED  ONE  SAMPLE  HAS  BEEN  LOOKED  AT. 

1144 

c 

1145 

1146 

1147 

995 

LI  -0 

1146 

1149 

CALL  INT_70_CHAR(RECNUM.FNAME,LE) 

1150 

FILENM-FNAME/ZDAT' 

1151 

1152 

DO  1000 1-1,10 

1153 

IP  (FILENMO:D.EQ.CHAR(32))COTO  1000 

1154 

L1-L1*1 

1155 

FLNM(LI:LI)-FILENM0:|)  !  SHORTEN  THE  FILE  NAME 

1156 

1000 

CONTINUE 

1157 

1156 

FILENM  - 

1199 

FNAME  -  •  • 

1160 

1161 

1005 

F0RMAT<F7J) 

1162 

1163 

OFEN(l.FILE-FlNM.ACCESS-T)IRECr.RECL-7,PORM-TORMATTED', 

1164 

STATUS--NEW,EBR-10W) 

1165 

1166 

n  -  EHOTS  •  10 

1167 

1166 

1010 

DO  1013  KK  -  l.n 

1169 

WRflEO  .REC-KK.FMT-  I009.ERR  - 101  5)ARa  Y(KIC) 

1170 

1015 

CONTINUE 

1171 

1172  1-0 

1173  n-  KK 

1174 

1173  1020  DO  1023  KK  -  I2.n  t  D  •  1 

1176  1-1*1 

1177  W«nEO.WC-ICIC.»Mr-1003,EIUl-102S)BRAYO) 

1178  1023  CONTWUE 

1179 

1180  I  -  0 

1181  D  -  RX 

1182  1030  DOia33nc-an  *D-1 

1183  1-1*1 

1184  *«TEOJIK:-l*.FMT-1003.ERR-ia33)CRAYO) 

1188  1033  CONTWUE 
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11M 

1117  j  -  0 

IIM  n  -  KK 

iin 

1I«0  1040  D0 1045  KK  -  an  « n  - 1 

1191  J  -  J  ♦  1 

1192  WI(nE(1.IIEC-KK.niin'-100S,ElUt-1045)OltAYO) 

1193  1045  CONTINUE 

1194 

1195  n-EHOr5*16 

1194  D  -  KK 

1197  I  -  0 

1190 

1199  1050  D0 1095  KK  -  an  t  D  - 1 

1200  J  -  /  ♦  1 

1201  WUIE(1.>EC-KK.PMr-1005,EIlR-1055)ERAYO) 

1202  1055  CONTINUE 

1203 

1204  CLOSED) 

1205 

1204  C - 

1207  C  NOWISWriCHCONTEOLTOTNEOnKSTACECONTItOLLElt 

1204  C  VTHISELASEK41  NO  ACTION  NEED  BE  DONE. 

1209  C  R3ltLASEaS2<4l$ENDT>1ESTEPI>ERM0T0R<10rTKSTACEH0ME 

1210  C  P  THE  ELASEK  43 1 SE34D  STAGE  42 -43000  STEPS  HOME 

1211  C  PTHEELASEK44ISEND$TACE42-134000STEP5HOME.. 

1212  C - 

1213 

1214  WI1fIE0.  <A4r)C»/T)O'//CK  !  INTTIAUZE  CONTEOLIEK 

1215  CALLTWATTP) 

1214  WlinE(3,‘(A4)')CS/rDr//CK  !  INrTMLlZE  THE  OPIK 

1217  I  STAGE  CONTROLLER  CARD 

1214  CAUTWATIP)  !  PAUSE  ¥10  SEC 

1219  WRnEp,'(A9)TEMNST0’  I  TURN  ON  CONTROLLER 

1220  CAUTWATTP) 

1221 

1222  C - 

1223  C  THEE  THE  END  OP  THE  LASER  LOOP.  WHATEVER  LASER  WAS  LAST  TO 

1224  C  TAKE  DATA  MUST  BE  SENT  HOME  BEFORE  WE  MOVE  TO  THE  NEXT  SAMPLE. 

1225  C - 

1224 

1227  P  (K.CE.LASERS(LOOP))iTHEN  •  THE  WAS  THE  LAST  LASER 

1224  P(LAS(K).EQ.1)COri0 1090  !  P  LASER  41  DO  N01H1NC 

1229  GOT0 1040  I  ELSE  MOVE  ON.. 

1230  ENDP 

1231 

1232  C - 

1233  C  P  THEE  LASER  41  AND  NOT  THE  LAST  LASER  THEN  WE  MCREMENT  THE 

1234  C  LASER  COUNT  AND  GO  GET  THE  NEXT  LASER  DATA  NOMOTORSHAVE 

1235  C  TOBEMOVED. 

1234  C - 

1237 

123B  P(LA$<K).EQ.1)ITHEN 

1239  K  -  K  1 1 
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1J40  COTO6I0  !  DO  NOTHINC  IF  LASER  *1 

1241  ENOIF 

1242 

1243  C -  HERE  I  SEND  STEFFER  «l  TO  ITS  HOME - 

1244 

1245  1060  WRnET.nXASER  -  MAS<K) 

1246  WRnEO,'{A3Sn'1R1STl  1V20  1A351D52000C1XI  C- 

1247  CALLTWAirp)  •  PAUSE  3n0  SEC 

1240  READP,'(A2SSnMSC 

1249  WIUTEr,*)'  MSG  -  '.MSG 

1250  CAILTWATTP) 

1251  WUnEO/CASiriSTO  ’ 

1252  CALLTWATTP)  I  PAUSE  3n0  SEC 

1253 

1254  C - - - 

1255  C  IF  LASERS  NUMBER  3 1  SEND  rr  HOME 

1256  C — - - 

1257 

1250  IPaAS<K).EQJ)THEN 

1259  WRIIEp,  {A36n'2FS  2ST1  2V20  2A35  2D«3000  G  2X1  C  ' 

1260  WRITEC.T  AT  A  READ  SENDING  MOTOR  42  HOME 

1261  CALLTWAirp) 

1262  READp/IAaOIOMSG 

1263  HWIEC,*)-  MSG  -  .MSG 

1264 

1265  WRnEp.  {AS)T2STD " 

1266  CALL  TWAirp) 

1267  ENDIF 
1260 

1269  C - 

1270  C  Bi  LASER  B  NUMBER  4  I  SEND  IT  HOME  HERE 

1271  - - 

1272 

1273  BHLAS<IC).EQ.4)THEN 

1274  WRnEp.  (A37)T2F5  2ST1  2V20  2A35  20-126000  G  2X1  C  ' 

1275  WRnEr,*r  ATAREADSENOINCMOroB«2HOMF 

1276  CALLTWAfip) 

1277  READP.'IAOOIIMSG 
1270 

1279  WRTTEr.T  MSG  -  '.MSG 

1200 

1201  WRnEp.(A5)T2STO ' 

1202  CALLTWAnp) 

1203  ENOIF 

1204 

1205  C - 

1206 

1207  »  (IC.GE.LASEI(S<IjOOF))THEN  !  THB  WAS  THE  LAST  LASER 

1200  LCNT  -  LOrr  ♦  4  !  BICREMENT  THE  ARRAY  COUNTER 

1209  GOrrOlOW  !  GOTO  NEXT  SAMFU  IF  ANY 

1290  ENOV 

1291  C - - - 

1292  C  iraiE  WE  CONTR4UE  THRU  THE  LASER  LOOP  WHERE  WE  ASK  THE  NEXT 

1293  C  LASER  TO  SHBIE  ON  THE  SAMPLE. 
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b 


12M 

1295 

1296 

1297 
1299 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 
1305 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 
1315 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 
1325 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 
1335 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 


C- 


•C-K  +  1  !  INCItEMENT  LASER  COUNTCK 

COTO610  I  COTONEXTLASERIFTHERE  ARE  ANY 


C — — - 

C  TOE  MAKES  IHE  USER  TUNE  THE  LASER  FOR  THE  NEXT  SAMPLE. 

C - 

1090  DO  1100  q  '  1,LASERS(1 1 1)  !  LOOP  TORU  LASERS 

OPIK  -  CHAR(45  ♦  LASOI  ♦  LCNT))  !  ACTUAL  LASER  NUMEER 
LASER  -  LASOI  *  LCNT)  I  HOLD  IN  SUPPER 

TYPE  -  1  !  FLAG  FOR  SFECTRUM  SETUP 


CALL  MOV_STACE<LASER.TYPE.LAMDAO).START_J>OS,REPORT, 
GRAPHICS) 


1100  CONTINUE 


C- - 

C  THE  ERASES  THE  RED  TEXT  SCREEN 
C - — - 


MSET  -  2  •  DELETE  THE  RED  PANEL 

CALL  TEIC.TEXT(TXT_FLC.P0RT,RESET.ANS, 
ANALYTE.AMCXJNT,IExn) 


C^ - — - - 

C  THEE  THE  BOTTOM  OF  THE  SAMPLE  LOOP 
C^ - — - 

1070  CONTINUE 

WRnEq.  (A2)YP  •  I  DBABLE  CONTROLLER 

WRnE(3,  (A4r)CVPOO'//CR  !  INDTALIZE  (XINTROLLER 

I  COMMUNICATIONS 


C- 


IFLAC-0 


10000  CLCEEP) 


I  CLOSE  CONTROLLER  COM  PORT 


E-CHAR<27) 

WRnEP,»)E//W 

wRnEf,*)E/n.w 

WRnEp,*)E/rsKr 

1«ITEr.*)E//TU5' 

WIIIIEr,*)E//TCN0’ 


I  SET  FIXUP  LEVEL  -  0 
I  DEASLE  THE  DIALOG  area 
I  DELETE  ALL  SEGMENTS 
I  RESET  THE  FIXUP  LEVEL 
I  RENEWTHEVIEW 
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I3«  lOOIO  RETURN  •  RETURN  TO  CALLER 

13W 

t3S0  END 
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AJV.17  Analog  APSD  Software  Modules:  P4545  Source  Code. 


t 


* 


k 


1  SUailOUnNEM545(EHOIS.INUSE.ICNT.I5,SAMP,RlNCII.RARM,R£ND, 

2  .ANCLE,Sn>) 

3 

4  C - 

5  C  'mEMODCArrUIIES'niEDATAKMtTHEPOLAIUZEItSINPOSrnON 

«  C  ASdtgMSdct.  TWO  ARKAYS  ARE  USED  TO  SAVE  THE  DATA. 

7  C  DRAY -EASEQUENTULARRAYSTORINCAU.  THE  data  RECEIVED  FROM 

(  C  THE  AA>  CONVERTER  THRU  THE  ENTIRE  ROTATION  OF  THE  SAMPLE. 

*  C 

10  C  ERAY-BAREFRESENTAHONOFTHEENTTREMATRIX.  NMEELEMENTS 

11  C  WILL  BE  PASSED  IN  FROM  THE  A/D  CONVERTER  OF  WHICH  ONLY  twill 

12  C  RENEW.  IT B:  (11) FROM  THE  14.4.9,11.12,13,15.16. 

13  C  THB  WILL  COMPLETE  THE  ERAY  DATA  COLLECTION. 

14  C - 

15 

16 

17  CHARACTER  CEn>AT*4,SAMI>20,MSC’50,MESC*2S5,HE)('4 

It  CHARACTER  FORT*10,CHAN*2 

19 

20  REAL  RDAT,ARAY.BRAY,CRAY,DRAY,ERAY,RINCR.REND,ANCLE.RARM 

21 

22  MTECER  STP,TYFE,REFORT 

23 

24  DIMENSION  CETDAT0t),RDAT06),HEXa6) 

25 

26  COMMON  /MA1RIX/ARAY(3600),BRAYO600),CRAYO600),DRAYOt00). 

27  .  ERAYIsaoO) 

2t 

29 

30 

31  C 

32  C 

33  C 

34  C 

35  C 

36  C 

37 

3t  WRnEQ,'(A4)riX0'  !  RESET  THE  CUMM  POSITION  CNTR 

39  CAUTWAITO)  I  MOVE  RECEIVER  POLARIZER -45  DECS 

40  WRITEO,‘(A3t)T3FS  3ST1  3V10  3A10  3D-22S00a  3C  3CR  C  ’ 

41  READ(3,'(ASO)TMSCOJO)  !  WATT  FOR  CARRIAGE  RETURN 

42  CALLTWAirn) 

43  WRnEa'<A5rr3ST0*  I  DEENERGIZE  AXB  3  MOTOR 

44  CAILTWAIITI) 

45  WRITEa'(A12)T1F5  ISTT  1H  ‘  >  ENERGIZE  AND  REVERSE  SAMPLE 

46  CALLTWAITTI) 

47 

«  B4USE1 '0 

49  C - 

to  C  HERE  nC»B  THE  LOOP  WHERE  SAMFU  DATA  B  TAKEN  AND  STORED 

51  C . . 


BWEEP-4  ■  FLAG  THAT  THEE  THE  4TH 

I  SWEEP  OP  THE  POLARIZERS 


THB  B  THE  LAST  POLARIZER  SETTINC  AND  DATA  COLLECTION  ROUTINE 
THE  RECEIVER  POLARIZER  E  SENT  TO -45  DECS.  THE  SAMPLE  STAGE 

E  SET  tl  THE  REVERSE  DIRECnON  TO  TRAVEL  BACK  TO  THE  START 

POSmON. 
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52 

53  D0  200M- 1,EH0T5  !  lOOP  THRU  THE  SAMPLE  ROTATION 

5« 

55  C - 

56  C  HEREEWHERETHE  A/D  CONVERTER  BASKED  POR  THE  Data 

57  c - 

56 

X  C  CALLTESTDAT(BWEEP,ANCLE,RDAT) 

60 

61  Cl  -  11 

62  TYPE-3 

63  CAU.DATEUTyTE.REPORT,PORT,C1,CHAN,ROAT,HEX) 

64 

65  C - 

66  C  HERE  EACH  ARRAY  B  SELECTED,  WRITTEN  TO  AND  INCREMENTED 


67 

c — 

6« 

69 

D0 100 1  -  10,1.-1 

70 

DRAY(B)  -  RDAT<I) 

!  STORE  THE  10  ARRAY  ELEMENTS 

71 

B-B-1  ! 

ARAY  sequential  counter 

72 

100 

CONTINUE 

73 

7A 

r _ 

n  C  HERE  ONLY  ONE  ELEMENT  OP  THE  ERAY  MATRIX  B  NEW.  ITB 

T6  C  ELEMEN’ 11.  AS  STORED  IN  RDAT  IN  THE  5TH  POSITION. 

77  C - 

78 

TV  K-IHICNT  •  SELEa  CORRECT  ARRAY  ELEMENT 

80  ERAY(K)  -RDAT<5)  !  PLACE  MATRIX  DATA  IN  ERAY 

81 

82  C - 

83  C  THE  STP  DETERMINES  THE  TYPE  OP  OUTPUT  THE  USER  BREQUESTTNC 

84  C - 

85 

86  aP(STP.E0.1)THEN  •  USER  WANTS  REAL  TIME  GRAPHICS 

r  CALL  DRAW  JLE(BWEEP,ANCLE,RARM,RINCR.REND,RDAT, 

88  mUSEI) 

»  COTO1S0  !  PLAC  TO  SKIP  THE  VIEW 

80  ENDIP 

81 

«  »|5TP.EQJ)CCIT0 150  !  NO  CXHTUT  B  REQUESTED 

«3 

•4  CAU  V1EW(SAMP.ANCL£.B,STP.IDIR) !  AX>  VOLTAGE  OUTPUTS 

*5 

86  ISO  P(M.EQ.BHOIS)GOTO  200 

87 

80  ANGLE' ANGLE -RMCR  !  NEW  SAMPLE  ANGLE 

88 

100  ICNT-ICNT-16  I  DECREMENT  THE  ARRAY  RY  16 

101 

102  WRITEP,'(A8)71C  1X1  C  ‘  I  MOVE  THE  SAMPLE 

103  READQ.'IASIQ'.ERR  -  300)MESCO:S0) 

104  CALLTWAlTtl) 

108  READ(MESC04:22)k’(8N,l9)',ERR  -  200)MOnON 
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106  KNC- MOTION -MBUP 

107  MBUP  -  MOTION 

lot  ItO  K)IIMAT(5X,H,10X.'  ACTUMULATED  MOTION;  •,», 

10*  /  lELATTVE  MOTION:  MW/) 

110  D  WItnEC.1<0)M,MOTION,ICNC 

111  WUTE(3,'(A4)T1K  ’  !  PAUSE  THE  STEPFEK  MOTOR 

112 

113  300  CONTmUE  !  U)OP  THRU  ROTATIONS 

114 

115  C- - — - 

1W  C  AT  THB  POINT  THE  DATA  COLLECTION  FOR  polarizers  POSmONED  AT 
117  C  45  de|/45dttE  COMPLETE.  WE  NOW  RETURN  TO  THE  CALLER 
lit  C - 

119 

120  WRnEO,‘(A5)T1Sn‘  I  DEENERGIZE  THE  SAMPLE  STAGE 

121 

122  400  RETURN 

123  END 
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AIV.18  Analog  APSD  Software  Modules:  P45V  Source  Code. 


1  SUBROUHNE  r«5V(BHOT5,INUSE.>CMT.E,SAMP,fUNCIt.lLAIlM,l(£ND, 

2  .ANC1£.STP) 

3 

4  C - 

5  C  THE  MOD  CAPTURES  THE  DATA  FOR  THE  POLAUZERS  IN  POSmON 

t  C  45d«c/VERTICl£.  TWO  ARRAYS  ARE  USED  TO  SAVE  THE  DATA. 

7  C  CRAY -EASEQUENTULARRAYSTORINC  ALL  THE  DATARECEIVED  PROM 

•  C  THE  AA>  CONVERTER  THRU  THE  ENTIRE  ROTATION  OP  THE  SAMPLE. 

»  C 

10  C  ERAY- EAREPRESENTATTON  OP  THE  ENTTREMATRIX.  NINE  ELEMENTS 

11  C  WILL  EE  PASSED  M  PROM  THE  A/D  CONVERTER  OP  WHICH  ONLY  3  WILL 

12  C  BE  NEW.  THEY  ARE  ;  0.7.IS)PROM  THE  1,3.4,S,74.13,IS.I6. 

13  C  ONLYONECAPWILLBELEPTINTHE  ARRAY  AT  THE  II  POSITION  WHICH 

14  C  WILL  BE  PIUED  IN  BY  THE  LAST  POLARIZER  SETIINC. 

15  C - 

14 

17 

IB  CHARACTER  CEn>AT>4,SAMP>20,MSC*50,MESC*2SS.HEX'4,FORT'l0 

1«  CHARACTER  CHAPrr 

20 

21  REAL  RDAT.ARAY,BRAY,CRAY,DRAY.ERAY,RARM.RINCR.ANCL£.REND 

22 

23  NTECER  POS,STP,REPORT,TYPE 

24 

25  DIMENSION  RDAT(1«),|1<3),HEX(1«) 

26 

27  COMMON  /MATRIX/ARAY(3600),BRAY060a).CRAY0600),DRAY(3600), 

2S  .  ERAYISaOO) 

2P 

30  DATA  |1  /3,7.I5/  I  NEW  MATRIX  ARRAY  ELEMENTS 

31 

32 

33 

34  C- 

35  C 

36  C 

37  C 
3B  C 
3*  C 

40  C 

41  C- 


42 

43 

WRnE(3,’(A4nTX0  • 

•  RESET  CUMM  POSITION  COUNTER 

44 

CALL  TWArrU) 

45 

WRnEa'(A21)73PS  35T1  3H  3C  3CR  C '  ■  SEND  RECEIVER  HCME 

44 

REAOa'(A50)>l5C<1-J0) 

!  WATT  POR  CARRIAGE  CNTRL 

0 

CALLTWArrO) 

m 

WRnED.'(ASm510 ' 

1  DEENERGIZE  AXB  43 

4* 

CAlLTWAim) 

•  SEND  XTMR -45  DECS 

55 

WRnEO.'(A37)T2PS  2STT  2V10  2A10  20225000  2C  2CR  C ' 

51 

REAOO.'(AS0nM5C(1J0) 

1  WATT  POR  CARRIAGE  CPmU. 

BWEEP-3  I  PlAC  THAT  THIS  6  3RD  SWEEP 

!  OF  THE  POLARIZERS 


THE  ADIUSTS  THE  MSTRUMENTS: 

THE  CUMM  POSmON  BUPPER  B  BimAUZED 
THE  TXMnER  POLARIZER  B  SENT  TO  -45  DECS 
THE  RECEIVER  B SOITTO  HOME  OR  VERTKAL 
THE  SAMPU  STAGE  B  SET  TO  REVERSE  THE  DIRECTION 


■240- 


Appendix  IV 


CAULTWAnp) 

WUIECS,'(AS)TSID‘  )  DEZNEaCCEAXBM 

CAUTWAnO) 

Wllfre(S.'(A13)Tir5  isn  1H  '  !  reverse  samtu  stage 


HERE  RECMS  THE  loop  %mERE  SAMPLE  DATA  B  TAKEN  AND  STORED 


DOMOM- l,EHOIS  !  LOOP  THRU  THE  SAMPLE  ROTATION 


V  C  HEREEtmERETHE  AX>  CONVERTER  BASKED  POR  THE  DATA 


C  CAU.TESTDAT1BWEEP,ANCLE,RDAT) 


CAU  DATELnYPE.REPORT.POItT.ia.CHAN.RDAT.HEX) 


HERE  EACH  ARRAY  B  SELECTED.  WRITTEN  TO  AND  RXCREMENTED 


DO  TOO  1-1.10 


I  ARAY  sequential  COUNTER 


CRAY(B)  -  RDATQ)  !  STORE  THE  10  ARRAY  ELEMENTS 


HERE  ONLY  THREE  ELEMENTS  OP  THE  ERAY  MATRIX  ARE  NEW.  THEY  ARE 
ELEMENTS  3.7.1S.  THEY  ARE  STORED  M  THE  RDAT  ARRAY  »l  POSfTTONS 


K  -  nO)  ♦  KNT 

ERAY(iq  -  ROATP) 
K- pm*  KNT 
ERAY(K)  -  RDATLS) 
K  -  PP)  «  KHT 
ERAY(K)  -  RDATH) 


!  SELECT  CORRECT  AlttAY  ELEMENT 
I  PLACE  MATTUX  DATA  W  ERAY 
I  SEIECT  CORRECT  ARRAY  ELEMOrr 
I  PLACE  MATRIX  DATA  n  ERAY 
t  SELECTCORRECTARRAYEIEMENT 
!  PLACE  MATTUX  DATA  M  ERAY 


MO  Hn(SrP.EQ.1)ITHB4  •  USER  WANTS  REAL  TIME  GRAPHICS 


Ml  CALLDRAWJBE(BWEEP.ANCLE.RARM.RMCR.REND,RDAT.MUSE1) 

MO  GOTO  ISO 
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106 

107 

100 

too 

1 

1 
I 
I 
1 
1 
1 
I 


ISO 


lao 

121 

122 

123 

124 

125 

170 

134 

127 

D 

m 

139 

130 

m 

131 

132 

C— 

133 

C 

134 

c 

135 

c 

134 

c 

137 

c— 

130 

139 

140 

141 

400 

142 

»<STT.EQJ.)C0TO  130 
CAU  VEW(SAMr,ANClE,B.STP,IDai) 

P(M.EQ.EH01S)COIO  100  !  DO  NOT  ROTAIt  SAMTU  ON  LAST 

ANCLE  -  ANCLE  *  MNC*  !  NEWSAMPLE  ANCU 

ICMT-ICNTtU  !  INCItEMENTTHE  ARRAVSy  16 


WltnEP,‘(A9)TlC  1X1  C  ‘  !  MOVE  THE  SAMPLE  STACE 

REAOP.TASOr.EU  -  lOOjMESCO^ 

CALLTWATTO) 

IIEAD(MESC06:12X'(IN,Rr.aUl  -  100)MOTION 
KNC  -  MOTION  -  MBUP 
MBUP-MOnON 

PO«MAT<5X,HJ0X/  ACCUMULATED  MOTION:  M», 
RELATIVE  MOTION:  M»//) 

WRrrEC,l70)M,MOnON,ICNC 
WRTTECl.TAAn'IPS ' 

CALLTWATTO) 

CONTMUE  !  LOOP  THRU  rotations 


AT  THIS  POtUT  THE  DATA  COLLECTION  POR  POLARIZERS  POSITIONED  AT 
4S  Ot|/VERTKU  B  COMPLETE.  WE  NOW  RETURN  TO  THE  CALLER 
WHERE  THE  NEXT  POLARIZER  SETTTNC  WILL  IE  MADE  AND  THE  SAMPLE  WILL 
IE  ROTATED  BACKWARDS. 


WRnEp/IASrriSTT) '  •  DEENERCIZESAMPUSTACE 

RETinN 

END 
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AIV.19  Analog  APSD  Software  Modules:  READjQlO^  Source  Code. 


4 


4 


4 


1  SUnCXnME  ■EADjQKXDEVKXMESC.LENCTHTIMEOUT.EIZE. 

2  KXrr.CMANNEl.MUSE) 

3 

4  C- 

5  C 

4  C 

7  C 

•  c 

4  C 

10  C 

11  C 

12  C 

13  C 
U  C 
IS  C 
U  C 
17  C 
10  C 
l«  C 

20  C 

21  C 

22  C 

23  C 

24  C 

25  C 
2t  C 
27  C 
20  C 
2*  C 
30  C- 


91 

32 

BtPLRIT  igTECEiri  (A-Z) 

33 

•KLUDC '(HOOEPT 

!  EXTERNAL  VMS  VAX  DEPMinONS 

34 

■KLUDE '(BSOEPT 

!  EXTERNAL  VMS  VAX  DEnsmONS 

33 

33 

CHARACTEirS12  METSTR  !  STRMC  RETURNED  TO  OLL 

37 

CHARACTERS  MESC 

•  MPUTSTRMC 

3S 

CHARACTERnO 

DEVICE 

!  THBBTHEPORT 

31 

EUTECEm 

CHANNEL 

1  CHANNEL  ASSIGNED  RY 

40 

1 

THE  SYSTEM 

41 

MTECER^ 

BOE 

•  LENGTH  OP  MPUTSTRMC 

43 

MTECEIP2 

•OUT 

!  flag  FOR  TBIEOUr 

43 

MTECETI 

UNCTH 

1  LENGTH  OP  RECEIVED  STR 

44 

»nECER>4 

TBSOUT 

•  PORT  TIMEOUT  MSECS 

43 

VITECERM 

MASK(2) 

1  (X)AD  PTORD  ARRAY  THAT 

43 

1 

SETS  PORT  TERMMATOR 

47 

! 

CHARACTER. 

43 

M1«CER*4 

HMCTKM 

•  FUNCTION  PCM  QIO  READ 

m 

C— 

w 

51 

c 

HERB  1 OBATE  A  STRUCTURED  BLOCK  THAT  B  USED  FOR  THE  lOSR. 

1HB  B  A  ROtnME  USED  KNt  VAX  VMS  HAIOWARE  TO  AUjOW  FOR  A  QUEUED 
VO  READ.  BITHECASEIAMMTERRESTEDRgREADMCASERlALFORT 
WnH  A  TBIEOUr  SFEOHED  n  SECONDS  (  PROM  THE  USER ). 

DEVICE -THE  SERIAL  PORT  THAT  BREAD  PROM  (W) 

METSTR- THE  STRMC  OP  DATA  THAT  BREAD  (OUT) 

LENGTH  -  THE  MAXBIUM  LENGTH  OP  THE  ST1UNC  THATS  READ  ( IN  ) 

TMEOUT  -  THE  TB(E  M  SECONDS  TO  WAIT  AT  THE  PORT  FOR  DATA  ( IN  ) 

BOE  -  THE  LENGTH  OP  THE  STUNG  THAT  BREAD  (OUT) 

lOUT  -  FLAG  THAT  HAS  2  OPTIONS.-  (  MXXIT) 

1.  nUTB  SET  Rg  THE  NORMAL  MODE  TO  FLAG  WHETHER 
any  DATA  WAS  READ  PROM  THE  PORT  prior  TO  TIMINC 
OUT.  KXIT-I  NO  DATA  READ  AND  PORT  timed  (X)T 

WOT-O  DATA  WAS  READ  (OUT) 

2.  lOmB  ALSO  USED  AS  A  FLAG  PROM  THE  USER  WHEN 
THE  READ  ROUTWE  6  COMPLETE.  TH6  B  DONE  SO  THAT 
THE  ASSIGNED  CHANNEL  FOR  THE  SERIAL  PORT  CAN  RE 

deasskned.  nuT  -n  ( n ) 
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52  C  THB  MCLUDES  THE  STATUS  TO  THE  QUEUED  OPEKATION. 

53  C  THEBNECESSARYBECAUSETHEQIOWMICHTBETUItN  Al  ASSTAUS 

54  C  there  WnXK  4  DVEEKENTTYns  OF  STATIB  INFORMATION. 

55  C  1.  I05TAT  -  REIURNS  THE  STATUS  OF  THE  READ  I  -  GOOD 

5*  C  2.  TERM_OFKEr- characters  READ  AT  THE  FORT 

57  C  3.  terminator  -ASa  VALUE  OF  TERMINATOR  OR  1ST  CHARACTER  OF  TERM 
3«  C  4.  TERM_SIZE  •  LENGTH  OF  THE  TERMINATOR  STUNG 
5»  - - 

40 

41  STRUCTURE  /I05TAT_BLK/ 

42  MTECEX*2  I05TAT. 

43  TERMjOFFSET, 

44  TERMINATOR. 

45  TERMJSIZE 

44  END  STRUCTURE 

47 


44 

70 

71 

72 

73 

74 

75 
74 
77 
70 
7* 

40 

41 

42 

43 

44 

45 


47 


RECORD  /)OSTAT_SUC/  lOSB 


C - - - 

C  THB  STRUCTURE  BUXR  BUSED  TO  ALLOW  ANY  ASCn  character  UP  TO  7  Errs 

C  TO  4E  USED  AS  A  TERMB4AT10N  CHARACTER  IN  A  QIO  READ  OPERATION. 

- - 


STRUCnjRE /IERM_BLK/  !  CHAR0_15  B  THE  NAME  FOR  THE 
•4TECER»2  CHAR0_15.  !  TWO  4YTES  OF  THE  STRUCHIRE.  THB 

CHARI4_31,  !  STRUCTURE  B  14  CONTIGUOUS  RYTES 
CHAR32L47,  !  M  MEMORY  WITH  EACH  BIT  IN  THE 
CHAR44..43.  !  STRUCTURE  CORRE5FONDOMC  TO  THE 

chaR44_7»,  I  ASCII  character  wtth  that  Value. 
CHAR40J5.  !  O' WE  want  TO  SET  THE  CHAR 'r  TO 
CHAR94_I11,  !  BE  A  TERMINATTON  CHAR  FOR  A  QIO 

CHARI12.I27  !  READ  THEN  WE  SET  THE  93RD  BIT  IN 
END  STRUCTURE  !  THE  STRUCTURE  BY  : 

I  TERM_CHAR.CHAR40_S5  -  2"I3 
RECORD  7TERM_BIK/  TERM_CHAR 


4B  C- 


40  STRUCTURE  /FARAMETERV 

41  MTECER*2  MASR_SIZE.  !  4  BYTES  M  CHARO  •  CHAR127  FIELDS 

42  DUMMY  INOTUSED 

43  »niCER'4  TERMJUX  !  ADDRESS  OF  TERM_CHAR  STRUCTURE 

44  ENDSTRUCTURE 

45 
44 

47  RK0RD/FARAMCIER«MASK_P4 

n 

44  MASK_F4.TEItMJLXX;  -  «LOCnERM_CHAR) 

100  MASICJ4.MASICJ5IZE  -  14  !  4  OF  BYTES  *4  CHAR  STRUCTURES 

101 

TO*  TE1M.CHAR.CHAR32_47  -  2"10  !  STAR  B  TERMINATOR 

MB 

104  I  SET- I  VTTMEDOUT 

MS 
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Mt 

107 

too 

MM 

no 

111 

112 

113 

114 

115 
114 
117 
110 
IW 
130 
121 
122 
123 
114 

125 

126 
127 
121 
1» 

130 

131 

132 

133 

134 

135 

136 

137 
131 
13* 

140 

141 

142 

143 

144 

145 

146 

147 
140 
14* 

150 

151 

152 

153 

154 

155 

156 

157 
151 
IS* 


C - — - 

C  HEIE I  CHECK  THE  FLAG  *IOUT*K)R  A  chance  IN  MODE.  1HATBACAU 
C  TO  DEASSICa4  THE  CURKENT  CHANNEL  assigned  TO  THE  POKT. 

C  THE  B  DONE  USUALLY  AT  THE  END  OF  THE  CALLBOCRCXTITNE. 

C - 


V(ICXn’.EQ.«9)iTHEN 

nUT-O  !  R4TIULIZETTMEOUTFLAC 

STATUS  -  SVSEDASSa4(«VAL(CHANNEL))  !  SYSTEM  ASSIGNED  CHANNEL 
RK-NOT.  STATTB)  CALL  LWSTOF  («VAL<STATUS)) 

GOT0 1000  I  RETUIIN  TO  CAUEE 

ENDV 


C - 

C  THBB  THE  CHANNEL  ASSKNMENT  FUNCTION.  THB  CHANNEL  B  ASSIGNED 
C  TO  THE  DEVICE  THAT  WILL  OEFUNCnONINCWnH  THE  QUEUED  lO. 

C  HEEE  THE  DEVICE  BMFUT  BY  THE  USER  AND  THE  SYSTEM  ASSIOIS  THAT 

C  DEVICE  A  CHANNEL. 

C - 


P(B4USE.EQ.0|THBN  !  ASSIGN  CHANNEL  ONLY 

MUSE  •  1  •  ONCE. 

STATUS  •  SYS6ASSICN<DEVICE.  I  USER  READ  DEVICE 
CHANNEL.  I  SYSTEM  ASSIGNED  CHANNEL 

,  !  FRfVIlECED  ACCESS  MCX>E 

,)  !  LOGICAL  NAME  OF  MAILBOX 

P(3IOT.  STATUS)  CAU  LIB5STOP  («VAL<STATUS)) 

ENDV 


C - 

C  THEE  THE  QUEUED  MFUDOUTFUT  REQUEST. 

C - 


nUT-O  •  MniAUZE  TIMEOUT  FLAG 

MESC-"  !  CLEAR  OUT  THE  MESSAGE  ST1UNC 

MEISTR-"  !  CLEAR  CKn  THE  SEND  back  STRING 

I  ASSIGN  THE  FUNCTION  OF  THE  QlOW 
FUNCTION  -  IO(JIEAOVBLK.OR.IOIM_T1MED 

I  TO  BE  A  READ 

STATUS  -  SYSBQIOWt  !  QiOCOMFlETION  EVENT  FLAG 

«VAL(CHANNELL  !  ASSIGN  THE  CHANNEL  FOR  QlOW 
BVAL^UNCTTON), !  TYFE  OF  QlOW  REQUESTED  BY  USER 
lOSa^  I  VO  STATUS  BLOCK  TO  CHECK  VO 
!  ASTROUTMETOBEEXEanED 
I  AST  PARAMETERS  TO  ABOVE  ROUTMES 
«REF|MESOk  I  F1-B4FUT  DATA  FROM  DEVICE 
«VAl(lENCTH)^  I  FI -LENGTH  OF  THE  MFUT  DATA 
«VA14T»IEOUT)l  I  F3- FORT  TB4EOUT  ON  THE  READ 
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MO  MASK_r4.  !  P4-SET7mnNATOItCHAitACTat 

MI  .  ,  •  P5-CHARACm  FOR  READ  ntOMTT 

1*2  .  )  !  K- SIZE  OP  THE  PROMPT 

Its 

IM 

Its  C - 

If*  C  THE  B  THE  DIACN05T1C5  SECTION  OF  THE  ROUTINE. 

ItT  C  nur- I  MEANS  that  THE  PORT  HAS  TIMED  OUT  ON  THE  READ. 

Its  C  SIZE-  THE  LENGTH  OP  THE  SnUNC 

IM  C  MEISTR- THE  READ  DATA  SENT  BACK  TO  THE  CALLER 

170  C  I BICREMENT  THE  EQE  VARIABLE  TO  INCLUDE  THE  TERMINATOR  CHARACTER 

171  C - 

I7J 

173  IP(JIOT.STA'nE)CAUUBISTOP(«VAL(STATUS)) 

174 

175  aHNOT.IOSBIOSTATriHEN 
I7t 

177  F(IOSa.lOSTAT.EQ.SSS-TIMEOUT)THEN 

ITS  IOUT-1  •  FLAG  THAT  PORT  TIMED  OUT 

179  GOTO  1000 

150  ENDV 

151  ENOV 

152 

Its  C - 

Its 

Its  ElZE  •  IOSt.TERM.OPPSET 

IM  BIZE-EIZE»I  )  LET  EIZE  INCLUDE  THE  TERMINATOR 

It7  METSTR  -  MESCfl  lHZE)  !  CHARACTER 

IM 

IM  1000  RETURN 
140  END 
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AIV.20  Analog  APSD  Software  Modules:  REAL_iojOHAR  Source  Code. 


\  SURO.niNE  ■EAL.TO.CHAR  (RNUM.K^TT.CMUM) 

2 

3  . . . 

4  C  IHK  E  DESIGNED  TO  TAKE  IN  A  REAL  NUMBEIt<UNDER  10.0) 

5  C  AND  CONVERT  THEM  TO  A  CHARACTER  FOR  USE  WITH  A 

«  C  GRAPHICS  ROUTINE.  I  TAKE  THEM  OUT  TO  THE  THOUSANDS  PLACE 

7  C 

■  C  RNUM- ARRAY  OP  UP  TO  16  REAL  NUMRERS  (PASSED  IN  BY  CALLER) 

9  C 

10  C  ICNT  -  THE  NUI4BER  OP  REALS  TO  BE  CONVERTED  (  PASSED  IN) 

11  C 

12  C  CNUM- ARRAY  OP  THE  6  CHARACTER  representation  OP  THE  REALS 

13  C  (PASSED  BACK  TO  THE  CALLER) 

14  C . . . . . 

15 

16  REAL  RNUM, RBUP 

17 

IB  CHARACTER  CNUM*6 

19 

20  DIMENSION  RN(A((16XCNUM06) 

21 

22  C - 

23 

24  DOSOI-I.ICNT  !  LOOP  THRU  REAtS 

25 

26  RBUP  •  RNUM(D 

27 

2S  IP(RBUP.LT.O.O)CNUM0X1;1)  -  !  IF  NUMBER  IS  NEGATIVE 

29  !  WIU  REQUIRE  A  SIGN 

30 

31  V(RaUP.CE.10.0)COTOS0  I  CANT  HANDLE  NUMBERS 

32  !  GREATER  THAN  10.0 

33 

34  RBUP  -  ABSdtBUP)  !  TAKE  ABSOLUTE  VALUE 

35 

56  C - 

37  C  THIS  PART  CHECKS  TO  SEES' THE  REAL  HAS  A  WHOU  NUMBER  PART  TO  TT. 
3B  C  r  SO  I  MAKE  THE  NUMBER  THE  SECOND  value  AND  PLACE  A  DECIMALS! 

39  C  THE  THOU}  VALUE.  THE  FIRST  CHARACTER  IS  RESERVED  FOR  SIOI  (<!-) 

40  C  r  THERE  6  NO  WHOU  NUMBER  PORTION  I PLACX  A  ZERO  SI  PLACE  2 

41  C  ANODECRMALSIPLACET. 

42  C - 

43 

44 

45  SI(RBUP.CT2>S|(THEN  !  P  >  I  MAKE  TT  THE 

46  !  HRST  character. 

47  SlUM  -  PIX(RBUP)  I  TAKE  THE  WHOU  NUMBER 

IB  CNUM<n(2:3>  -  CKAR(SIUM  «  4BW"  •  CONVERT  TO  CHARACTER 

49  ! 

50  ELSE  •  OREISE 

51 
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52  CNVU0)(Z3)  -  V.-  !  1ST  CHAR  B  ZEitO 

53  ENDS' 

M 

55  RBUF-tBUF-PLOAT(INUM)  •  SUBTRACT  THE  WHOLE  NUM 

56 

57  C - 

56  C  1H6  PART  DEALS  WriH  THE  NUMBERS  LESS  than  '  NE. 

59  C  I  LOOP  THRU  EACH  PLACE  VALUE  BECINNINC  WITH  V.O  MULTIPLY  THE 

60  C  NUMBER  BY  10.0  SO  I  HAVE  A  WHOLE  NUMBER  VALUE  0-9  THEN 

61  C  CONVERTrrTO»nECER  AND  SAVE  rr  AS  A  CHARACTER  IN  THE 

62  C  CNUMSTRINC. 

«3  c - - 

64 

65  M  -  4  •  character  place  COUNTER 

66 

67  DO30K-U  •  LOOP  THRU  PLACE  VALUES 

66 

69  RBUP  -  RBUP  *  10.0  !  SHIFT  NUMBER  ONE  PLACE  LEFT 

70 

71  IF(RauP.CE.1.0)THEN  ■  CHECK  FOR  DATA  IN  PLACE 

72 

73  MUM  -  IPIX(RBUF)  !  SAVE  NUMBER  AS  INTECER 

74 

75  CNUM(|)(M;M)  -  CHAR<INUM  *  46)  >  CONVERT  LT  TO  CHARACTER 

76 

77  RBUP  -  RBUP  -  PL0AT(MUM)  <  SUBTRACT  NUMBER  PROM  TOTAL 

76 

79  ELSE  !  ORELSE 

60 

61  CNUM0)(M:M)  -  V  <  PLACE  B  A  ZERO. 

62 

63  ENDiP 

64 

65  M-M^l  I  B9CREMENT  PLACE  COUNTER 

66 

67  30  CONTMUE 


69  C - 

90  C  THBIXXJKS  AT  THE  10,0a0lh  PLACE  TO  SEE  IP  UlOOOIh  SHOULD  BE 

91  C  MCREMENTED  UP  OR  LEFT  ALONE.  THB  B  NOT  A  ROUNDINC  UP 

92  C  PROCEDURE.  BECAUSE  OP  THE  WAY  COMPUTERS  STORE  REALS  THE  LAST 

93  C  NUMBER  MUST  BE  EVALUATED  TO  CORRECT  POR  THE  ORIGINAL  INPITT  VALUE. 

94  C - 

95 

96  M-M-1  I  PLTT  PLACE  POINTER  T0 1/1000 

97  RBUP -RBUP  *10.0  !  SHIFT  NUMBER  ONE  PLACE  LEFT. 

96  tOUM  -  VDKRBUP)  I  SAVE  NIAIBER  AS  BilTECER 


100 

101  V(l4tM.CE.5)THEN  !  CHECK  POR  DATA  M  PLACE  VALUE 

102  I  W  ABOVE  4  THEN 

103  CNUMQXMM)  -  CHAR(ICHAR<CNUM0)(M;M))  »  1)  !  MCREMENTBY  1 

104  !  CHECK  THE  CHARA 

MS  Sta4UM0)(MM>.EQ.‘;-)CNlA4(|)(M:M)  -  ▼  I  VALUE.  IF  9  S 


•248- 


Appendix  IV 


'0*  I  INCIIEMENTED...K£EPrr« 

107  ENOIP 

100 

10»  c— _ 

110 

111  50  CONTINUE 

112 

113 

114  REnntN 

115  END 
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AIV.21  Analog  APSD  Software  Modules:  SEE_ELE  Source  Code. 


1  SinR0UTINESEE_ELE(ISWEEP,MAT1UX,INlJ) 

2 

3  C - 

4  C  IHG  MOD  LETS  THE  USER  SELECT  THE  ELEMENTS  OP  CHOICE  FOR  EACH 

5  C  SWEEP  OF  THE  SAMPLE  STAGE.  SINCE  9  BTS  OP  DATA  ARE  SENT  TO 

6  C  THE  DRAWING  ROUTINE  EVERT  TIME  A  SAMPLES  GATHERED  THE  SCREEN 

7  C  CAN  BECOME  SOMEWHAT  CLUTTERED...  HERE  THE  USER  HAS  THE  OPTION 

S  C  TO  SELECT  SPECIFIC  matrix  ELEMENTS  OP  CHOICE.  THESELECTTON 

9  C  OP  THE  DIFFERENT  MATRIX  ELEMENTS  ARE  PROVIDED  FOR  EACH  SWEEP 

U  C  OF  the  SAMPLE  STAGE  PRIOR  TO  THE  BEGINNINC  OF  THE  EXPERIMENT. 

11  C - 

12 

13 

14  CHARACTER  TEXn*35,TEXT2^5,TEXTr3S 

15  CHARACTER  E,A*5,ANS*12,SEC^ 

16 

17  INTEGER  X.Y.MATRIX 

II 

19  DIMENSION  LDATTOa),LDAT2(10).LOAT3<IO),LDAT400) 

20  DAIENSION  U(9),m(9),IC(9),ID(9) 

21 

22  DATA  lA  /  I,X4.5.64.13,I4.16/ 

23  DATAni/1J,4,9,IO,12.13,14,1N 

24  DATA  1C  / 14,44.74,13,15,16/ 

25  DATA  ID/ 14.9,9,11,1X13,15,16/ 

26 

27  COMMON  LDATI,LDAT2,LDAT3,LDAT4 

2S 

29  E  -  CHAR<27) 

30 

31  C - 

32 

33  WRrrE(*,*)E//T,V0-  !  DISABU  DIALOG  AREA 

34  WRf1tr,*)E//Xr  <  CLEAR  THE  dialog  AREA 

35 

36  IP(VIU.EQ.1)THEN  !  INUSE  BEING  RE:>.n' FROM  OUTSIDE 

37  INUSE-0 

30  INU  -0 

39  ENDfP 

40  C - 

41  C  THB  PART  B  JUST  AS  ADO  ON  TO  THE  ROUTINE.  IT  BUSED  BY 

42  C  THE  ROOnNEDRAW.iU  TO  SHOW  THE  USER  WHICH  ELEMENTS  THAT 

43  C  ARE  BEB9C  VIEWED.  THE  FLAG  MATRIX  WHEN  SET  -  I  |UMPS  THE 

44  C  USER  TO  IWE  13  CHECKS  THE  SWEEP  OF  THE  POLARIZERS,  TURNS  OFF  THE 

45  r  SEGMENTS  THAT  ARE  not  B4  USE  THEN  THEN  RETURNS  TO  THE  CALLER 

4«  C - 

47 

a  P(MATTIIX.EQ.1)THEN 

49  WRITEr,*)BrSV!1'  !  TURN  ON  ALL  SEGMENTS 

50  GOT0 13 

51  END* 
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>06  10  CONTINUE  !  END  LOOP 

107 

lOt  TEXT!  -  'FOLAMZESS;  VERTICAL,  VERTKAL' 

109 

no  C^ - - - 

111  C  BWEEP  -  2  (  VERTKAU  45  DEC  ) 

112  C _ _ 

113 

114  ElSEIl>(SWEEP.EQ.2ymEN 

115 

116  J  -  0  !  INTIIAUZE  COUNTER 

117 

119  DO30I-1.9  !  LOOP  THRU  THE  ARRAY  ELEMENTS 

119 

120  25  l-J*1  !  INCREMENT  THE  COUNTER 

121 

122  IPO  EQ.17)COT030  •  KEEP  UNDER  17 

123 

124  IP(IB(l).EQ.|>rOTO  30  !  JUMP  OUT  ON  A  MATCH 

125 

126  BEG  -1*9  !  CALCULATE  THE  SEGMENT  NUMBER 

127 

12B  CALL  MTRPT(KEC.SEC)  !  CONVERT  IT  TO  A  TEK  CHARACTER 

129 

130  V(EEC.LT.16)TMEN  !  IF  ONLY  ONE  TEK  CHARACTER 

131  wRnEr.*)E/7Sv//5EC(i:iyro-  !  ERASE  rr 

1“  OiE  !  ELSE  IP  2  characters 

133  WRnEr,*)E/75V^/5EC0:2y70'  !  ERASE  TT 

134  ENDIF 

135 

134  CO  TO  25  !  CO  INCREMENT  COUNTER 

137 

136  30  CONTINUE 

139 

140  TEXn  -  'POLARIZERS:  VERTICAl,  45  Dr(f««4' 

141 

142  C _ _ 

143  C  BWEEP  -  3  (45  DEC,  VERTKaL  ) 

144  C _ _ _ 

145 

146 

147  ELSaP(BWEEP.EQJ)THEN 

140 

149  J-0 

150 

151  DO  40 1 -1,9  !  LOOP  THRU  THE  ARRAY  ELEMENTS 

152 

153  35  J  -  )  *  1  !  MCREMENT  THE  COUNTER 

154 

155  »0.EQ.17XXnO40  (KEEP  UNDER  17 

156 

157  •(•C(l>.EQ.nCOTO40  I  JUMP  OUT  ON  A  MATCH 

151 

159  BEC  -  I  ♦  9  !  CALCULATE  THE  SEGMENT  NUMBER 
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% 


i 


K 


uo 

161  CAU.»n»T(EEC.SEC)  !  CONVEKT  IT  TO  A  TDC  CHAKACTDl 

162 

163  V(EEC.LT.16]THEN  !  IP  ONLY  ONE  ITX  CHARACTEK 

164  WKnEr.*)Etf^//SEC<1:iy/'0’  I  ERASE  IT 

165  EISE  !  ELSE  IF  2  CHARACTERS 

166  wRnE(>,’)E/nv//5Eco^ro'  !  erase  rr 

167  ENOIP 
166 

169  C0T03S  I  CO  INCREMENT  COUNTER 

170 

171  40  CONTMUE 

172 

173  TEXn  •  'POLARIZERS:  45  VERTICAL' 

174 

175  C - 

176  C  BWEEP-4  (  45 DEC.  45 DEC  ) 

177  C - 

176 

17» 

160  ELSEIP(BWEEP.EQ.4)THEN 

161 

162  I-O 

163 

164  DO30I-L9  !  LOOP  THRU  THE  ARRAY  ELEMENTS 

165 

166  45  1-1  *  1  •  INCREMENT  THE  COUNTER 

167 

166  IPO.EQ.ITXXTIO  50  !  KEEP  UNDER  17 

169 

190  IP(ID(l).EQ.|)COTO  SO  !  |UMP  OUT  ON  A  MATCH 

191 

192  BEC  -  I  *  9  I  CALCULATE  THE  SEGMENT  NUMBER 

193 

194  CALLMTRPTIBEC.SEC)  I  CONVERT  IT  TO  A  TEX  CHARACTER 

195 

196  B(BEC.LT.16)THEN  I  B  ONLY  ONE  TEX  CHARACTER 

197  WRnEr.*)E/rSV'//SEC0:iy70’  !  ERASE  TT 

196  EISE  !  ELSE  IF  2  CHARACTERS 

199  WRlTEr,1E/7SV//5EC(lJy70'  !  ERASE  IT 

200  ENDIP 

201 

202  CO  TO  45  •  CO  tICREMENT  COUNTER 

209 

204  50  CONTV4UE 

206 

206  TEXn  •  'POLARIZERS:  45  D(t~«'  Dtgfm' 

207 

206  ENDV 

209 

210 
211 

212  V(MATR1X.EQ.1)C010 1000  I  RETURN  TO  CAUER  |06  D094E 

213 
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214 

215  C- _ _ 

216  C  THB  PART  ASSEMBLES  IHECXJMECTTCXT  TO  SHOW  THE  USEXIMEroSSIBLE 

217  C  SELECTIONS  POR  THE  CURRENT  ARRAY. 

21B  C- - 

219 

220  TEXT2- '1.  SELECT  ELEMENTS  TO  VIEW 

221  TEXTS  -  I.  SELECTION  COMPLETE- 

222 

223  C - 

224  C  THIS  PART  DRAWS  THE  TEXT  TO  THE  DIALOG  AREA  WlNtXLW. 

225  C- - 

226 

227  EEC-600  I  BEGIN  SEGMENT  AT  600 

228  CALL  INTRPT(SEC,SEC)  !  CONVERT  INTEGER  TO  TEX  CHARACIEX 

229  WRnEC.'lE/7Sr//5EC  I  BEGIN  THE  SEGMENT 

230  WRrrEr.*)E//T«m-  l  text  color  WHTIE 

231  X  -  120  •  X  POSniON  OP  THE  ORIGIN 

232  y  -  350  !  y  POSITION  OP  THE  ORIGIN 

233  CALLHiy(X,y,A)  !  CONVERT  TO  TEX  CHARACTER 

234  WRnEr,’)E/np-/M  !  SET  THE  ORIGIN 

235  WRnEC,*)E//nB7-//TEXT1  !  WROE  1ST  LINE  OP  TEXT 

236 

237  Y-Y.200  !  DECREMENT  Y  BY  100  SCREEN  UNITS 

236  CAUHIY(X,Y.A)  I  INTEGER  TO  TEX  CHARACTER 

2»  WRnEr.*)E//ir//A  l  set  the  origin 

240  WRnEr.*)E//XTBr//IEXn  !  WRITE  THE  TEXT. 

241 

242  Y-Y-100  !  DECREMENT  Y  BY  100  SCREEN  units 

243  CALLHIYOCY.A)  !  INTEGER  TO  TEX  CHARACTER 

244  WRnEr.’)E/rLP-//A  I  SET  THE  ORIGIN 

245  WRnET.TE/rLTBr/TIEXn  I  WRITE  THE  TEXT. 

246  WUnEr.TE/rSC  !  CLOSE  THE  SEGMENT 

247 
2M 

249  J  -  1  !  initialize  PLACE  COUNTER 

250 

251  C - 

252  C  THB  PART  CHECKS  TO  MAKE  SURE  THE  USER  HAS  SELECTED  A  CORRECT 

253  C  ARRAY  ELEMENT.  PLACES  THE  DATA  IN  THE  CORRECT  ARRAY  ASSOCIATED 

254  C  WITH  THE  SWEEP  NUMBERI 

255  C- - - 

256 

257  iO  READr.-(A12T,ERR-40)ANS  >  READ  THE  SELECTTON 

256 

259  P(ANS<1:1).EQ.'1'.OR.ANS(1:1>.EQ.'3TCOTD65 

260  COT040 

261 

262  C - 

263  C  HERE  THE  USER  HAS  ELECTED  TO  END  THE  ELEMENT  SELECTION. 

264  C  V  THS  KNOT  THE  4TH  SWEEP  THEN  WE  CO  SELECT  AGAVI. 

265  C  OTHERWBE  THB  ROUTWEB  COMPLETE. 

266  C- - 

267 


-254- 


Appendix  IV 


M  tf  P(ANS0:l>-EQ-‘37n^  !  END  THE  SEUCT10N 

It*  P(BWEErXQ.4)COTO  W  !  V  LAST  SWEEP  THEN  EXIT 

270  COTDIO  I  COTONEXTSWEEP 

in  ENOV 

2n 

r3  c - 

174  C  THE  MOD  FOIS  THE  COUECT  ARRAY  (  LDAT  )WnH  THE  CHOSEN 

275  C  ELEMENTS.  1- THE  IDAT*  ARRAY  PLACEMENT.  THE  LAST  ARRAY  ELEMENT 

274  C  CONTAEE  THE  NUMBER  OP  USER  ELEMENTS  SELECTED. 

277  C - 

27B 

m 

no  SEC-ANS<7:«)  !  THEE  THE  SEGMENT  SELECTED 

111 


212  CALLDCCOOE<SEC.EEC)  I  CONVERT  TT  TO  AN  INTEGER 

2R> 

2M  E(ECG.EQ.40)iTHEN 

1S5  EXIT- 1 

2M  GOTO70 

1B7  END* 

IM 

m  V(EEG.EQ.41)THEN 

2f0  lALL-  I 

1*1  G0T07D 

m  END* 

m 

IM  ■<(EEC.LT.10.0R.EEG.GT.25)GaT040  •  CHECK  POR  CORRECT  SEGMENTS 

2*5 

1*»  70  IPICK-EEC-*  I  CONVERT  THEM  TO  ELEMENT  NUMBERS 

2*7 

1*1  WUnEf.TTPICK  -MPICK 

2**  WRITEr.’ITSK:  •  ‘.EEC 

w 

JOI  c - 

302  C  THE  PART  PLACES  THE  THE  SELECTED  A/D  channel  NUMBERS  »l  THE 

303  C  CORRECT  LOAT  POE.  THE  LAST  ELEMENT  E  THE  COUNT  OP  DATA  ELEMENTS 

304  C  THE  USER  SELECTED.  AS  THE  USER  SELECTS  THE  ELEMENTS  I  ERASE  THE 

305  C  GRAPHIC  SEGMENT  ASSOCIATED  WITH  TT. 

305  C - 

307 

300  CALLB4TRPTIEEC.SEC)  !  CONVERT  SEGMENT  IVTECER  TO  TEK 


!  THIS  6  THE  'ALL  *  BUTTON 
!  SET  THE  SHOW  ALL  ELEMENTS  FLAG 


•  IP  ITS  THE'  EXIT  'BUTTON 
!  SETTHEEXmOAC-l 
!  PLACE  THE  INFO  IN  THE  ARRAY 
■  NO  ELEMENTS  ARE  TO  BE  VIEWED 


310  V(SEC.EQ.40.OR.EEC.EQ  4l)COTOta  !  EXIT. AU -DO  NOT  ERASE  THEM 

311 

312  P(BeC.LT.15)1HEN  >  W  ONLY  I  CHARACTER  THEN 

313  WRnir.’)B0SV’«SBC(l:ipnr  •  ERASE  TT. 

314  ELSE  >  OR  ELSE  a>rrE  2  characters 

315  wRnEr.*)EB^/nec<iJvnr  •  erase  rr  also. 

315  END* 

317 

310  ■>  *^WEEP.EQ.I)fIHEN  I  V  SWEEP  *1 

310 

310  »|mr.EQ.1TTHD<  I  USER  WANTED  TO  EXIT 

311  LDATKMI-O  I  PLACE  AO  M  NUMBER  OP 
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322 

CO  T0 10 

!  ELEMENTS  TO  VIEW 

323 

ENDff 

1  CO  TO  NEXT  SWEEP  MPUIS 

324 

325 

V(IAtLEQ.1)riHEN 

!  USEK  WANTS  TO  SEE  ALL  4 

334 

LDATTOO)  -  * 

!  ELEMENTS.  PLACE  THE  NUMBEIt 

327 

DO  401-1,9 

!  W  PLACE  10.  PUTTHE4 

32t 

U>ATI(I)  -  1 

1  channels  IN  OKDEIl  IN  THE 

329 

90 

COnnMUE 

1  AUtAY. 

330 

IAU-0  1 

PimALBE  THE  ALL  ELEMENTS 

331 

GOT0 10 

1  PLAC  AND  CO  TO  THE  NEXT 

332 

ENDV  ! 

SWEEP 

333 

334 

D0 100 1  -  1.4 

1  LOOP  THKU  ARRAY  ELEMENTS 

335 

P(IA(l).EQ.inCK)LDATI<n  -  1  !  PUT  A/D  CHANNEL  NUMKR  M 

336 

100 

CONTINUE 

!  THE  ARRAY 

337 

336 

U>AT1(10)  -  1 

•  PUT  CHANNEL  COUNT  IN  LAST  HOLE 

339 

I  -  1  ♦  1  !  BgCHEMENT  AMIAY  PLACE  COONTE* 

340 

PO  EQ  IO)COTO  to 

1  CHECK  TO  SEEP  ns  PULL 

341 

COTOM 

■  CO  RACK  POR  MORE  DATA 

342 

343 

344 

345 

ELSEIP<B%VEEP.EQ.2)THEN 

346 

347 

P(IEXrr.EQ  IpHEN 

!  USER  WANTED  TO  EXTT 

3tt 

IDATKIO)  -  0 

•  PLACE  A  O  IN  NUMBER  OP 

349 

CO  TO  10 

!  elements  TO  VIEW 

350 

ENDIP  ■ 

CO  TO  NEXT  SWEEP  INPUTS 

351 

352 

IP(IAIL.EQ.1)THEN 

!  USER  wants  TO  SEE  ALL  4 

353 

LDATTOO)  -  * 

!  ELEMENTS.  PLACE  THE  NUMBER 

354 

DO  1101-  1 ,4 

1  PI  PLACE  10.  PUTTME4 

»5 

LOATl(l)  -  1  1 

!  CHANNEIS  PI  ORDER  PI  THE 

356 

110 

COPTIMUE 

1  ARRAY. 

357 

IAU.-0  ! 

PmUUZE  THE  ALL  ELEMENTS 

356 

COTO10 

!  PLAC  AND  CO  TO  THE  NEXT 

399 

ENDP 

SWEEP 

360 

361 

D0 1101-  1.4 

!  LOOP  THRU  ARRAY  ELEMENTS 

363 

P|M(I).EQ.IPKK)LDATI(D 

-1  !  PUT  A®  CHANNEL  NUMBER  PI 

363 

130 

COPfTMUE 

■  THE  ARRAY 

364 

365 

LOAT200)  -  I 

366 

1-1*1 

367 

PO  EQ  lOjCOTO  10 

360 

COTOW 

399 

370 

C— 

371 

372 

EUCP(BWEEP.EQJ)THEN 

373 

374 

PaEXn'.»}.1](rHEN 

!  USER  WANTED  TO  EXrr 

373 

U>AT3O01-0 

•  PLACE  A  O  PI  NUMBER  OP 

256- 


Appendix  IV 


m 

COTO10 

1  eibientstoview 

377 

BIDV 

!  CO  TO  NEXT  sweep  Mnm 

370 

379 

V(IAU.EQ.inHEN 

!  USEX  wants  TO  SEE  ALL  9 

300 

LDAT30IQ  -  * 

1  ELEMENTS.  PLACE  THE  NUMBER 

301 

001301-1,9 

I  M  PLACE  10.  PUTTHE* 

302 

LDAT3(I)-I 

)  CHANNELS  Bl  ORDER  W  THE 

3(3 

IX  CONTMUC 

!  array. 

304 

IAU.-0 

1  einULQX  THE  ALL  ELEMENTS 

313 

GOTO  10 

1  flag  AND  CO  TO  THE  NEXT 

3M 

ENOV 

1  SWEEP 

3r 

3H 

DO  1X1-  1.9 

1  LOOP  THRU  ARRAY  elements 

30* 

V(IC(l).EQ.inCIC)LOAT30)  -  1  1  ruT  A/D  CHANNEL  NtMBEIt  BM 

3M 

IX  CON7MUE 

!  THE  ARRAY 

3*1 

3*1 

LDATSOO)  - 1 

393 

1-J41 

3*4 

■O.SQ.ia)COID  10 

3IS 

3lt 

corox 

yn 

9M  C- 

JM 


«aa  CLSEV(BWEEP.EQ.4)THEN 
401 


401 

>*0Exrr.EQ.irrHEN 

!  USER  WANTED  TO  EXIT 

403 

IDAT4(10)  -  0 

!  place  A  O  M  NUMBER  OP 

4M 

CO  TO  IK 

!  CLEMENTS  TO  VIEW 

40S 

END* 

1  CO  TO  NEXT  SWEEP  INPUTS 

4M 

407 

400 

V(IALL.EQ.1iriHEN 

!  USER  wants  TO  SEE  AU  9 

409 

LDAT400)  -  * 

!  ELEMENTS.  PLACE  THE  NUMBER 

410 

DOIKI-  1,9 

!  M  place  10,  PUTTHE9 

411 

LI>AT4<D-  1 

1  CHANNE1SR>I  ORDER  M  THE 

412 

IK 

CONTDIUE 

!  ARRAY. 

413 

IAU-0 

1  BATTALIZE  THE  ALL  ELEMENTS 

414 

COT0  3K 

!  PLAC  AND  CO  TO  THE  NEXT 

415 

DAMP 

!  SWEEP 

41* 

417 

DO  1X1-  1,9 

1  LOOP  THRU  ARRAY  ELEMENTS 

410 

V(R3<l>.EQ.mCIC)LDAT4<n  -  1  !  PUT  A/D  CH/VNNEL  NUMBER  m 

419 

IX 

CONTMUE 

1  THE  ARRAY 

430 

431 

LDATAIO)  -  1 

423 

423 

PO.EQ.1XCOTO  JK 

424 

COTOX 

43S 

EM3V 

434 

427 

C— 

430 

C 

im  PART  SORTS  BACH  ARRAY  B  ASCENDMC  ORDER  V  THE  LAST 

419 

c 

ELEMENT  B  NOT  A  ZERO. 
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430  c - — _ 

431 

431  100  I^ATIOOVCTlVmEN 

433  BIZE  -  ISATIOO) 

434  CAU  ■inn£_UP(U>ATI,EIZE> 

435  ENDV 

434 

437  V(U>AnO0).CT.0)THEN 

430  BOX  -  U>AT1(10) 

43*  CALLIUBBLEJU?(LDAT1.EIZE) 

440  ENDV 

441 

441  P(U>ATIOO>.CT.OimEN 

443  BCE  -  ICATIOO) 

444  CALL  ■uaSLEjUrODA'n.ElZE) 

445  ENIW 
444 

447  B(LDAT400).CT.O)mEN 

440  BCE  -  LDAT400) 

449  CALL  M8LE_Ur(LDAT4.B(ZE) 

450  ENDIP 

451 

451  1000  MAT1UX  -  0 

453  lETUItN 

434  end 
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AIV.22  Analog  APSD  Software  Modules:  STAGEJ>OSmON  Source  Code. 


1  SUIR(XnMESTACE_rOSmON(IUT) 

2 


• 

«  CHAIACnmO  VEl,ACCD6T.OUMMY,nLENKnO 

10 

11  CHAKACIBt  POin»10,K>im*10,LASER'1.VE5*1,AXE>1,M5C*12 

12  CHAKACTBI  MSCItO 

13  lOaCALT 


20 

21 


IMMB4SI0N  VEL(4).ACC(4),OKT(4),DUMMY(4) 


VT-M 

CAU  cEm]irr(POKT,i) 
OnEN<IUT.m£-rOltT,STATl»-'NEir) 


23 

24  S  K*MAT02(A10)) 

25  10  K)l(MAT(AaO) 

It  20  rOKMATdOT-')) 

r  30  KNlMATIOaC  1) 

20  31  rOOMATr  THE  POllOWINC  SETHNCS  WILL  DEFINE  STAGE 

29  FOSmONS  FOK  EACH  LASER-) 

X  32  FORMATOOX.'I.  rOSmON  STAGES  FOR  SAMFLE  DATA  COLLECTTONO 

31  34  FORMAT(IOX.'2.  FOSmON  STAGES  FOR  THE  SFECTRUM  ANALYSER-) 

32  3t  KRMA-rriOX,-3.  ERTT) 

33 

34 

38  40  FORMATOOX.-ENTER  LASER  NUMBER..  (1-4);  ’S) 

3t  50  FORMA-F(10k,-LASER  «'.ai5X,-A)a5  4-.I2.15X.-CONTROL1ER  (1-) 

32  to  FORMA-rnOX.-FOR  AXB  -.DJOX.'LASER  r.D) 

30  ID  FORMA-r(IOX.1.  ENTER  THE  VELOCTTY:  ’J) 

4  39  80  FORMATV/,10X.-X  ENTER  THE  ACCELERATION:  ’4) 

40  90  FORMATV/,IOX.'3.  ENTER  THE  DISTANCE  <«  OR  -  F  "4) 

41  100  FORMA-r(10X,a-  VELOCTTY:  -  -,AI0) 

42  110  FORMA-niOX.a-  ACCELERATION:  -  ',A10) 

43  120  FORMAT(IOX.a'  D6TANCE  M  STEFS:  -  '.AlO) 

44  130  FORMA-r(24X.‘ENTER  AXB  NUMBER  FOR  CORRECTTON:-) 

48  140  FORMAT(24X,-  ENTER  RETURN  TO  CONTINUER 

48  ISO  FORMATPOX.'  <A>TOAFrLY  OR<E>TOEXTr) 

47  MO  FORMA-FCRDLS) 

48  17D  FORMATtMX.’  ENTER  RETURN  FOR  NEXT  LASERS 

49  180  FORMATpaX.-  WHICH  SERIAL  FORT  6  ATTACHED  TO  THE  CONTROLLER: 

58  .8) 

51  190  FORMA-rpOX.'ENTER  AXBNUM8ERYOUWANTTOTRY: -4) 
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52  100  KlRMATdOX.fRESS  enter  WHEN  YOUK  READY  Oft  <«»>  TO  EXTT) 

53  110  PORMATaOX.1.  THE  MOTION  K  CORRECT  ■) 

54  110  PORMATOOX.'l.  CHANCE  THE  DATA  FOR  THB  AXE*) 

55  73a  K)RMAT(1(»(,*3.  EXIT) 

S*  MO  FORMATPDX.'DOES  THE  LASER  NEED  OFTKS  MOVED  IN') 

ST  ISO  K>RMAT(13X.‘ORDERTOIECAUBRATED<Y(kN>') 

SO  MO  FORMATOOX.THE  PRESENT  FORT  DEFINED  FOR  OinFUTE;-,AIO) 

9»  270  FORMATPFX.'FRESS  REIURN  IF  CORRECT) 

<0  MO  FORMATCWX.'FRESS  <  1  >  TO  CHANCEO 

01 

61  C - 

63  C  HERE  THE  USER  E  ASKED  TO  SELECT  THE  TYFE  OF  STAGE  SETTINC  FOR 

6«  C  EACH  LASER  THAT  E  TO  RE  SAVED. 

65  C  EACH  LASER  REQimES  THAT  THE  OPTICS  CHANNEL  LIGHT  TO  THE 

66  C  MOIXnATORSPORCALBRATION  ANDTOTHESAMPIEFORDATA 

67  C  COLLECTION.  THESE  SEITINCS  WILL  OFTEN  BE  DIFFERENT.  TOMAKE 

60  C  THMCS  EASY  I  am  SAVING  THE  TWO  TYPES  OF  SETTINCS  IN  different 

69  C  FOES.  SAMPLE.DAT  FOR  1X:HT  TO  THE  SAMPLE.  MOD.DAT  FOR  LIGHT 

n  C  TOTHEMOOULATORS.. 

71  C - 

71 

73 

74  190  WRJtEinn^ 

7s  wRfiEinrTji) 

76  WRTIEinjTJO) 

77  WRTIEIIUTJl) 

70  WRTTEIIUTJO) 

7*  WUnEOUTJO) 

so  WRITEdirT^ 

01  READ(IUT.‘(A)'.ERR-3aO)lASER  !  READ  TYPE  OP  STAGE  SETT1NCS 

02 

03  V<LASER.EQ.’1')FILENM  -  -SAMF 

04  ai(LASER.EQ.'3')FILENM  -  ‘SPECTRUM' 

IS  V(LASCR.EQ.‘3TCOTO  1000  !  USER  WANTS  TO  EXIT 

06 

07  300  WRfTEIRTTJO) 

II  WRnE<lirTJ0) 

19  WIITTE<IUT,140) 

90  WlinE(lirT,40)  !  ENTER  LASER  NUMBER 

91 

92  REAO(IUT,'(Ar.ERR-300)LASER  I MAXIMIM  OP  4  LASERS  NOW.. 

93 

94  IF(LASEILEQ.")COrO  1000  <  USER  WANTS  TO  EXIT 

95 

96  *(LASER.CT.CHAR(a).ANO.LASER.LT.CHAR(Sl))COTO  310 

97  COIO300 

90 

99  110  REAO(LASER.'(BN,l4r.ERR-300)a  !  LASER  MTECER  VALUE 

100 

101  RX  -  0  )  MnMUZE  DATA  TYPE  FLAGS 

102 

M3  c - 

104  C  THBCHKKSTOSEEIFTHEFIUCXBTS.  SETS  A  FLAG  THEN  OPENS  IT 

tos  c - 
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* 


V 


IM 

107 

101 

101 

110 

111 

112 

1U 

114 

115 
110 
117 
111 
111 
120 
121 
122 

123 

124 

125 

126 
127 

in 

121 

130 

131 

132 

133 

134 

135 

136 

137 
131 
131 

140 

141 

142 

143 

144 

145 

146 

147 

140 

141 

150 

151 

152 

153 

154 

155 

156 

157 

150 

151 


V(IUSED.EQO|!IHEN 

MSED-I  •  SET  FLAG  NOT  TO  comeback  HERE 

M<]UaiE(nLE-niXNM.EX6T -  T)  !  ASKICnUEXKTS 


OTENanLE  -  POaiM.ACCESS-'DntECT.fOitM-TOItMATTED', 
.RECL-120,STA'IU5  -  'UNKNOWN'.SHARED.ERR  -1000) 

READaBEC  -  l.PMT  -  '(A10>‘.ERR  -  315)PORT1 
ENOff 


C - 

C  HERE  I  WRITE  BACK  TO  THE  USER  THE  LAST  ENTRY  FOR  THE  AXS  FOR 
C  THELASER.  B>  THE  FILE  EXRTS I  READ  IT  FROM  THERE. 

C - 

315  P(I|UMF.EQ.1)COTO  370  !  DONTREAD 

HHNOT.TXXnO  370  !  DONT  READ  IF  NO  FILE 

READaKEC  -  a,FMT  -  5.ERR  -  370)VEL(I),ACC(1).DBT0), 
.OUMMYO).VEU2XACC(2),D6T(2).I>UMMY(2).VEL(3).ACC(3), 
.DBT(3),DUMMV(3) 

C  *(VEL0).EQ  ‘  •.OR.ACCO)  EQ.-  '.OR.DETO).EQ.‘  ‘  OR. 

C  .ICHAR(VEL0)).EQ.0.OR.ICHAR<ACCa))EQ.0)THEN 
C  irUMF-  I 

c  (xrro37o 

C  ENDIF 

GOTO  370 

370  K-0 

BUMF-0  I  RESET  THE  (UMF  FLAG 

DO310I-1J  I  lOOFTHRUTHEINFUTS  ANDDSFLAY 
•  THE  FlUSETnNCSIOR  THE  laser 
WRnE(R]T.60)l,0. 

WRIIEOUTJO) 

K-K«1 

WRnE(IUT,100)K.VEL(l)  •  VELCXOTY 
K-K*1 

WRnE(IUT,110)K.ACC(l)  !  ACCELERATION 
K  -  K  «  1 

WRITE(IUT,I30)K.DET(I)  I  DSTANCE  OF  TRAVEL 
WRIIETIUTJO) 

310  CONTEIUE 


r  (KUHJACK.EQ.1)COTO  510 
C - 

C  HERE  THE  USER  E  asked  IF  THE  DATA  E  CORRECT  SHOULD  THERE  IE 
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I«  C  CHAKCE5,  DOES  THE  USER  WISH  TO  APPLY  THE  DATA  TO  THE  STCPPER 
1*1  C  MOTOR  CONTROLLERS  OR  JUST  EXIT. 

1*2  C - — - — — - 

1*3 

1*4  400  WRriEdUTJO) 

1*5  WRnE(IUr,130) 

1**  WRTTE<IUT,140) 

1*7  WRITE(IUT.IS0) 

1*S  WRnKIUT,1*0) 

1*9 

170  R£AD<IUT,'(Air,ERR  -  40a)yES 

171 

173  IP(yES.EQ.-  TTHEN 

<73  !  VinKBCAUBRATION  data  THEN  RECORD 

174  IREC-n.  I  OR  ELSE  ns  fUST  THE  LASER  NUMBER 

175 
17* 

177  IF(IPIX.EQ.1)THD4  !  SAVE  THE  NEW  DATA  IF  FLAG  IS  SET  -  I 

17» 

179  WRTIECLREC  -  IRECFMT  -  5)VEL(1).ACC(1),DI5T(1), 

1B0  DUMMY0).VEL<1),ACCP).DBTP),DUMMYP),VEL(3).ACCP). 

1*1  .DBTa).DUMMYq) 

1(2 

1*3  IPIX-0  t  RESET  THE  SAVE  DATA  FLAG 

1*4  ENDIP 

1*5  COTO300  !  JUMP  TO  TOP  OP  ROUTINE 

1** 

1*7  ENDIP 

ia« 

1*9 

190  IP(YES.EQ.-A’.OR.YES.EQ.-*TCOTO  500 

191  IP(YES.EQ.T.OR.YES.EQ/tTCOTO  1000 

192 

1«  C- - - - 

194  C  here  THE  USER  HAS  SELECTED  ONE  OP  THE  LASER  TO  GIVE  NEW 

195  C  SETTWCSPOR.  I  LOOP  THRU  THE  INPUTS  THEN  SHOW  THEM  BACJC 

19*  - - 

197 

19*  IPJYES.EQ.T.OR.YES  EQ -r  .OR.YES  EQ  •STTHEN 

199 

300  READ(YES.'(BN,I4)',ERR- 1000)1 

201 

202  IPK-I  f  flacthatachacebtobemade 

203 

204 

205  WRTTEJIUTJO) 

20*  WUIEJIUrjO) 

207  WltnE(IUT.50)ILI 

20*  WWIEJIUTJO) 

209  WRTIEJIOT.TO) 

210  READdUT.-JAIOr.EHt  -  370)VElfl) 

211  WRnEJIUTJO) 

212  WUnEJRn'JO) 

213  REAO<IUT.  (A10r,E**  -  370)ACC(I) 
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214  WltnC(IUTJO) 

215  vnincauT.W) 

216  ll£AD(IUT.'(AIO^,Elt]t  -  570)DI5T(I) 

217  WRIIEOUTJO) 

218  WIUTE(IUT,20) 

219 

220  GOTO  370  !  DISPLAY  INPUTS  BACK  TO  "mE  USER 

221  ENDIF 

222 

223  GOTO  400  !  INPUT  WAS  BAD  DO  AGAIN 

224 

225  C - 

226  C  THK  PART  ALLOWS  THE  USER  TO  APn.Y  THE  input  BEFORE  IT  IS  SAVED 

227  C  TOPILE.  HERE  I  GET  THE  SERIAL  PORT  NUMBER  PROM  THE  USER 

228  C  THEN  INSTRUCT  THE  USER  TO  PRESS  ENTER  TO  HAVE  THE  DATA  SENT 

229  C  TO  THE  SPECIFIC  PORT. 

230  C - 

231 

232  500  WRITE(IUT,30) 

233 

234  IF(INUSE.EQ.0)THEN 

235  INUSE  -  1 

236  IP(PORTT.EQ.''.OR.ICHAR<PORT1(1:1)).EQ.O)THEN 

237  505  WRnE(IUT,180) 

238  REAO(IUT,'(AI0r.ERR-500)PORTT 

239  ELSE 

240  WRITE(IUT.30) 

241  WRnE<lUr,260)PORTl 

242  WRnE<1UT,270) 

243  WRnE<lUT,280) 

244  WRITEflurjO) 

245 

246  READ(1UT,'(A1)',ERR  -  400)YES 

247 

248  IFOTES.EQ.TTCOTOSOS 

249  IF(YES.NE.-  TGOTO  505 

250  ENDIF 

251 

252  WRITET-T  PORT1  -  '.PORTI 

253 

254  0FENP,P1L£-P0RT1,CARRIACEC0NTR0L  -  •NONF.STATUS-'NEWO 

255  WRnEp/(A9nE  MN  STO  •  >  WAKE  UP  CONTROLLER 

256 

257  WRnE(2,REC  -  9,PMT  -  '(A10)'.ERR  -  5IO)PORT1 

258 

259  ENDIF 

260 
261 

262  C - 

263  C  HERE  THE  AXB  NUMBER  OR  STAGES  requested  PROM  THE  USER 

264  C  AN  INPUT  OP  NOTHWG  JUST  REDISPLAYS  THE  current  SETTINCS 

265  C - 

266 

167  510  WRTTEIIUTJO) 
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2M  WimC(IUT,140) 

269  M/WmOUT.tK) 

zn 

271  ilEAD(IUT/(A1)‘,EU-5IO>AXS 

272 

273  nHAXE.EQ.'V.OR.AXE.EQ.'r.OiL 

274  .AXB.EQ.'  '.OltAXB.EQ.-STCCnO  520 

275  GOTO  510 

276 

277  520  KUMJACK  -  0 
27S 

279  C - 

200  C  HERE  THE  STEPPER  MOTORS  ARE  MOVED  PROM  THEIR  HOME  POSmON  THE 
2*1  C  VELOCTTY,  ACCELERATION  AND  DISTANCE  SPECIFIED  BY  THE  ABOVE  INPUT. 

282  C - 

283 

284  READ(AXR,-(BN,M)')IX  !  CONVERT  CHARACTER  TO  INTEGER 

285 

286  C - 

287 

288  IP(IX.EQ.0)COTO  370  !  IF  THE  USER  PRESSED  RETURN  W/OUT 

289  !  AN  INPUT  I  CO  REDISPLAY  THE 

290  !  CURRENT  SETTINGS 

291  C - 

292  C  HERE  I  Make  SURE  THAT  THERE  IS  DATA  PRIOR  TO  WRrnNC  TO  THE  PORT 

293  C  IP  NOTI  notify  THE  USER  AND  TRY  AND  CO  GET  SOME... 

294  C - 

295 

296  »(VEL<IX)  EQ.'  .OR.DIST(IX).EQ.-  TTHEN 

297  WRITEaUT,*)’  SORRY  THERE  IS  NO  DATA  DEFINED  FOR  THIS  AXIS.  .' 

298  GOTO  370 

299  ENDIP 

300 
XI 

302  WRnE0/(A5nAXB/75T1  ' 

303  WRnEC.TTURN  ON  THE  MOTOR  .AXIV/^TI  • 

304 

305  C - 

306  C  THB  E  A  DUMMY  THAT  LETS  THE  USER  GET  HARDWARE  READY  PRIOR  TO 

307  C  MOVING  THE  ACTUAL  STAGES 

308  C - 

309 

310  4K  PORMAT(At)> 

311  451  PORMAT(At2) 

312  452  PORMAT(A13) 

313  453  PORMAT(A14) 

314  4S4  PORMAT(A15) 

315  455  PORMAT(A16) 

316  456  P0RMAT(A17) 

317  457  PORMAT(A18) 

318  4X  PORMAT(A19) 

319  439  PORMAT(A20) 

3X  4M  PORMAT(A31) 

321  461  PORMAT(A23) 


* 
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322  462  POitMAT(A23) 

323 

324 

325 

326  WltnE(IUTJO) 

327  WIUTC(lin^JOO) 

328 

329  READ(IUT,'(AinYE5 

330 

331  L-0 

332 

333  B'CYES.EQ.-  7IHEN 

334 

335  M5C  -  AXE//V//VEL(IX) 

336 

337  OO560I-U 

338 

339  530  005401-1,12 

340  IP(M5C<I:D.EQ.'  .OR  MSCQ:!)  EQ  't-lCOTO  540 

341  L  -  L  «  I 

342  MSC1(l:L)  -  MSCO:!) 

343  540  CONTINUE 

344 

345  I-Itt 

346  MSCI(I;L)  -  '  ‘ 

347  IP(I.EQ.t)MSC  -  AXB/7AV/ACC(IX) 

348  ll>(I.EQ.2)MSC  -  AXISZ/Ty/ZOBTOX) 

349 

350  560  CONTINUE 

351 

352  L  -  L  4  I 

353  MSCIOjL  4  1)  -  -C  ' 

354  L-L41 

355 

356  W1inEC.*r  MSC1  -  '.MSCIO:!.).’  I  -  M 

357 

358 

359  l-L-10 

360  WWIEf  ,T  I  -  M 

361  PAUSE 

362  COTO(570,580J90,600,6l0,620AXI.640.6S0.660.670,680.690)| 

363 

364 

365  570  WltnE(3,4S0)MSCt0:L) 

366  COTO700 

367  580  'yi(nE(3.451)MSCI0:12 

368  COTDTOO 

369  590  Wlint<3,452)M5C10:L) 

370  COTO700 

371  600  WltnEp.453)MSC10:L) 

372  COTOTOO 

373  610  W«nE(3,434)iifiC10-A2 

374  COTDTOO 

375  620  WlinE0.455)MSC10:Ll 
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376 

GOTO  700 

377 

630 

WUrE(},4S«)MSC10:L) 

378 

GOTO  700 

379 

640 

WltnCp.457)MSC10:U 

380 

GOTO  700 

381 

650 

WltITE(3,45a)MSG1 0 

383 

GOTO  TOO 

383 

660 

WltrrEO,4S«)MSGt(1:L) 

384 

GOTO  700 

i 

385 

670 

WlinEO,460)MSG10:L) 

386 

GOTO  700 

387 

680 

WlinEp,461)MSG1  (1  :U 

388 

GOTO  700 

389 

690 

Wlin^.462)MSG1 0  :L) 

390 

391 

ENCHP 

392 

393 

C— 

394 

c 

HEKE  TOE  USER  CAN  CHECK  TO  SEE  IF  TOE  MOVEMENT  WAS  CORRECT. 

395 

c 

IF  NOT  THE  DATA  CAN  OE  CHANCED. 

396 

c— 

397 

398 

700 

WRnEourjo) 

399 

WRnE(IUT,J10)  1  STAGE  MOVEMENT  CORRECT 

400 

WRnE<IUT,lJ0)  1  CHANCE  THE  motion 

401 

wunEduT.zao)  i  exit 

403 

WunElIUTJO) 

403 

404 

READ(IUT,(A1)-,ERR-700)YES 

405 

406 

c— 

407 

c 

HERE  1  SEND  THE  STAGE  BACK  TO  ITS  HOME  POSITION  <  H  >  MEANS 

408 

c 

REVERSE  DIRECTION  AND  <  C  >  TEUS  TT  TO  CO  THE  SAME  DISTANCE 

409 

c 

ANOVEUXTOT. 

410 

c — 

411 

412 

WRTrEO,  (A^jTH  c  ■ 

413 

WRITE<3,(AS)-)AXB/rST0 ' 

414 

415 

c — 

416 

417 

»(YES.EQ  IITHEN  !  THE  DATA  B  CORRECT  WRITE  IT  TO  FILE 

¥ 

418 

419 

KEC  -  a  !  OR  EISE  IIS  lUSTTOE  LASER  NUMBER 

430 

U1 

WUIEaREC  -  ■EC.FMT  -  5)VEin),ACC(1).DBT(l). 

423 

.IXJMMY(l),m(i),ACC(2).OBT(J),DUMMY{J).VEL<3),ACCO). 

423 

.DRTP).DUMMY<3) 

424 

425 

KUM_BACK-I 

436 

GOTO  370  !  GOTO  GET  MORE  DATA  FOR  THESE  AKB 

427 

438 

C - 

439 

C 

HERE  THE  USER  DOCS  NOT  LIKE  THE  STAGE  MOVEMENT  AND  WOULD  UKE  TO 
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430  C  MAKEAN  ADJUSTMENT.  I  SEND  THE  USES  BACK  UP  IN  THE  ROUTINE  WHERE 

431  C  THE  CORRECTIONS  ARE  MADE. 

432  C - 

433 

434  E1SEIP(YES.EQ.-37IHEN 

435 

436  I-R  I  PLACE  THE  AXE  NUMBER  TO  CORRECTM  I 

437 

436  COTO370  I  GOTO  BACK  THRU  THE  ROUTINE. 

439 

440  C - 

441  C  HERE  THE  USER  WANTS  TO  EXIT. 

442  C - 

443 

444  E1SEIP(YES.EQ.'30THEN 

445  COTD300  !  CO  TO  THE  EXTT  CLOSE  THE  FILES... 

446 

447  ELSE 

44B 

469  COTOTOO  !  BAD  INPUT  CO  BACK  TO  THE  READ... 

450 

451  ENDIP 

452 

453  1000  WRnE(3,'(A2)TP '  I  TAKE  CONTROLLER  OPP  LINE. 

454  CL05E(3) 

455  CLOSE<2) 

456 

457  RETURN 
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AIV.23  Analog  APSD  Software  Modules:  TEK3  Source  Code. 


1  SUaKOU11NETCK3<TYFE,SAMP,ACENT,CONC,lAMDA) 

2 


THB  ROUHNE  WILL  TAKE  REAL  TIME  MULLER  MATRIX  DATA  AND  PRESENT  IT 
M  GRAPHIC  FORM  ON  A  TEKTRONIX  COMPUTER. 


(  CHARACTER  E,PORT*5,A*S,Al*S,SECCNT»3,TEXT»30,TKI*4.COLn.LE7»t 

9  character  SAMP^.ACENT*20.CONC*1S,LAMDA*I5,TIC*3JMUM*J:.CP*2 

10  CHARACTER  TEXIT«,SCNTn,ANS'12,SEC^,POINr«,KEY,FILENM*20 

4 

11 

13  REALRARM.RB40,R1NCR.RDAT 

13 

14  INTEGER  X,Y,MATR1X,TYPE 

15 

M  DIMENSION  TK:(l*).TXn<21).NUM(14),COL(14),CP(l4),TEXTlp) 

17  DIMENSION  LDATT{1«),LDAT2(14).1X>AT3(IS).L0AT4<1) 

IS 

19 

30 

31  OATATIC710','30’,-30'/40'.'50',‘M',’70’.W,'90’/100’/110’. 

33  .n30','130',T40',T50'/1«','170-.-100'/ 

33 

34  DATA  Tia  .<r;*  MV*  T/*  .V,  *  .S'/*  .4', 

35  .'*  4'/*  .r/*  .1'/  0.0', •-  I"-  .3'/-  4'/-  .4'/-  .5', 

36 

37 

3*  DATA  NUM711'/13'/13'/14','31'/33'/33'/34', 

39  .■31','3r,'33','34'/4r/4r/43'/44'/ 

30  DATA  COL  n','1/4'.T,'r/1','3-/1'/4  /4  /l  /r/1', 

31  .T/r.'T/ 

33 

33  DATA  CP ^.—/••.E'.'R'/fc'.'Q'.T.T.'”/ ♦■///-, 

34  .'.'.'r.ri 

35 

3*  DATA  TEXT!  7  EXIT,'  ALL'/ 

37 

30 

39  E  -  CHAR<27)  * 

40  IPIUCNT'O 

41  »u:  -0 

43  nxx»i-o 

43  rrocv-o  1 

44 

45  C 

4*  C 

47  C 

41  C 

49  C 

50  C 

51  C 


—  TEST  DATA  — 
SAMP  -  XaiEEN  PAMT 
AGENT-  'GT 
CONC  -  'TnSMg/lnr 
LAMDA-  '3194  «n' 
WRITEr,*)Er«V 


3  C- 

4  C 

5  C 

6  C- 


-268- 


Appendix  IV 


* 


« 


S2  C - - - - - 

» 

54  WinEr.*)E//XVO' 

55  vnmrMfinr 

54 

57  1  KMMAT  (A12) 

55 
59 

40 

41 

42 

43  - - 

44  C  IHEPAHT  MAWS  THE  GRAPH  BOX.  COLOR  RED. 

45  C - 

44 

47  BEG  - 1 

45 

44  V(TYPE.EQ.1)GOTO  5  I  GRAPH  ALREADY  EXBTC 

70 

71  CALL  l9nRPT(SEC,SEGCNT) 

72 

73  WRnEf,*)E//SF//SEGOn’ 

74  V»RITEP,*)E//TiilL2' 

75  X  -  145 

74  Y  -  3100 

77  CAUHIY{X,Y,A) 

75  wtmr.'r^nrtiA 

n  x-x»35oo 

50  CAU.HIY(X.Y,A) 

51  wRnEr,*)E/ncv/A 

52  Y-Y-24a0 

53  CALLHIY(X.Y,A) 

54  WRnET.TB/XC'OA 

55  X-X-3500 

54  CAU.HIY(X.Y,A) 

57  WRIIEr.lE/rLG'OA 

55  Y- Y«2400 

55  CAU  HIY(X,Y.A) 

50  Mmntr.'if/nciiA 

51  WRnEr.')E/7SC 

52 

53  C - - - - 

54  C  THB  DRAWS  THE  TEXT  n  THE  BOX  SAMPLE. AGENT,  CONC.  WAVELENGTH 

55  C  START.END  AND  MCREMENT  POMTS 

54  C  ms  5KT  ONE  WtnES  THE  SAMPLE 

57  - - 

55 

55  5  BSC-EEG«I 

100 

Un  CALL  BnTtPr|BEC.$ECCNT) 

MB  WRITEr.’)E«rSK'«5BCCNT 

MB  WRnEr.*)Em’MCCCNT 

104 

NB  WRnEr.nBrMTr 
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106  X  -  600 

107  Y-  2650 

too  CAU.Hiy(X,Y,A) 

100  w«nEr.*)E//Tr//A 

no  TOfT  -  'SAkmE;  7/5AMP 

111  WRITEr.*)&/XTA.-'//reXT 

in 

113  C - 


114  C 

nos  WVnS  THE  AGENT  TYFE 

1 19 

1U 

117 

X-  2300 

1l« 

CAU.  HIY(X,Y,A) 

119 

WlinEf,TE//V//A 

lao 

TEXT  -  •AGENT:  '//ACENT 

121 

VwnEr,*)E//XTA.'//IEXT 

122 

123  C- 


124 

C 

r*— 

THB  WRITE  THE  AGENT  CONCENTRATION 

1^9 

12* 

127 

X  -  600 

129 

Y-7S0 

129 

CAU  HIY(X.Y,A) 

120 

WRrrEr.T&nr/yA 

121 

TEXT  -  CONC  -//CONC 

122 

WRITEr,*)B/TTA.--/7rEXT 

123 

124 

c*. 

125 

c 

THB  WRITES  THE  LASER  WAVELENGTH 

12* 

C— 

127 

120 

X  -  2300 

129 

Y-  7S0 

140 

CAU  HIY(X,Y,A) 

141 

WRIIEr.*)E//V»A 

142 

TEXT  -  •wavelength.  •//LAMDA 

142 

WRTTEr.TBrLTB^/TIEXT 

144 

wnmr.’je/nc 

145 

14* 

147 

IP(TYTE-EQ.l)COTO  1010 

140 

1«9 

f— 

1» 

c 

THE  WRITES  THE  BAR  CRAm  M  THE  CENTER 

151 

C— 

1S2 

153 

1M 

EEC  *1000 

159 

19* 

CAU  MT1IPr(SGC.SeCCNT) 

157 

WRITEr.’yE«rSr«SECCNT 

191 

WRfTBr,*)B<rSrMeCCNT 

199 
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1<0 

WRnEr,*)E//T«ILl$' 

1«1 

X-Z4$ 

1«2 

Y-  l«0 

1«3 

1M 

CALLHiy(X,Y,A) 

165 

A1  -  A 

1M 

WRnEf,*)E//TJ>'//A 

1^7 

X-3M5 

1M 

CAU  HIY(X,Y.A) 

1M 

WRnEf,*)B/TjC7/A 

170 

171 

C- 

172 

173 

c 

NOW  THE  TICS  ARE, 

174 

c- 

175 

17* 

X-245 

177 

Y- Y-25 

ITS 

CALLHry(X,Y.A) 

170 

WRnEc.*)E//xr//A 

ISO 

Y-Y»30 

1t1 

CALL  HIY(X,Y.A) 

1«3 

WRITEr.*)E//TjC'//A 

1C3 

1M 

X  -  x-$ 

Its 

Y- Y-» 

It* 

CALL  HIY{X.Y,A) 

ir 

wRnEr.‘)E/nr//A 

m 

WRIIEr.'TE//TklCA45- 

m 

WRnEr.’)E//T.T«' 

100 

101 

X- 145 

102 

Y- Y»77 

103 

104 

c— 

105 

m 

DO  40 1-1,11 

107 

m 

DO  10  R-1.0 

100 

200 

X-X«10 

201 

Y  -  Y-15 

202 

CALL  HIY(X,Y,A) 

203 

WRnEr.TE//TP’«A 

204 

Y- Y*15 

205 

CALL  HTY(X.Y,A) 

200 

WWn6r,1E«TjC7/A 

!  WE  PmST  TIC  JO  PIXELS 


!  CHANCE  SIZE  OP  TEXT 
!  PLACE  0  UNDER  FIRST  IK 


10  CONTWUE 


MO  C - - - - 

Ml  C  WB  PART  PLAa  THE  LARGER  nC  MARKS  AND  LAKLS  THEM 
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114  X  -  X  4  10 

115  Y-Y-37 

lU  CAU  HIY(X,Y,A) 

w  wwrec.TBnF’//A 

lit  Y  -  Y  ♦  so 

11*  CAU.HIY(X,Y,A) 

no  wimf.»ig/ncuA  ■  ihetk  marks  at  io  dec  intcsvals 

HI 

in  x-x-5 

m  Y-Y-*0 

2M  CAUHrY<X.Y.A) 

115  vnmc.'fanriiA 

nt  WRiTEc,*)E/n.Ty/nic(i) 

m  Y-Y477 

nt  X-X45 

119 

no  40  CONTINUE 

ni  WRntr.TE/rsc 

131 

133  C- - 

134  C  THB  rLACES  THE  VERTICAL  IKS  AND  TEXT  Of  THE  GRAPH 

ns  C- - - - 

nt 

137  EEC-EEC4I 

nt  X-  ISO 

n*  Y- MO 

140 

141  CAU  INTRPT(BEC.SECCNT) 

141 

143  WRrrEr.’)E//^//SECCNT 

144 

MS  DO  to  I -1,11 

Mt 

M7  WRrrEr,>)E//TMLr 

Mt  CAUHIY(X,Y,A) 

M*  w«nEf,iE/nr//A 

no  wunEf.TE/riTtvmcKD 

ni 

SI  WRnEr.*)E/rML1S' 

S3  X  -  X  4t5 

St  Y  -  Y  4  10 

SS  CAUHIY(X.Y.A) 

St  1«nEr,1E//VtfA 

S7 

St  X-X4S0 

S*  CAUHIY(X.Y,A) 

M  WRnEr.lBrLC'/IA 

St 

SI  X-X-SO 

S3  Y- Y-10 


SS  C' - - - - - - — . 

St  C  YOU  DONT  NEED  nc  MARKS  AFTER  THE  LAST  NUMSER 

S7  C— - — - - 
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at 

2t*  ■■(I.EQJIXXnOM 

Z70 

in  c - 

m  C  TOE  MAWS  9  nCMAUCSM  BETWEEN  THE  LASC  ONES 

173  C - - 

174 

275  DO50I-1.9 

m 

277  CAU.Hly(X,Y,A) 

27i  vnmc.’)fjnruA 

279 

lao  x-xtis 

2B1  CAU.Hiy(X.y.A) 

212  WltnE(>.*)E/rLC'//A 

2B3  Y  -  Y  - 10 

2B4  X-X-2S 

IBS  SO  CONTINUE 
21*  Y  -  Y  - 10 

IB7  X-X-«5 


2M  to  CONTINUE 

290 

291  WtITE<*.*)E/rSC 

292 

293  - - - 

294  c  AT  THE  ro»rr  WE  MAKE  1*  BOXES  OF  Dd’I'EllENT  COLORS  THAT  REmSENT 

295  C  THE  MULUR  MATRIX  TWO  OF  THE  BOXES  WBX  BE  THE  SAME  COLOR  WHITE 
29*  C  BECAUSE  BLACK  E  COLOR  HAND  THAT  E  THE  UMTT  OF  A  4111.  BUT 

297  C  SmCE  THESE  ARE  LINES  I  WILL  |UST  chance  THE  STYLE  OF  UNE  It. 

29B  C 

299  C  THE  MATRIX  ELEMENTS  ARE  DEFINED  AS  SEGMENT  NUMBERS  10  •  25 

300  C- 

301 

302  *5 
301 

304 

305 
30* 

307 
30B 

309 

310 

311 

312 

313 

314 

315 
31* 

317  C- 

31B  C  THE  SETS  THE  BU)CK  COLOR 

3»  C - - 

3» 

321  *|I.BQ.4.ANO.M%.4)WRnEr.’)E/7MVl'  •  DASHED  LKE  ON  LAST  BOX 


L-0 

K-0 

X-3000 

Y-tOO 

EEC-* 

DO  10 1  -  M  I  ROW  LOOT 

D070|-1,4  'COLUMN  loop 

L  -  L  ♦  1  ’  COLOR  INDEX  COUNTER 

EEC  -  EEC  *1  !  SEGMENT  counter 

CALL  B4TRFT(BEC.SECCNT)  !  CONVERT  B4TECER  TO  TEK 

WRITEr.TK/TSroSECOIT  !  BEGIN  THE  SEGMENT 
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322 

323  »(CP(L)  EQ  'QTCP(I-)  -  CHAR<39)  !  DEPINE  THE  COLOB 

324 


325 

326 

327 

c- 

wRnEc,’)E/rMr//cp<ii 

!  VYRHE  THE  COLOR  TO  TERM 

328 

329 

CAU.  HIY(X,Y.A) 

!  CONVERT  ORIGIN  VECTOR 

330 

331 

wiinEf,’)E//xr//A//'v 

!  AND  WRnErrTOTERMMAL 

332 

333 

334 

X  -  X  ♦  150 

!  INCREMENTTHEXBY15a 

335 

CAU.HIY(X,Y,A) 

•  CONVERT  rr  TO  TEKCHARA 

336 

wiaTEr,*)E//Tx:v/A 

1  DRAW  PROM  LAST  VECTOR 

337 

338 

Y  -  Y  - 100 

!  DECREMENTTHE  Y  BY  too 

339 

CALL  HIY(X,Y,A) 

!  CONVERT  TO  TEX  character 

340 

WIUTEf,*)E//TjC'//A 

!  DRAW  FROM  LAST  VECTOR 

341 

342 

X  -  X  - 130 

!  DECREMENT  X  BY  ISO 

343 

CALL  HIY(X,Y,A) 

!  CONVERT  TO  TEK  character 

344 

W1UTEf,*)E//TjCV/A 

!  DRAW  FROM  LAST  VECTOR 

345 

WUnEf.TB/Tr 

!  PIU  THE  PANEL 

346 

347 

c- 

348 

c 

THE  PUTS  THE  TEXT  number  IN  THE  BOX 

349 

c- 

330 

351 

K>K«1 

!  ELEMENT  COUNTER  USED  FOR 

352 

* 

PLACINC  THE  TEXT  IP 

353 

c 

IF<K.LT.I0)THEN 

!  THE  TEXT  IS  1  CHARACTER 

354 

c 

X-X  +  40 

f  THEN  X  E  INCREMENTED  BY 

355 

c 

Y- Y»25 

!  40  AND  Y  BY  25.  IP  THE 

356 

c 

ELSE 

•  TEXT  5  2  CHARACTERS 

357 

X-X*30 

!  X  E  INCREMENTED  BY  30 

338 

Y-Yt25 

!  SO  THAT  TTE  CENTERED. 

359 

c 

ENIMP 

360 

361 

WtrrEr.*)E/7MCB4C4:' 

!  THEE  THE  TEXT  SIZE 

362 

363 

CALLHIY(X.Y,A) 

!  CONVERT  X,Y  TO  TEKCHARA 

364 

WRnEr.*)E/7LP'//A 

!  SET  THE  ORIGIN 

365 

WBnE<*.*)E//Tiirr«couK) 

!  SET  THE  BOX  COLOR 

366 

WlITEp,’)E//XTr//NUM(iq 

!  WRITE  THE  TEXT 

367 

368 

wiriEf.'iBrsc 

!  CLOSE  THE  SEGMENT 

369 

370 

c 

P(K.LT.10)THEN 

1  R4CREMENT  X  AND  Y  FOR 

371 

c 

X  -  X  «  140 

'  THE  NEXT  BOX  R9  THE 

372 

c 

Y-Y*75 

!  ROW. 

373 

c 

ELSE 

374 

Y-Yt75 

375 

X  -  X  ♦  158 
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376 

c 

ENDIP 

377 

373 

37* 

70 

CONnNUE 

!  END  COLUMN  LOOP 

3*0 

3t1 

X  -  3000 

!  GOTOSTARTPOSrnON 

362 

Y  -  Y  -  ISO 

1  FORTHENEXTROW 

363 

364 

(0 

CONTINUE 

!  END  ROW  LOOP 

365 

366 

367 

c 

HEUEI  AM  PROVUMNC  TWO  BUTTONS  POS  THE  USER.  THE  PIRST  K 'EXIT* 

386 

c 

AND  THE  OTHER  B  *  ALL  ' 

.  WHICH  IP  SELECTED  WILL  INDICATE  TO  THE 

36* 

c 

USER  THAT  ALL  MCOMINC  VECTOR  INPORMATTON  B  TO  BE  I3BPLAYED. 

390 

c 

THE  MEANS  THAT  IN  EACH  SWEEP  OF  THE  SAMPLE  STAGE  9  ELEMENTS  WILL 

391 

c 

BE  SIMULTANEOUSLY  DRAWN  TO  THE  BAR  GRAPH  WHICH  WILL  DIRECTLY 

393 

c 

REPRESENT  9  MATRIX  ELEMENTS  PROVTDINC  DATA  POR  THAT  PARTICULAR 

393 

c 

POLARIZINC  POSITION. 

394 

c 

395 

c 

THESE  SEGMENTS  WTLL  BE  40  AND  41  RESPECTTVELY 

396 

397 

398 

EEG-39 

399 

X-  3000 

•  X  ORIGIN  OP  EXIT  BOX 

400 

Y-ASO  ! 

Y  ORIGIN  OP  EXIT  BOX 

401 

K-0 

402 

WRfTEr.*)E//TkfV0' 

!  SOLID  LINES 

4(D 

404 

DO  100 1  •  1.3 

405 

406 

EEG-EEC>I 

!  INCREMENT  SEGMENT  CNTR 

407 

CALL  WTRPT(I5EC.SECCNT) 

!  CONVERT  INTEGER  TO  TEK 

408 

409 

WnntC.TS/CSO'/BECCNT 

!  BEGIN  THE  segment 

410 

411 

412 

c 

THE  S!TS  THE  BLOCK  COLOR 

413 

414 

415 

P0.EQJ)THEN 

!  IP- AU'BOXTHEN 

416 

wurrEr.TE/nupr 

t  COLOR  IT  BLUE 

417 

ELSE  ! 

OR  ELSE  IP  ns  THE 

416 

WRnEr,TE//T4P" 

>  •  EXIT  '  BOX  THEN  COLOR 

419 

ENDIP 

•  IT  RED 

430 

421 

432 

CALLHIY(X,Y,A) 

'■  CONVERT  VECTOR  TO  TEK 

423 

wRnEr.’)E/rLP’//A//’r 

•  SET  THE  ORIGIN 

424 

425 

x-x«4ao 

>  BICREMENT  THE  X  BY  400 

426 

CALL  HIY(X,Y,A) 

!  CONVERT  TO  TEK  CHARACTER 

437 

WRirer.1BrLC-»A 

■  DRAW  PROM  last  VECTOR 

436 

429 

Y  -  Y  -  TOO 

•  DECREMENT  THEY  BY  TOO 
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430 

CALL  Hnf{X,Y,  A) 

*  CONVERT  TO  TEK  character 

431 

wwtec.’)E//tx:'//a 

!  draw  FROM  LAST  VECTOR 

432 

433 

X-X-400 

!  DECREMENT  X  BY  400 

434 

CAU  H1Y(X,Y,A) 

!  CONVERT  TO  TEK  CHARACTER 

435 

vnme.’^/Ejnc'iiA 

!  DRAW  FROM  LAST  VECTOR 

436 

w«rrec.’)E//T^ 

!  PIU  THE  BOX  WriH  COLOR 

437 

438 

439 

C 

TOB  PITTS  THE  TDCT  NUMBER  IN  THE  BOX 

440 

441 

442 

X  -  X  +50 

!  X.Y  ARE  SET  TO  PLACE 

443 

Y-Y+23  ! 

!  THE  TEXT  ORIGIN 

444 

K  -  K  ♦  1  ! 

ARRAY  COUNTER 

445 

446 

WRrrcr,*)E//H4CB4C4:' 

!  THIS  IS  TEXT  SIZE 

447 

448 

CAU.  HTY(X,Y,A) 

•  ORIGIN  INTEGER  TO  TEK 

449 

wiirrec/)E/nF//A 

*  SET  THE  ORIGIN 

450 

wRrrec,»)E//Twfn' 

•  TEXT  COLOR  WHITE 

451 

WRrrec/)E//T*T6'//  TEXn(IC) 

!  WRITE  THE  TEXT 

452 

453 

wRrrcr/)£/rsc 

?  CLOSE  THE  SEGMENT 

454 

455 

X-X+400 

!  SET  UP  POR  NEXT  BOX 

456 

Y  -  Y  ♦  75 

457 

100 

CONTINUE 

'  UX)P  FOR  NEXT  BOX 

458 

499 

C— 

460 

c 

THB  PART  ACTIVATES  A  SUBROUTINE  TO  PLACE  A  GIN  DEVICE  POR  THE 

461 

c 

MOUSE. 

462 

463 

464 

X  -  2350 

465 

Y-600 

466 

IPLAC  -  I 

467 

468 

CALL  GIN<X.Y.IPLAC,IMODE,rTYPE  IGIN.IPORT) 

469 

470 

C— 

471 

c 

THB  DRAWS  A  BLUE  PANEL  IN  THE  LOWER  LEFT  PART  OF  THE  SCREEN 

472 

c 

wnH  A  RED  BORDER.  THB  WIU  BE  USED  AS  THE  BACKGROUND  POR  THE 

473 

c 

DIALOC  AREA  WHICH  WILL  SIT  ON  TOP  OP  THB  PANEL. 

474 

C— 

475 

476 

477 

EEC  1010 

478 

CALL  BrrRPT(BEC,SECOn> 

479 

WRnET.TET/W/BEGCNT 

480 

WRrrer.TE/PMPB' 

481 

WRIIEr,’)E/PML2’ 

482 

X-0 

483 

Y  -0 
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4M  CAU.HIY(X,Y,A) 

05  ynmc'iEtnriiAjrv 

416  x-o 

MP  Y-500 

4M  CAU.HTY(X,Y,A) 

«•»  wMrep.'jE/njCv/A 

«W  X- 1950 

«91  Y-500 

492  CAU.HIY(X,Y,A) 

493  Wlirrep,*)E//XC'//A 

494  X-  1950 

495  Y-0 

496  CAU.HIY(X,Y.A) 

497  WMTCC.TE'/TCV/A 

498  wiirre(*.*)B7«r 

499 

500  C - 

501  C  IHE  PART  ESTABLISHES  THE  DIALOG  AREA  TO  BE  40  CHARACTERS  IN 

502  C  LENGTH,  5  LINES  WIDE,  WnH  ORIGIN  IN  THE  LOWER  LEFT 

503  C - 

504 

505  112  WRfTEC.*)E//T.W 

506  WRnEr,*)E//TXOIY 

507  WRnEP,*)E/m3' 

508 

509  115  WRnE<»,*)E//XZ- 

510  WRnEf,*)E//TjCB:- 

511  WRnEf,*)E//Ul44' 

512  WUnET.TE/rLVI' 

513 

514  INU  -  1 

515  CALi.SEE.£L£(I5WEEP.MATRIX,INU) 

516 

517  1000  WRITEC.*)E/n.W 

518  WRnEC,T&/TDr 

519  WUnEC-TEI/U" 

520  WUnEC.TE/^VI- 

521 

522  1010  RETURN 

523 

524  END 
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AIV.24  Analog  APSD  Software  Modules:  TEK_JNPUTS  Source  Code. 


1  subroutine  TEICJNPUT5(N05AMP,SAMP.AGENT.CONCSTAItT,STOP. 

I  WCNAME.DATC.TlME.IEXn) 

3 

i  C - 

C  THE  MOD  6  USED  FOR  ENTERINC  DATA  IP  THE  USER  WANTS  TEKTRONIX 
C  GRAPHICS.  IT  ALLOWS  THE  USER  TO  ENTER  ALL  SAMPLE  AND  LASER  DATA 
C  FOR  THE  MULLER  MATRIX  EXPERIMENT. 

.  C - 

» 

10 

II  CHARACTER  TnLE*«>IAME^,SAMI“20,AGENT*J0,CONC*15 

12  CHARACTER  SAMPl£.CORRECr2 

13  CHARACTER  DATEN,T1ME^,TEXT»«0.E*1,A*5,SEC*3 

14  character  SAME‘1,START>«.STOP'6.INC*6,POS*6 

15 

1«  BJTECER  CHANCE,X,Y,X1,Y1,Y2,Y3 

17 

IS  C - 

19 

30  DIMENSION  SAMPOO),ACENT(10).CONC(IO) 

21  DIMENSION  START00).STOP(10),INC(10),POS(10) 

22 

23  1  PORMATf1V//////T16,A.//) 

24  2  PORMAT(A20) 

25  3  PORMAT(A4) 

It  4  PORMATrOO 

27  5  PORMAT(A2) 

2t  6  FORMAT  (A) 

29  7  FORMAT(I3) 

30  8  FORMAT  (A10) 

31 

32 

33  E  -  CHAR(27) 

34  chance  -  0 

35  ETART  -  1 

36  lEXir  -  0  !  USER  WANTS  TO  QUIT  ...RETURN 

37 

3t  C - - - 

39  C  THE  PART  places  A  GREEN  PANEL  SECMET  8000  NO  THE  ENTIRE  SCREEN 

40  C  FOR  A  BACKGROUND. 

41  C - 

42 

43  WRnEC,*)E/P%l(r  !  PLACE  IN  TEK  MODE 

44 

45  EEC-SOOO 

46  CALLMTRPTdSEC.SEG) 

47  WRnTr.’)E/rSE'//SEC  !  BEGIN  THE  PANEL  8000 

48  <  panel  color  green 

49  X  -  1 

50  Y-  1 

51  CAILHIY<X,Y,A) 
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S2 

vnmc.’ianr’UA 

!  SET  PANU  ORIGIN 

53 

54 

X-4095 

55 

CAU  HIY(X.Y,A) 

56 

1WrEr.’)B/XC7/A 

!  DRAW  BOTTOM  OF  PANU 

57 

c 

Y-3150 

51 

Y-3J76 

59 

CAU,HIY(X.Y,A) 

60 

WMIEr.’)B/XC7/A 

!  DRAW  LEFT  SIDE  OF  PANU 

61 

X-X-40M 

62 

CAU.HIY(X,Y,A) 

63 

WI«IT£r.*)E//XC7/A 

!  DRAWTOPOFPANU 

64 

WMItr.TE/TSC 

!  CLOSE  AND  PIU  PANU 

65 

66 

C- 

67 

c 

nns  B  THE  n>ST  UNE  THAT  B  REQUIKED  SY  THE  USBt. 

60 

c 

NAME,  DATE.  TIME  AND  NUMBER  OF  SAMPLES. 

C- 

70 

71 

72 

CALL  TIME4(DATE.‘rME) 

!  SYSTEM  TIME  AND  DATE 

73 

TEXT  -  '1.  NAME-' 

74 

BEC-t 

75 

CAU  INT1tFT(BEC.SEC) 

76 

77 

WRnEf,TE/rSE//SEC 

•  BEGIN  THE  SEGMENT 

70 

wtnE(*,*)Bntirr4- 

!  LINE  COLOR  WHDE 

79 

X-  100 

00 

Y-3100 

01 

CAUHIY(X,Y,A) 

02 

WRITEr.*)BaP’/M 

!  SET  TEXT  ORIGIN 

03 

WRnEr,’)E//XTy//DATE 

!  WRITE  THE  DATE 

•4 

X-  1000 

05 

CAUHnr<x,Y.A) 

06 

vnirtr.'H^nriiA 

!  SET  TEXT  ORIGIN 

07 

WWTEf.TE/riTT/mME 

1  WRnETHETTME 

00 

09 

wmtr.if/rmr 

1  LINE  COLOR  RED 

90 

X-3000 

91 

CAUHrr{X.Y,A) 

92 

wRnEC.TE/np’tfA 

!  SET  TEXT  ORIGIN 

93 

WlUTEf,*)E/a.Tr/nEXT 

!  WunETHEDATE 

94 

wtnEr.TE/'^ 

95 

96 

C— 

97 

c 

THBPARTDRAWS  a  box  at  the  BOTTOM  of  the  screen  for  the  dialoc 

90 

c 

AREABOFim. 

99 

c— 

100 

101 

6EC-BEC41 

103 

CAU  torUT  (EEC.$EC) 

103 

WRnEr.*)E/7SrffSEC 

!  BEGIN  THE  PANU  1000 

104 

WRnE<*.*)E«TMLr 

1  IME  COLOR  WHITE 

105 

WBnEf.*)E«T>IFr 

•  PANU  COLOR  BLUE 
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106 

X-  1 

107 

Y-1 

106 

CALL  Hiy(X,Y,A) 

109 

WWrtr,*)B/TJ>’//A/rv 

!  SET  Panel  ORIGIN 

110 

X-4095 

111 

CA11HIY(X,Y.A) 

112 

»«rrer.*)B/TjCv/A 

!  draw  BOTTOM  OP  PANEL 

113 

Y-4S0 

114 

CALLHIY(X,Y,A) 

115 

WBITEr,’)BrLCV/A 

!  DRAW  LEFT  SIDE  OP  PANEL 

116 

X-  X-40M 

117 

CALLHIY(X,Y,A) 

116 

w«rref,*)Bnx;v/A 

!  DRAW  TOP  OP  PANEL 

119 

WRirer.TB/xr 

!  PILL  THE  PANEL 

120 

121  C- 

122  C 

THB  DRAWS  A  UNE  AROUND  THE  TWO  DIALOG  AREA  LINES:  ' 

123  C- 

124 

125 

WRnEr,*)E/rMLr 

!  PANEL  COLOR  RED 

126 

X-  too 

127 

Y-  ISO 

126 

CALL  HIY<X,Y.A) 

119 

wR^Er,•)E//^p•//A 

!  SET  PANEL  ORIGIN 

130 

X-SMS 

131 

CAU.HIY0(,Y,A) 

132 

WRITEr,*)BnC7/A 

•  DRAW  BOTTOM  OP  PANEL 

133 

Y- Y*2S0 

134 

CALL  HIY<X,Y,A) 

135 

wRnEr.*)E/njc-ffA 

!  DRAW  LEFT  SIDE  OF  PANEL 

136 

X-  too 

137 

CALLHTY(X.Y,A) 

136 

WRnEr,’)E//TC7/A 

!  DRAW  TOP  OF  PANEL 

139 

Y-  Y-2S0 

140 

CAUHfY(X.Y.A) 

141 

WRnEr.TE»aC7/A 

!  DRAW  LEFT  SIDE  OP  PANEL 

142 

143  C— 

144 

145 

WRrrEr,*)E/rMTi- 

'  TEXT  COLOR  WHITE 

146 

147 

TEXT  -  'ENTER  <  E  >  TOEXET 

146 

149 

X-  l«00 

150 

Y-« 

151 

CAU  HIY(X.Y,A) 

152 

wRntr.*)E//T^/iA 

•  SET  TEXT  ORIGIN 

153 

WRIIEr,*)E//XTA4'/ntXT 

I  WRITE  THE  TEXT 

154 

155 

wtriEc^TEirsc 

•  CLOSE  AND  PILL  PANEL 

156 

157  C— 

156  C 

IMS  SETS  UP  THE  DIALOG  AREA  SO  THAT  THE  TEXT  AND  DATA 

159  C 

ARE  ALL  WITHM  THE  DATA  MPUT  WMDOW. 

« 
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\40  o 

ui 


142 

vnmr.'HEjn.w 

!  DEABU  DIALOG  AREA 

163 

mmr.'re/nr 

!  CLEAR  DIALOG  area 

164 

wiinEp,*)Em2' 

!  DIALOG  area  3  LINES 

165 

WlllTCC,»)e//TCW 

!  4S  character  ALLOWED 

166 

!  DIALOG  TEXT  WHITE 

167 

X'200 

166 

y-i« 

166 

CALLHIY(X,Y,A) 

170 

vnntr.'yE/nxuA 

1  SET  TEXT  DULOG  ORIGIN 

171 

172 

ynmr.'wiiw 

1  ENABLE  DIALOG  AREA 

173 

174 

175 

r 

176 

C  1MB  GETS  THE  NAME  OP  THE  FESSON  RUNNING  THE  EXPERIMENT 

177 

178 

17* 

160 

30  PORMAT<SX,'ENTER  YOUR  NAME:  '4)  !  GET  USERS  NAME 

161 

162 

40  WRnECJ0,ERR-40) 

163 

read(>,3.err-40)  name 

1  READ  EXPERIMENTER  NAME 

164 

165 

IPQsIAME.EQ.'T  ORJiIAME-EQ/cOTHEN  !  USER  WANTS  TO  EXIT 

166 

lExrr- 1 

!  SETEXrrPUG 

167 

GOTO  1000 

!  RETURN  TO  CALLER 

166 

enoip 

169 

1*0 

c 

191 

C  THB  WRnES  THE  USER  INPUTS  TO  THE  SCREEN  PANEL  AS  A  GRAPHIC 

192 

193 

194 

BEG-S 

195 

CALL  MTRPT(6EG.SEC) 

196 

197 

WRIIE(*.*)BrSK'//5EC 

!  DELETE  THE  SEGMENT 

1*6 

199 

WRITEr.TE/PSFOSBC 

!  BEGIN  THE  SECMEPir 

200 

wunEC-TE/rMPr 

1  PANEL  COLOR  GRAY 

301 

wRnEf,TE//n*rf 

!  TEXT  COLOR  WHITE 

303 

203 

X-2SOO 

304 

Y-3075 

206 

CALLHiy(X,Y,A) 

306 

wwiEr.TE//xr#A 

!  SET  PANEL  ORIGBI 

207 

X  -  X  «  1100 

206 

CALLHIY(X,Y.A) 

209 

WRnET.TEOXC’PA 

!  DRAW  BOTTOM  OP  PANEL 

210 

Y  -  Y  ♦  100 

311 

CAILHIYPLYJ^) 

312 

wRirer.TBncwA 

1  draw  LEFT  SIDE  OP  PANEL 

313 

X  -  X  - 1100 
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314 

315 
3U 
317 
31S 
31« 

330 

331 
333 

333 

334 

335 
334 
337 
334 
339 

330 

331 
333 

333 

334 

335 
334 
317 
334 


CAU.HIY(X,Y.A) 

w«irer.’)E//xtr//A 

w>rrEc.')E0if 


!  DRAWTOPOrrANB. 
!  PILL  niE  PANEL 


THB  places  the  TEXT  04  THE  PANEL 


X-3550 

Y-3100 

CALLHIY(X.Y,A) 

WlinEf.»lE/rLP’//A 

WlinEC.’)E//TTA4*/MAME 

WRnEf,»)E/rsc 


!  SETTHEOMCIN 
!  WRTTE  THE  NAME 
!  CLOSE  THE  SEGMENT 


■>  (CHANCE.EQ.I)  GOTO  500 


THIS  GETS  THE  NUMBER  OP  SAMPLES  AND  THE  NAME  OP  EACH  SAMPLE 


339 

90 

PORMATPX/  ENTER  NUMBER  OP  SAMPLES  <  4  MAX  >  :  'E) 

340 

«0 

WRnEpJO) 

341 

read  r.'IAir.ERR-OOlSAMPLE  !  INPUT  NUMBER  OP  SAMPLES 

143 

343 

■PISAMPLE.EQ.T.OR.SAMPLE  EQ.'clTHEN  ‘  USER  WANTS  TO  EXTT 

344 

lEXIT-  1 

!  SET  EXIT  FLAG 

345 

GOTO  1000 

*  RETURN  TO  CAUEK 

344 

ENDIF 

347 

344 

V()CHAR(SAMPIE).CT.44.  AND.ICHAR(SAMPL£).LTE7)COTO  45 

349 

GOTO  40 

!  MPUT  BAD  DO  IT  AGAIN 

350 

151 

*9 

READ(SAMPL£,'(l4r,ERR 

-  40)NOSAMP  !  CONVERT  TO  WTECER 

351 

153 

C— 

354 

C 

THB  DRAWS  THE  SAMPLE  DATA  HEADER  AND  NUMBER  OP  SAMPLES 

U5 

354 

357 

ECC-7 

154 

CALI  »nRPT«BEC.SEC) 

159 

WRnEr.*)E/r5K-«5EC 

!  DELETE  THE  SEGMENT 

3U 

WRITEr.*)E/7Sr//5EC 

!  BEGIN  THE  SEGMENT 

141 

143 

X  -  1 

143 

Y-301S 

144 

CALi.HIY(X.Y,A) 

345 

1*Rnir.*)B/T4U' 

•  LME  COLOR  BLUE 

344 

WRnET.TEArirM 

!  SET  line  ORICB>l 

147 

► 


¥ 


« 


282- 


Appendix  IV 


m 

X-4095 

m 

CAU.HIY(X,Y,A) 

270 

ynmrryE/nc'UA 

1  SETUNEEND 

271 

272 

!  TEXTCOLORKED 

273 

274 

X-IOOO 

275 

Y-aws 

274 

CAU.HIY(X,Y,A) 

277 

vntmrME/nriiA 

1  SETTEXTOUCIN 

27S 

TEXT-a  • 

279 

WMrec,TB/T.T47/IBCT 

!  WUriETHETEXT 

200 

281 

ynsnr.'yE/rhirf 

!  PANEL  COlOK  CKAY 

282 

w«rrEf,*)E//T»m' 

!  TEXT  COLOR  WHITE 

283 

284 

X-2S00 

285 

Y-a«70 

286 

CAU.HIY(X,Y,A) 

2r 

wMrer,*)E//xp’//A 

•  SET  Panel  origin 

288 

2*» 

X  -  X  4  1100 

290 

CAU.HIY(X,Y,A) 

291 

WMrEr.*)E//lC-//A 

!  DRAW  BOTTOM  OP  lOX 

292 

293 

Y  -  Y  ♦  »00 

294 

CAU.HIY(X,Y,A) 

295 

wurrEc.’jBrtiCv/A 

!  RIGHT  SIDE  OP  BOX 

296 

297 

X-X-1100 

298 

CAU.HIY(X,Y,A) 

299 

ynmene/rui-uA 

1  TOPOPBOX 

300 

vnntr.nE/tve 

1  PILL  THE  BOX 

301 

302 

'Murtr.'l^ngrf 

1  TEXT  COLOR  WHHE 

383 

304 

X  -  X « too 

305 

Y- Y-rs 

306 

CAU.HIY(X,Y,A) 

307 

wumr.TE/nrr/A 

!  SETTEXT ORIGIN 

308 

309 

V(N05AMr.EQ.inHEN 

310 

WMrtr.TE/rt-Tr/SAMFLBr  SAMPtT  !  WWIE  THE  TEXT 

311 

EIEE 

312 

1«irer,TEffl.TY'//5AMn£/r  SAMFIES-  !  WUTE  THE  TEXT 

313 

END* 

314 

315 

WmiEP.TBTSC 

!  endsegment 

316 

317 

*  (CMANCE.EQ.I)  GOTO  SOO 

318 

319  C— 

310  C 

im  wuni  THE  COLUMN  HEADOtS  KMl  *  SAMTU  names 

321  C 

AND  *  CCNCENTXAHONS  * 

ACDn’Tvres' 
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322 

323 

c - 

324 

6EC-8 

325 

CAU.  MT1l?T(EEC,SEC) 

326 

wiintr,*)E/rtr//sEC 

!  BEGIN  THE  SEGMENT 

327 

32t 

•  TEXT  COLOR  BLUE 

329 

x-oo 

330 

Y-I7J0 

331 

CAU.HIY(X,Y.A) 

333 

ynmc.'yEinriiA 

!  SET  TEXT  ORIGIN 

333 

TOCT-'J.  SAMPLETYTT 

3M 

Wl(nEr.’)E/rLT?'//IEXT 

!  WRHE  SAMPLE  TEXT 

335 

336 

X  -  1790 

337 

CAU.H!Y(X,Y,A) 

330 

WIlfTEC,’)E/AP’//A 

!  SETTEXT ORIGIN 

339 

■rexT--4.  acenttytt 

340 

WMrtr.*)E/rt.T>//TOfT 

•  WRHE  SAMPLE  TEXT 

341 

342 

x-xoo 

343 

CALL  HIY(X.Y,A) 

344 

ynmr.'y^nruK 

!  SET  TEXT  ORIGIN 

345 

■reXT-'S.  CONCENTHATION' 

346 

w«frE(*,*)E//TrAj-//rEXT 

!  WRITE  SAMPU  TEXT 

347 

W«lTEC.*)E/rtC 

!  CLOSE  THE  SEGMENT 

340 

349 

C- 

350 

c 

THB  NEXT  FART  GETS  TME  SAMFU  NAMB5 

351 

C- 

353 

353 

354 

67 

FOKMATpX.'IP  ALL  SAMPLES  ARE  THE  SAME  TYPE  <  Y  > 

3« 

356 

60 

BAME-0 

357 

MUSE-0 

3U 

wRntc.’iE/rLZ’  ! 

CLEAR  THE  OIALOG  AREA 

399 

wRnEr^T) 

360 

REAOr^ySAME 

361 

362 

MSAME.EQ.’r.OR.SAME.EQ.'YllSAME  -  1 

363 

364 

C— 

365 

366 

66 

6EC  -9 

367 

LETTER  -  U 

ITEM  BEGINS  wnH  '  A  ' 

360 

Y1  -  MOO 

369 

370 

69 

X  -  TO 

371 

373 

70 

FORMATPX.EKTER  SAMPLE  NAME:  -J) 

373 

72 

fOIIMAT|SX.T^1.-  EPmXSAMPUNAME  '4) 

374 

375 

DO  90 1  -  START ,  NOSAMP 
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376 

377  C— - 

37*  C  'ms  wnx  ONLY  lEQUIltE  ONLY  ONE  INPUT  IP  THE  SAMPLES  ARE  AU  THE 

379  C  SAME. 

310  C - - - 

3*1 


382 

IP(EAME.EQ.1)THEN 

!  ALL  SAMPLES  ARE  THE  SAME 

383 

384 

V(INUSE.EQiQTHEN 

!  ONLY  READ  ONCE 

4 

385 

WRnEr.TBTLZ- 

!  CLEAR  THE  DIALOG  AREA 

386 

75 

WRnEf.TO) 

387 

t£ADr.XERX-75)SAMP(l) 

388 

♦ 

389 

V(SAMPn>  EQ-T.OILSAMP(l).EQ/<0THEN  !  USER  WANTS  TO  EXTT 

390 

EXTT-  1 

1  SETEXrrPLAG 

391 

GOTO  1000 

•  RETURN  TO  CALLER 

392 

ENDIP 

393 

394 

V(SAMP(I).EQ.-  TCOTO  75 

!  DO  AGAIN  PIEIO  WAS  NULL 

395 

396 

INUSE  -  1 

•  SET  FLAG  DONT  COME  RACK 

397 

GOTO  *5 

398 

ELSE 

399 

400 

SAMP(I)-SAMP(I-1) 

!  EQUATE  THE  SAMPLE  TYPES 

401 

402 

GOTO  *5 

t  WRITE  THE  SAMPU  NAME 

403 

ENDIP 

404 

ENDIP 

409 

406 

407 

80 

WRnEC.TE/TLT 

!  CLEAR  TTTE  DIALOG  AREA 

408 

WRrtEr,72)CHAR<l£nER) 

!  DESIGNATOR 

409 

410 

411 

■EAOr,2,ERR-«0)SAMP(l) 

!HPUT  SAMPU  NAME 

412 

V(5AMP(I).EQ.T.OR.SAMP(I).EQ.'c')THEN  !  USER  WANTS  TO  EXTT 

413 

EXTT-  1 

SET  EXIT  FLAG 

414 

GOTO  1000 

1  RETURN  TO  CALLER 

415 

ENDE 

417 

418 

P(SAMP(1).EQ.-  TGGTO  iO 

1  DO  AGAIN  FIELD  WAS  NULL 

419 

U 

BEG  -  BEG  •  1 

430 

• 

U1 

CAU  MTRPTIIBEG.SEG) 

423 

WRITEp,TCI7Sr//SEG 

1  DELETE  THE  SEGMENT 

423 

WRnE(»,*)E/7SF«SEG 

•  lEGIN  THE  SEGMENT 

434 

425 

WRITE<»,*)E//TtlTr 

!  TEXT  COLOR  RED 

436 

or 

CAUHIY(X,Y1.A) 

438 

wRnEc.’)E«nr«A 

•  SETTEXTORICM 

429 

TEXT  -  7/ICHAR(LETTEI0 

!  ITEM  DESIGNATOR 
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430 

WW7E<*.’)B-aTJ'//reXT 

•  WRUE  THE  TEXT 

431 

432 

vnanr.'lfjrMrr 

•  panel  COLOR  GRAY 

433 

vnmc.'lEjnim- 

TEXT  COLOR  WHITE 

434 

435 

Y  -  Y1  -  25 

436 

437 

X  -  X  ♦  130 

438 

CAaHIY(X,Y,A) 

439 

w«rrep,*)B/TF’//A 

•  SET  PANEL  ORIGIN 

440 

U1 

X  -  X  ♦  noo 

442 

CALL  HIY(X,Y,A) 

443 

WIllTEr,*)E//TjCV/A 

!  DRAW  BOTTOM  OP  BOX 

444 

445 

Y  -  Y  ♦  100 

446 

CALL  HIY(X.Y.A) 

447 

W«fTEC/1&'/TjC'ffA 

•  RIGHT  SIDE  OF  BOX 

448 

449 

X  -  X-ltOO 

450 

CALL  HIY<X,Y,A) 

451 

ynmc.'iiEinc'UA 

1  TOP  OP  BOX 

452 

w«nEc,*)E//Tr 

•  FILL  THE  BOX 

453 

4M 

Y  -  Y-75 

455 

X-X»50 

456 

457 

wiintr.’)E//>nT 

I  TEXT  COLOR  WHTTE 

458 

499 

CALL  HIY(X,Y.A) 

460 

WI(ITEr.*)BrLP'//A 

!  SET  TEXT  ORIGIN 

461 

W«rrEr.*)&/T.TA47/5AMI>(l) 

I  WRITETHETEXT 

462 

463 

!  CLOSE  THE  SEGMENT 

464 

465 

■VIBiCCNC.EQ.IjCOTO  300 

!  lUST  CHANCING  ONE  riEM 

466 

467 

LETTEII  -  LETTEX  t  1 

f  INCREMENT  LETTER  VALUE 

468 

Y1  -  Y1  - 125 

m 

X-70 

470 

471 

90 

CONTINUE 

472 

473 

C— 

474 

c 

475 

W  (CHANCE.EQ.1)  GOTO  300 

476 

477 

C— 

478 

c 

THE  ASIC5IPTME*£l5COINCTOK  ANY  CHEMICALS  ADDED  TO  THE 

479 

c 

SAMniS.  ■>  NONE  ARE  USED  THEN  1  SHF  RIGHT  TO  THE  LASER  D4PO 

480 

C— 

481 

412 

100 

K>IIMAT(SX.-T«1U  THERE  K  agent  ON  THE  SAMFLES:  <  y  > '4) 

483 
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4M  110  WMTEr.lOO) 

05  READ  C.«.EItll-nO)ANS 

416 

4(7  WRnEC/*)E/rLZ'  •  CLEAR  THE  DiALOC  AREA 

m  V(AN$.EQ.'r.OR.ANS.EQ.'y0COTO130 

4W  ACENTO)  -  'NONT 

491  GOTO  263  ICOTO  REVIEW  SCREEN 

492 

493  C - 

494  C  THB  cm  THE  TYPE  OF  agent  THAT  WILL  BE  USED  ON  THE  SAMPLES 

495  r - 

496 

497  120  FORMAT<5X.'WILl  AGENT  TYPE  BE  THE  SAME  FOR  ALL  SAMPLES  <  Y  >  '4) 

49S 

499  130  IN  USE  -  0 

300  EAME  -  0 

901  SAME 

soa 

303  WRHEC.ITO) 

904 

305  132  READC4.ERR-132)5AME 

306 

907  V(5AMEEQ.'r.OR.SAME.EQ.-iOISAME  -  1 

90( 

909  C - ; - 

310 

Sit  WRriEc.'iE/rLr  <  clear  the  dialog  area 

312  BEG  -  19 

313  X  -  1900 

314  Y1  -  2400 

315  LETTER  -  69 

516  135  P0RMAT(5X,  ENTER  AGENT  NAME:  ’4) 

517  137  K)RMATT3X.'4',AI,-  ENTER  AGENT  NAME: '4) 

51S 

319  130  DO  190 1  -  ETART ,  N05AMP 

520 

521  C - 

322  C  THEWILLONLYREQUIREONLYONEINPUTIPTHESAMPLE5  ARE  ALLTHE 

523  C  SAME. 

524  C - 

525 

526  IF(EAME.EQ  IpHEN  !  ALL  AGENTS  ARE  THE  SAME 

527 

52S  IP(MUSE.EQ.O)THEN  •  ONLY  READ  ONCE 

529 

530  140  WRnEr.135) 

531  READC.1.ERR-140>ACENT(I) 

332 

533  IR(ACENT(I).EQ.E’.0R.ACENT(I).EQ.>')THEN  •  USER  wants  TO  EXIT 

534  cxrr  -  1  ’SET  EXTT  FLAG 

535  GOTO  1000  >  RETURN  TO  CALLER 

536  END* 

537 
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53»  IP(ACENT(I).EQ.'  •jCOTO  140  !  DO  AGAIN  FIELD  WAS  NULL 

S3> 


540 

BOUSE  -  1 

!  SET  FLAG  DONT  COME  bACK 

541 

542 

GOTO  ISO 

543 

ELSE 

544 

545 

ACENT(I)  -  ACENTO  - 1) 

!  EQUATE  THE  AGENT  TYPES 

546 

GOTO  160 

!  WRITE  THE  AGENT  NAME 

547 

ENOO' 

540 

endif 

549 

550 

ISO  WIUTE(*,137)CHAII(LETIER) 

•  LIST  DESIGNATOR 

551 

552 

BEADC.LEIUI  - 1 30)ACENT(n 

(INPUT  agent  NAME 

553 

554 

IF(AGENT(I).EQ.'E'.0R,ACENT(I).EQ.  «')THEN  !  USER  WANTS  TO  EXIT 

555 

lExrr- 1  ! 

SET  EXIT  FLAG 

556 

GOTO  1000 

!  RETURN  TO  CALLER 

557 

ENDIF 

550 

559 

IF<ACENT(I).EQ.-  OGOTO  150 

■  DO  AGAIN  FIELD  WAS  NULL 

560 

561 

160  ISEC  -  BEG  <  I 

562 

CALL  INTRFT(I5EC.SEC) 

563 

wiinEr,*)&rst:7/SEc 

•  DELETE  THE  SEGMENT 

564 

WlirrEC,*)E/y^E7/5EG 

!  BEGIN  THE  SEGMENT 

565 

566 

wRrrEr.‘)E//Tim- 

•  TEXT  COLOR  RED 

567 

560 

CALL  Hnr(X,YI,A) 

569 

wwTEr,’)E//ar/M 

1  SET  TEXT  ORIGIN 

570 

TEXT  -  '47A:HAR(l£TrER) 

•  ITEM  DESIGNATOR 

571 

W1UTEC,*)E//T.T2  //TEXT 

I  WRITE  THE  TEXT 

572 

573 

vnntf.’)E/n<tPr 

!  PANEL  COLOR  GRAY 

574 

vnintc.’)e/rwm- 

•  TEXT  COLOR  WHITE 

575 

576 

V  -  yi  -zs 

577 

570 

X  -  X  ♦  1» 

*79 

CALL  HtY(X.Y,A) 

500 

WlinEC.’)E//T^//A 

■  SET  panel  origin 

SOI 

502 

X  -  X  «  1100 

503 

CALL  HIY(X,Y,A) 

504 

WIinEC,’)E//XC7/A 

!  DRAW  BOTTOM  OF  BOX 

505 

506 

Y  -  Y  ♦  100 

507 

CALL  HrY(X,Y,A) 

500 

wwrBr.'TE//ac7/A 

!  RIGHT  SIDE  OF  BOX 

509 

590 

X  -  X  - 1100 

591 

CALL  HTYpt.Y.A) 
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992 

WlUTEC,’)E/njC7/A 

!  TOP  OP  BOX 

993 

WRrrer.*)&^ 

!  FILL  THE  BOX 

9M 

995 

Y  -  V  -  75 

996 

X-X«50 

997 

996 

WRrTEC,*)&/W1' 

!  TEXT  COLOR  WHITE 

999 

600 

CAU.HrY<X,Y,A) 

601 

WRITE(’,»)&/TP’//A 

!  SETTEXT ORIGIN 

602 

WRrrer.*)E//XTA4'»ACENT(I) 

•  WRITE  THETEXT 

603 

606 

wRrrer.*)&7sc 

!  CLOSE  THE  SEGMENT 

605 

606 

IP<ITEM_CNC.EQ.l)COTO  500 

•  CHANGING  ONE  ITEM 

607 

606 

LETTER  -  LETTER  ♦  1 

!  INCREMENT  LETTER  VALUE 

609 

Y1  -  yi  - 135 

610 

X  -  1500 

611 

612 

190  CONTINUE 

613 

614 

IF  (CHANCEEQ.I)  GOTO  500 

6IS 

«I6  C- 


617 

616 

C 

C— 

THB  GETS  THE  AGENT  CONCENTRATTON  OF  THE  AGENT  FOR  ALL  THHE  SAMPLES 

619 

620 

195 

formato:x,-will  agent  concentratton  be  the  same  for  all  samplest 

621 

196 

FORMAT(35X,  <  Y  >  4) 

622 

623 

199 

MUSE-0 

624 

SAME  -  0 

625 

SAME  -  '  • 

626 

627 

WRTTET.HS) 

626 

WRITEr.lSB) 

629 

630 

200 

READr,«.ERR-300|5AME 

631 

IF(SAME  EQ  "Y-  OR  SAME  EQ  y)ISAME  -  I 

«S1 

633  C- 


634 

639 

WRnEr,*)E//TE-  '  CLEAR  THE  dialog  AREA 

636 

BEG  -  29 

637 

X  -  2950 

636 

YI  -  2600 

639 

LETTER  -  65 

640 

210 

FORMAT(5X,ENTER  CONCENTRATTON:  -,5) 

641 

212 

FORMAT(5X.-5',A1,'  ENTER  CONCENTRATTON:  -,5) 

642 

643 

215 

1X3  260 1  -  START .  NOSAMP 

Appendix  IV 


*44  C  TOBWILLONtY  REQUIRE  ONtY  ONE  INPUT  n>  THE  SAMPLES  ARE  ALL  THE 
*47  C  SAME. 

*48  C— - 

*49 


ll>(SAME.EQ.1)THEN 

!  ALL  AGENTS  ARE  THE  SAME 

«51 

652 

IF(INUSE.EQ.O)THEN 

1  ONLY  READ  ONCE 

653 

6M 

230  WRnEC,2I(0 

655 

w 

656 

REAI>CaERR-m>)CONC(l) 

657 

656 

IPCCONCffi  EQ.T.OR.CONCm  EQ  tllHEN  !  USER  WAAHS  TO  EXIT 

659 

•EXIT- 1  1 

SET  EXIT  FLAG 

660 

GOTO  1000 

•  RETURN  TO  CALLER 

661 

ENDIF 

662 

663 

IP(CONC(I).EQ  •  OCOTO  220 

•  DO  AGAIN  FIELD  WAS  NULL 

664 

665 

IN  USE  -  1 

!  SET  FLAG  DONT  COME  BACK 

666 

GOTO  250 

667 

ELSE 

666 

669 

CONC(l)  -  CONC(l  - 1) 

!  EQUATE  THE  AGENTTYPES 

670 

671 

GOTO  250 

!  WRITE  THE  AGENT  NAME 

672 

ENDIF 

673 

ENDIF 

674 

675 

WRITEC,212)CHAR(LETTER) 

676 

677 

240  READr,2,ERR-240)CONC(l) 

!  INPUT  AGENT  NAME 

676 

679 

»<CONC<l)  EQ.f  .OR.CONCm  EQ  -j-ITHEN  *  USER  WANTS  TO  EXIT 

660 

lEXIT- 1  ! 

SET  EXIT  FLAG 

661 

GOTO  1000 

>  RETURN  TO  CALLER 

662 

ENDIF 

663 

664 

IF(CONC(l).EQ.-  -XOTO  240 

>  DO  AGAIN  FIELD  WAS  NULL 

665 

666 

250  CSEG  -  BEG  *  1 

667 

CALL  INTRFTIBEG.SEG) 

666 

WRnEC,*)D7SKVBEC 

!  DELETE  THE  SEGMENT 

669 

WRITEr/)E/rSr//SEG 

■  BEGIN  THE  SEGMENT 

690 

691 

WRnE<*,’)E//>nT 

■  TEXT  COLOR  RED 

6 

693 

693 

CALL  HIY(X,Y1,A) 

694 

WRITER, •)E/PIF’/M 

!  SETTEXT ORIGIN 

695 

TEXT  -  -S'/ICHARaETTER) 

•  ITEM  DESIGNATOR 

696 

WRIIEr.*)E//T.T2'/IIEXT 

!  WRITE  THE  TEXT 

697 

696 

WRIIEf.lBrMPP 

!  Panel  COLOR  GRAY 

699 

wunEr.TBrMTi' 

t  TEXT  COLOR  WHITE 
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TOO 


701 

Y-Yl-25 

702 

703 

X  -  X  4  130 

704 

CAU.HIY(X,Y,A) 

705 

!  SET  panel  ORIGIN 

706 

707 

X-X*750 

700 

CAU.  HrY(X,Y.A) 

709 

WIUTEC,*)E//TjC'/M 

!  DRAW  BOTTOM  OF  BOX 

710 

711 

Y  -  Y  ♦  100 

712 

CAUHIY(X.Y,A) 

713 

WIUTEf,*)E/rtjCV/A 

!  RIGHT  SIDE  OF  BOX 

714 

715 

X  -  X  -  730 

716 

CAU.HIY(X,Y,A) 

717 

WRnE(»,»)E/ru;-//A 

!  TOP  OP  BOX 

710 

wiiirer-*)E//Tr 

•  FILL  THE  BOX 

719 

720 

Y  -  Y  -  75 

721 

x-x  +  so 

722 

723 

witrrec.*)E//TknT 

!  TEXT  COLOR  WHTTE 

724 

725 

CAU.HIY<X.Y,A) 

726 

vniKr.'yejnrnk 

!  SET  TEXT  ORIGIN 

m 

WWTET.'jB/XTT'/ArONCa) 

•  WRITE  THE  TEXT 

720 

729 

l»KrreM_CNC.EQ.1)COTO  500 

730 

731 

w«nEr,*)E/rsc 

!  CLOSE  THE  SEGMENT 

732 

733 

LETTEK  •  LETTER  *  1 

!  INCREMENT  LETTER  value 

734 

Y1  -  Y1  - 133 

735 

X  -  3930 

736 

737 

260 

CONTINUE 

730 

739 

n*  (CHANCE.EQ.1)  GOTO  300 

740 

741 

C— 

742 

c 

THB  DRAWS  A  LINE  IN  BLUE  ACROSS  THE  BOTTOM  Of  THE  SAMPLE  BOXES 

743 

c— 

744 

745 

263 

BEC-39 

746 

CAU  imPnGEC,SEC) 

747 

WRnEf,*)E/rsr//5Ec 

740 

X-  1 

749 

Y- Y1 

750 

nME-Y  ■ 

BUF  THE  Y  FOR  THE  LB9E 

751 

752 

CALLHrY(X.Y,A) 

753 

WRntr.TBPMU' 

!  UNE  COLOR  HUE 
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754 

wiirrEf,TE//Tr//A 

I  SET  LINE  ORIGIN 

755 

756 

X-VM 

757 

CAU.HIY{X,Y,A) 

TSi 

WmiEr,*)E/rLCV/A 

1  SET  LINE  END 

759 

vnmc.’ycirmv 

1  TEXT  COLOR  RED 

760 

761 

X-70 

762 

Y- Y-lOO 

763 

YJ- Y 

764 

CAU.HrY(X.Y,A) 

765 

wwrac,TBnP’//A 

!  SET  TEXT  ORIGIN 

766 

TDa-  •6.  START 

767 

wRrrec-*)E/rLTy//nEXT 

!  WRITE  THE  TEXT 

766 

WRiref,*)E/rsc 

!  CLOSE  THE  SEGMENT 

769 

770 

771 

C 

THIS  PART  CE15  THE  START,  STOP,  AND  INCREMENT  OF  THE  SAMPLE 

772 

c 

STAGE  FOR  EACH  SAMPU. 

IN  THE  CASE  1  ALLOW  t/4  DECREE 

773 

c 

RESOUmONt  500STEP5). 

774 

C— 

775 

776 

265 

PORMATpiCTWlL  ALL  START  FOSmONS  BE  THE  SAME:  <  Y  >  '4) 

777 

270 

PORMATPX.'START  POSITION  OP  ARM  <OECREES>;  '4) 

776 

272 

PORMAT(SX,Al,'  START  POSITION  OP  ARM  <DECREES>:  *4) 

779 

760 

EEC  -39 

!  SEC  NUMBER  BEGINS  AT  40 

761 

Y3  -  Y1 

762 

X-70  1 

start  PosmoN  OP  x 

763 

NUM  -  54 

!  ASCnVALUEOPE 

764 

IPOS  -0 

!  INITIAllZE  TYPE  OF  DAT 

765 

766 

275 

WIRE  -0 

767 

766 

XI  -  X  ! 

SAVED  VALUE  OP  START 

769 

Y1  -  Yl .  100 

!  START  POSITION  OP  Y 

790 

LETTER  -  «5 

!  ASCII  VALUE  OP  A 

791 

792 

wRntr.TE/rLr 

1  CLEAR  THE  DIALOG  AREA 

793 

794 

SAME  -0 

!  initialize  DIFFERENCE 

795 

796 

1P<IPOS.EQ.0)THEN 

!  IP  THE  B  START  DATA 

797 

WRnET,2B5) 

!  IN  DATA  FLAG 

796 

ELSEIP(IP0S.EQ.1)THEN 

■  THE  E  END  ancle  DATA 

799 

WRITtCJU) 

600 

EtSEIP(IPOS.EQ4)THEN 

!  THE  S  WCR  ANCLE  DATA 

601 

wuntr^ii) 

602 

ENDIP 

603 

604 

READr4,ERR-ia0)6AME 

60S 

^(SAME.EQ.'r.OR.SAME.EQ.'jrOEAME  -  1 

806 

607 

276 

WRfrer.TBTLT 

1  CLEAR  THE  dialog  AREA 
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(OS 


•09 

DO  310 1  -  BTAICT ,  NOSAMP 

•10 

•11 

•12 

c— 

c 

THS  WIU  ONLY  REQUIRE  ONLY  ONE  INPUT  IP  TTIE  SAMPLES  ARE  All  THE 

•13 

c 

SAME. 

•U 

•15 

C— 

•16 

n^AME-EQ-IITHEN 

!  AU  ACENTS  ARE  THE  SAME 

•17 

•IS 

IP(INUSE.EQ.0)THEN 

•  ONLY  READ  ONCE 

•19 

210 

WRnEf,*)E//TZ' 

!  CLEAR  DULOC  AREA 

•20 

•21 

■KIPOSEQ-OpHEN 

!  IP  THIS  B  START  DATA 

•22 

WRTTEC.ITO) 

•23 

ELSEIP(IPOS.EQ.I)fIHEN 

!  THE  E  END  ANCLE  DATA 

•24 

WRITECJU) 

•25 

ELSEIP(IPOS.EQ.2)THEN 

•  THE  E INCR  ANCU  DATA 

•26 

VWnEr.3S4) 

•27 

ENOIF 

•2t 

•29 

•30 

READP/(AS)-,ERR-2*0)POS(I) 

831 

•32 

•33 

c— 

c 

HERE  1 CHECKIP  THE  USER  ADDED  A  DECIMAL  POINT  TO  THE  IN  Pin 

•34 

c 

THIS  WnX  RE  REQUIRED  POR  THE  REAL  INPUT  IP  IT  WAS  NOT 

•35 

c 

PROVIDED  1  ADD  ONE.  ANY  VALUE  IN  THE  l/10«h  PLACE  WIU  BE  MADE 

•36 

c 

A  •  J  •  AS  I  AM  UMITINC  THE  RESOLUTION  TO  1/2  A  DECREE. 

837 

•36 

c _ 

•39 

IDEC-0 

•40 

K  -0 

•41 

•42 

DO  2B2 1  -  S.1.-1 

!  UX>P  THRU  INPUT 

•43 

•44 

■HP0S<IXI:D.EQ.'  TCOTO  2B2 

!  UOOK  FOR  A  SPACE 

•45 

•46 

»(POS<I)0:DEQ-7THEN 

!  LOOK  FOR  A  DECIMAL 

•47 

DEC  -  IDEC  ♦  1 

•48 

IP<IDEC.EQ.2)COTO  2M 

!  2DECIMA15 

•49 

•SO 

IP(POS<I)0»1:J*I).CT.CHAR(4*).AND  •  CHANCE  ANY  INPUT  -  .5 

•51 

POS<I)0*1:M1)-LT.CHAR(3«))THEN  I  IP  NOT  -  .0 

POS<I)0*1:|*1)  -  T 

•S3 

ENDV 

•54 

•S5 

C0T02S2  • 

CO  CONVERT  TO  REAL 

•S6 

•S7 

ENDP 

•58 

•99 

*(PO$<l)0:|LLT.CHAR<«).OR.POS<l)a:|).CT 

•10 

CHAR(S7))COTO  210 

•61 
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M2 

RKPOS<l)a:J)-CT.CHAR<47).AND.POS(l)0:DLT. 

M3 

CHAR<5a))THEN 

M4 

MS 

K-K  +  1 

!  COUNT  NUMBERS 

M6 

M7 

IP(K.EQ.4)COTO2aO 

!  INPUT  TOO  LARCE 

Mt 

ENDIP 

!  CAN  ONLY  BE  3  CHARS 

M9 

2*2  CONTINUE 

>70 

>71 

V(K.CTU))THEN 

>73 

K-K*  1 

>73 

POSdXfcK)  -  •.• 

•  PLACE  THE  DECIMAL 

>74 

ENDIP 

>75 

S7> 

>77 

READ(POS<l).'(PS.2)-,ERR-2aa)RCHECK 

>7S 

mo 

WRnE<*.’)E/7LZ' 

■  CLEAR  THE  DIALOG  AREA 

Ml 

M2 

IP<POS(l).EQ /E-  OR  POSCI)  EQ.  OTHEN  •  USER  WANTS  TO  EXIT 

M3 

Etrr- 1 

t  SET  EXIT  FLAG 

M4 

coroiooo 

!  RETURN  TO  CALLER 

MS 

ENDIP 

>M 

M7 

»(POS<l).EQ  •  TCCfTO  2*0 

!  DO  AGAIN  FIELD  WAS  NULL 

>M 

MUSE  -  1 

!  SET  FLAG  DONT  COME  BACK 

M9 

COTO200 

MO 

ELSE 

Ml 

M3 

POSffl- POS<l-l)  < 

EQUATE  THE  AGENT  TYPES 

M3 

>M 

COTO300 

!  WRITE  THE  AGENT  NAME 

MS 

ENDIP 

Mt 

ENDIP 

M7 

•99  3M5  ll>(IK«.EQ.O)'rHEN  !  IP  THIS  IS  START  DATA 

900  WtnSrJTJlCHARINUMy/CHARaiTreR) 

901  ELSEIP(IPOS.EQ.I}THEN  >  THIS  6  END  ANCLE  DATA 

902  WRmCJIOICHAIKNUMy'CHARaETIER) 

90J  EtSEV(IPOS.EQ.2)THEN  !  THIS  B INCR  ANCLE  DATA 

90*  WRrre(*J3»)CHAR(NUMy/OIAR<LEnER) 

906  ENDV 
90* 

907  POS<l)-  -■ 

90*  K  -0 


910  290  READr.'(ASr.EIW-290)POS<l)  !  INPUT  ACENT  NAME 

911 

912  C - - - — 

91J  C  HEREtCHECKVTHELBER  ADDED  A  DECIMAL  POINT  TO  THE  INPUT. 

914  C  THB  WILL  IE  REQUIRED  POR  THE  REAL  MPUT  IPITWASNOT 

915  C  PROVRJED I  ADO  ONE.  ANY  VALUE  M  THE  l/IOHi  PLACE  WILL  RE  MADE 
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* 


* 


*1*  C  A  '  J  *  AS  I  AM  UMTTINC  THE  RESOLUTION  TO  1/2  A  DECREE. 

*17  - - 

91t 

919  IDEC  -  0 

*20  K  -0 

*21 

*22  DO  2*2 )  -  5,1,.1  !  LOOP  THRU  INPUT 

*23 

*14  IP(POS(I)0:J)-EQ.'  ‘XXnO  202  !  LOOK  POR  A  SPACE 

*2S 

916  IF(P05(l)a:D  EQ.")THEN  !  LOOK  POR  A  DECIMAL 

*27  IDEC-IDEC41 

*20  IP(IDEC.EQ.2)C0T0  lOS  !  2  DECIMALS 

*2* 

*30  V(POS(I)0»I;1«1).CT.CHAR(40).AND.  •  CHANCE  ANY  INPUT  -  .5 

*31  POS(I)0*1:M).LT.CHAR(M))THEN  ■  IP  NOT  -  -0 

*32  POS(l)a*t;l71)  -  y 

*33  ENDIP 

*34 

*35  GOTO  2*7  !  CO  CONVERT  TO  REAL 

*30  ENDIP 

*37 

*30  »(POS(I)a:D  CT.CHAR(47).AND  POS(IXI:|).LT. 

*3*  CHAR<3S))THEN 

*40 

♦41  r  -  K  ♦  1  !  COUNT  NUMBERS 

*42 

*43  IP<K.EQ.4)C0TD  205  !  INPUT  TOO  LARGE 

tNIMP  •  CAN  ONLY  BE  3  CHARS 

*45 

*40  2*2  CONTINUE 

*47 

*40  IP(K.CT.0)THEN 

*4*  K-K«1 

*50  POSOXKK)  -  •  PLACE  THE  DECIMAL 

*51  ENDV 

*52 

*53  *EAD<P05<I),(P5.2)-.ER*-2*5)RCHECK 

*54  COT0297 

*55 

*50  C - 

*57  C  THE  START.STOP.AND  BMCREMENT  OP  STAGES  MUST  BE  GOOD  NUMBERS  OR  THE 
*9B  C  EXPEMMENT  WONT  WORK... 

*5*  - - 

*40 

*01  2*5  WRnEp.*)E//TZ-  !  CLEAR  DIALOG  AREA 

*02  COT01B5 

*03 

*04  - - - 

*05 

*•0 

*07  2*7  «|POS^R}.f  .OR.POS<l).EQ  'OntEN  !  USER  WANTS  TO  EXIT 

9m  Kxir-1  r  SETExrrpiAC 

«**  GOTO  1000  !  RETURN  TO  CALLER 
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fTO 

ENOIF 

m 

m 

■VOS(I).EQ.  TCOTO  2tS 

!  DO  AGAIN  FIELD  WAS  NUU 

*73 

*74 

300  EEC-EEC*1 

*75 

CALL  »rT1lPT(EEC,SEC) 

*7* 

WMrtf.TBrSICV/SEC 

•  DELETE  THE  SEGMENT 

*77 

w*rrEc,*)E/«r/«EC 

!  KGIN  THE  SEGMENT 

*7« 

CALLHiypLYI.A) 

*79 

wiirref,»)E/nr//A 

*•0 

wirrer,*)E/rMTT 

■  TEXT  COLOR  RED 

m 

*•2 

TCXT  -  CHA«<NUMy/CHAI(<LEmR) 

*■3 

ynmcruE/iTTr/fTEXT 

!  WRTIETHETEXT 

*M 

*•5 

¥nmc,'}E//%trr 

!  PANEL  COLOR  CRAY 

*•6 

wiirrec,*)E//T>fn' 

!  TEXT  COLOR  WHITE 

9*7 

*H 

Y  -  -  IS 

*•9 

*90 

X  -  X  H30 

991 

CALL  HIY(X,Y,A) 

992 

wiirrep,*)E//xr//A 

!  SET  PANEL  ORIGIN 

*93 

*94 

X-Xt300 

*95 

CAU  HJY<X,Y,A) 

*96 

mmr.’fjrwiiA 

!  DRAW  BOTTOM  OP  BOX 

*97 

991 

Y  -  Y  ♦  too 

999 

CALL  MIY(X.Y,A) 

1000 

wwrec.TE/ncv/A 

!  RIGHT  SIDE  OP  BOX 

1001 

1002 

X  -  x-soo 

1003 

CALL  Hn'(X.Y,A) 

1004 

WIUTEp,*)£/rLC'/M 

!  TOP  OF  BOX 

1005 

wiirrec.*)B^ 

!  FILL  THE  BOX 

1006 

1007 

Y- Y-75 

ion 

X-X*50 

1009 

1010 

wiinEp,*)E/rMTf 

!  TEXT  COLOR  WHTIE 

1011 

1012 

CAU.  HTYtX.r.A) 

1013 

WIUTEC,*)E//V«A 

!  SETTEXT ORIGIN 

1014 

w«nic.*)E/a.m/Fos<D 

■  WUnETHETEXT 

1015 

1016 

wiiirec,»)E/rsc 

’  CLOSE  THE  SEGMENT 

1017 

1013 

IP(rreM_CNC.EQ.1)COTO  500 

’  CHANCING  ONE  ITEM 

101* 

ino 

LETTE*  -  LETTER  ♦  1 

!  WCREMENT ICTTER  Value 

1021 

Y1  -  Yt  -  IIS 

1022 

X-X1  ! 

GIVE  X  ns  ORICWAL 

1033 

1  VALUE 
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1024  310  CONTINUE 

1015 


1036 

V(CHANCE.EQ.1)CX}TO  500 

lor 

1038 

1029 

c— 

1000 

V(IPOS.EQ.0)THEN 

!  THIS  B  START  POSITION 

1001 

DO  315  I  -  1 J406AMP 

•  DATA. 

1032 

STAICTd)  -  ros(i) 

1  EXCHANGE  DATA 

1003 

315 

CONTMUE 

1034 

1009 

E1SE1P(IP0S.EQ.1)THEN 

!  THBB  STOP  ANGLE 

1036 

DO  316  1-  1,NOSAMP 

•  Data. 

1037 

STOPp)  -  EOS(l) 

•  EXCHANGE  data 

1038 

314 

CONTINUE 

1039 

1040 

ELSEIPilPOSEQ  2)THEN 

•  THB  B  INCR  ANGLE 

1041 

DO  317  1  -  1.NOSAMP 

!  Data. 

1042 

KC(D-fOS<I> 

'  exchange  data 

1043 

317 

CONTINUE 

1044 

1045 

ENDIF 

1046 

1047 

loa 

C— 

C 

THIS  NEXT  PA«T  USES  THE  ABOVE  SECTION  OP  THE  ROUTINE  AGAIN 

1049 

c 

BY  CHANCING  SOME  OP  THE  VARIABUS,  THESE  ARE  THE  X.Y  POSmONS 

1050 

c 

OP  THE  SEGMENTS  AD  THEIR  ASSIGNED  NUMERIC  VAIDES 

1051 

c 

THE  END  POSITIONS  WIU.  BEGIN  AT  50  AND  THE  INCREMENT  SEGMENTS 

1052 

c 

WILL  BEGIN  AT  60. 

1053 

c — 

1054 


1059 

312 

P0«MAT(5X,'WILL  THE  END  ANCU  BE  THE  SAME  POR  ALL  SAMPLES: 

1056 

<  Y  >  J) 

1057 

314 

PORMAT(5X,‘END  POSITION  OP  ARM  <  DECREES  >  :  '4) 

1058 

318 

PO«MAT(5X,A2.-  END  POSmON  OP  ARM  <  DECREES  >  :  4) 

1059 

1060 

320 

IPOS-IPOS  +  1 

•  POSITION  TYPE  COUNTER 

1061 

!  1  - 

END  POSITION  AND 

1062 

!  2  - 

MCREMENT  OP  ANCU 

1063 

1064 

C— 

c 

THB  B  data  POR  THE  STOP  ANCLE  POSITION  POP  THE  SAMPLES 

1065 

1066 

c— . 

1067 

V(IP0S.EQ.I)THQ4 

!  THB  B  POR  END  POSITION  DATA 

1068 

BEG  -  46 

1069 

CALL  BITRPTIEEC.SEC) 

1070 

wiinEr.*)Eflw//5cc 

1071 

WIinEp,TE//TbfT4- 

•.  TEXT  COLOR  BLUE 

1072 

X  -  TOO 

1073 

Y  -  Y2 

1074 

CALLHIY(X.Y.A) 

1073 

WUmc.pBinjPffA 

•  SET  TEXT  ORICB4 

1076 

TEXT  -  7.  STOr 

1077 

WMIEr.TBrLTV/lIEXT 

!  WRITE  THE  TEXT 
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107t 

w«ire<*.*)E/rsc 

!  CLOSE  THE  SEGMENT 

1079 

1010 

MUM  -NUM 

!  INCREMENT  NUMERIC  VALUE 

1001 

XI  -  X 

10U 

Y1  -  Y  - 100 

1003 

imot  -  05 

<  ASCnVALUEOPA 

10M 

SAME  -0 

10U 

MUSE  -0 

1006 

1007 

330 

•  CLEAR  THE  DIALOC  AREA 

ion 

ion 

BAME  -0 

!  INmAUZE  DIFFERENCE 

1090 

WUIEfJll) 

•  IN  DATA  FLAG 

1091 

1092 

IEADr4.EMt-3]0)6AME 

1093 

»(5AME.EQ.'r.Oll.SAME.EQ.y)l5AME  ~  1 

1094 

carom 

1095 

END* 

1096 

1097 

1090 

C 

7HB  K  DATA  POO  THE  INCREMENT  OP  THE  SAMPLES  ANCLES. 

1099 

1100 

1101 

V(IFOS.EQ.])'niEN 

!  THIS  G  FOR  END  POSHION  DATA 

1103 

332 

K)IIMAT(5X,'WIU  THE  MCREMENT  K  THE  SAME  FOR  ALL  SAMPLES: 

1103 

<Y>-4) 

1104 

334 

FORMAT(5X.-  MCREMENT  OF  SAMPLE  STAGE  <DECREE$>  :  '4) 

1105 

336 

FO«MAT(5X,A2,-  MCREMENT  OP  SAMPU  STAGE  <DECREES>:  -4) 

1106 

BEG  -  5* 

1107 

CALL  MTRPT(BEC.SEC) 

1108 

wRrrEr,’)E/rsr/«Ec 

1109 

WRnEf,’)E//Ti*T4’ 

'  TEXT  COLOR  BLUE 

1110 

X  •  1400 

1111 

Y  -  Y2 

1113 

CAU  Hnf(X,Y.A) 

1113 

wRnEc.*)E//aP’//A 

!  SET  TEXT  ORICM 

1114 

TEXT  -  4.  MCI- 

1115 

WRnEr.’)E/n.Tr//TEXT 

!  WROETHETEXT 

1116 

WRnEr.*)B/4C 

CLOSE  THE  SEGMENT 

1117 

1118 

1119 

NUM  -  NUM  *  1 

1  MCREMENT  NUMERIC  VALUE 

1130 

XI  -  X 

1121 

Y1  -  Y  - 100 

1122 

LETTER-tS 

!  ASCII  VALUE  OF  A 

1123 

BAME  -0 

1124 

MUSE  -0 

1125 

1126 

340 

wRnEr,*)E//Tr 

<  CLEAR  THE  DIALOC  AREA 

1127 

1128 

IMME  -0 

•  MniAUZE  DIFFERENCE 

1129 

RmnETJSi) 

!  M  DATA  FLAG 

1130 

1131 

REAOraEin-540|6AME 
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1132 

1133 

1134 

1135 

1135 

c- 

ll><5AME.EQ/V.OR.SAME.EQ  -yTISAME  -  1 

CX)TO278 

ENDIP 

1137 

c 

THB  DKAWS  a  BUIE  UNE  FROM  THE  TEXT  INPUT  SCREEN  TO  THE  BUIE  UNE 

113S 

c 

UNDER  THE  SAMPLE.  AGENT  AND  CONCENTRATION  SECTION.  THIS  AREA 

1139 

c 

E  USED  AS  A  TEXT  INSTRUCTION  AS  TO  HOW  THE  USER  MIGHT  MAKE 

1140 

c 

A  CORRECTION. 

1141 

C- 

1142 

1143 

BEC-TS 

1144 

CALL  INTRPT(EEC,SEC) 

1145 

WRnEr,»)E//EK-//SEC 

1146 

WRnEr.*)E/rSC//5EC 

1147 

X  •  1000 

1146 

Y  -  lUNE 

1149 

CALL  HIY(X,Y.A) 

1150 

WRnEC.*)E//HIU- 

•  UNE  COLOR  BLUE 

1151 

WRnEr,’)E//TP'//A 

•  SET  LINE  ORIGIN 

1152 

Y  -  450 

1153 

CALL  HIYPI.Y.A) 

1154 

WRnEr.*)E//ljC-//A 

!  SET  UNE  END 

1155 

X  -  X  •  10 

1156 

Y  -  lUNE-lO 

1157 

CAILHTY<X.Y,A) 

1156 

wRnEf,*)E/nri/A 

!  SET  UNE  ORIGIN 

1159 

Y  -  450 

1160 

CALL  HIY(X,Y,A) 

1161 

WRItEC.TE/rLCV/A 

!  SET  UNE  END 

1162 

Y-IUNE.IO 

1163 

CAU.  HIY(X,Y,A) 

1164 

ynmr.'Tfjnrim 

!  SET  LINE  ORIGIN 

1165 

x-ws 

1166 

CALL  Hnr(X.Y,A) 

1167 

WRItEC.TBIXCV/A 

•  SETUNEEND 

1166 

X  -  4095 

1169 

Y  -  lUNE 

1170 

CALL  HTY(X,Y,A) 

1171 

WRnEr.’jE/rLF’I/A 

'  SET  UNE  ORIGIN 

1172 

Y-450 

1173 

CALL  HIY(X,Y,A) 

1174 

WRnEf,*)E//XC'//A 

•  SET  LD4E  END 

1173 

Y-IL«E-10 

1176 

X-X-10 

1177 

CALL  H1Y<X,Y,A) 

1176 

WRITEr.*)E/nr//A 

•  SET  LINE  ORIGIN 

im 

Y  -  450 

1160 

CALL  HrY(X.Y.A) 

1161 

WRnE<*.*)E/IXC-//A 

!  SETUNEEND 

1162 

1163 

c— 

1164 

c 

THB  PLACES  TEXT  14  THE  PANEL  THAT  WAS  JUST  OUTLINED  ABOVE. 

1169 

c 

TEXT  COLOR  BRED. 

■299- 


Appendix  IV 


11M  c - 

iw 

11M  IBCr-—  COMECnONS  — ~- 
11W 

mo  X  -  J350 

11*1  Y-IL»IE-]00 

im  CALL  Hiy(x.y.A) 

im  WRITEr.’)E//TP’//A 

im  mmcrtjrynr 

nos  WRnEC.*)E/n.TA<V/TO(T 

1196 

1197  TEXT  - 'Emtr*  ilnflt  numbfrta' 

1190  Y-Y-MO 

1199  XI -X- ISO 

1200 

1101  CALLHrY(X.Y,A) 

1J02  WlllIEr,*)B/TJ>-//A 

1J03  WlinEr.*)E//T««T4- 

1W  WlinEr,*)E//T.TA<7/1EXT 

1105 

1106  TEXT  *  'dMfift  ■  whoW  troup.' 

1107  Y  -  Y  •  100 

1106  CALL  mY(X,Y,  ’ 

1109  wtimr.’)C/nr,„.PPen(]ij^  J 

1110  WI(nEr.*)E/n.TA<7/TEXT 

1111 
1111 

1113  TEXT  ~  'En1*r  a  singla  number  with' 

1114  Y-Y-lOa 

ins  CAaHtY(X.Y,A) 

1116  wwiEr.’)E//ap'//A 

1117  WWTEr.’)E/rLTA<7/rEXT 
1116 

1219 

1110  TEXT  - 'a  Mer  ID  ctiinfe  a  apccMc' 

1111  Y  -  Y  - 100 

1111  CALLHnr(X.Y,A) 

1223  WMIEr.*JE//TP’//A 

1224  WMIEr.')B’/T.TA-7/tEXT 

1225 

1216  TEXT  -  -eMry  - 

1117  Y  -  Y  - 100 

1226  CALLHJY(X.Y,A) 

1229  WWIEf.’jB’/^P’/’/A 

1130  WIinEr.’)E/n.TA<7/TEXT 

1231 

1132 

1233  TEXT  -  rOESS  HETVItN  TO  CONTINUE 

1134  Y  -  Y  •  100 

1135  X  -  XI 

1236  CALLHIY(X,Y,A) 

1137  WUnEC.TBTLP'OA 

1136  WMTEr,l»rMrr 

1139  W«nEr,*)BrLT«r«TEXT 
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f 


IMO 

1J41  W«rrEr,*)E//^  !  END  THE  SEGMENT 

1242 

1243  C - 

1244  C  THE  PART  ALLOWS  THE  USER  TO  MAKE  CORRECTIONS  TO  ANY  DATA  HEM 

1245  C  BEFORE  MOVING  FORWARD. 

1246  C - 

1247 

1241  500  CHANCE  -0  I  INITIAUZE  CORRECTION  FLAGS 

124«  ITEM_CNC  -  0 

1250  START  -  I 

1251 

1252  345  WRrTEr.’)E//^Z’  !  CLEAR  THE  SCREEN 

1253 

1254  CORRECT  -  "  !  BgmALIZE  THE  ERROR  OsIFUT 

1255 

1256 

1257  350  FORMAT(5X.  ENTER  A  NUMBER  FOR  CORRECTIONS:  '4) 

12SB 

125* 

1260  WRlTEr,3S0) 

1261  READC,‘(A2)',ERR-345)CORRECT 

1262 

1263 

1264  V(CORRECT.EQ.")COTO  1000  I  USER  WANTS  TO  CO  ON 

1265 

1266  C - 

1267  C  THE  EVALUATES  THE  FIRST  CHARACTER  TO  MAKE  SURE  IT  B  A  NUMBER 

1266  C - 

1269 

1270  IF(ICHAR(CORRECT0:l))  CT.46  AND. 

1271  ICHAR<CORRECT0:1».LT.56)COTO  360 

1272  GOTO  345  <  FIRST  CHARACTER  WAS  NOT  A  NUMBER 

1273 

1274  C - 

1275  C  THE  CHECKS  THE  SECOND  CHARACTER  TO  SEE  IF  TTB  THERE  OR  THAT 

1276  C  IT  E  A  CHARACTER  FROM  A  •  H  DEFENDINC  ON  THE  NUMBER  OP  SAMPLES. 

1277  C - 

UTB 

1279  360  »(C0RRECT(2;2).EQ  ITHEN  !  USER  WANTS  TO  CHANCE  AN 

1290  !  ENTIRE  CROUP 

12B1  READ(CORRECTn:1L'(BN.I2)’.ERR-34S)NEWJNFUT 

1262 

13B3  lF<NEWJNFUr.LT.1.0R.NEWJNFUTCT6)C0T0  345 

1264 

1265  CHANCE  -  1 

1206  IP(NEWJNFUT.LT.61ITHEN  !  CO  CHANCE  SAMPLE  DATA 

1267  COTO(404046.I10.199)NEWJ4FUT  !  ITEMS  I -5 

1269  ELSE  !  STAGE  MOVEMENT  DATA 

1290 

1291  nNEW^FUTEQOyTHEN 

1192  IFOS-O 

1293  EEC -39 
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12M 

1295 

1296 

1297 
119« 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 
1306 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1316  C 

1319  C 

1320  C 

1321  C 

1322  C 

1323  C 

1324  C - - 

1325 

1326  KEAD(CO«XECT0:1V{BN,t2)'.ERR-345)NEWJNPUT  »  CNC  TO  INTEC 

1327 

1328  »<NFIVJNPUTLT.1.0».NEWJNPUT.Crr4)C0T0  34^  8AD  INPUT 

1329 

1330  LET  -  ICHAR<C0IWECT(2:2))  »  CNC  TO  INTEGER 

1331 

1332  - 

1333  C  THIS  CHECKS  FOR  CASE.  IP  INPUT  WAS  LOWER  CASE  I  MAKE  IT  UPPER 

1334  C  CASE  HERE.  ■  -  h  ti  ctfwgtd  lo  upper  gim 

tJSS  - - 

1336 

1337  W<tET,GT,S6.AND.VET.U.10S)THEN  •  ITS  VOWER  CASE 

1336  LET  -  LET  -  32  !  MAKE  LOWER  CASE 

133«  BNVW 

1340 

1341  »(IET.LT.65  OR.LET  CT.64  *  NOSAMPJCOTO  345  •  BAD  INPUT 

1342 

1343  C^ - - - - - 

1344  C  HERE  I  SET  GET  THE  SPECWIC  SEGMENT  NUMBER  I  NEED  and 

1345  C  THEN  I  SET  ETART  FOR  THE  CORRECT  ARRAY  VALUE.  I  ARM  A  SINGLE 

1346  C  event  data  flag  '  nEM_CNG  -  1  '  AND  I  GO  GET  THE  DATA. 

1347  C - - - - - 


*  -  70  !  START  POSITION  OP  X 

NUM  -  54  !  ASCII  VALUE  OP  6 

ElSEIP(NEWJNPUr.EQ.7)THEN 
IPOS-  1 
KEG  ~  49 

X  -  700  I  START  POSITION  OF  X 

NUM  -  55  I  ASen  VALUE  OF  7 


EI.SE1F(NEWJNPUT.EQJ)THEN 
IPOS  -  2 
BEG-99 

X  -  1400  !  START  POSITION  OP  X 

NUM  -  56  t  ASCII  VALUE  OP  6 

ENDIP 
Y1  -  Y3 

GOTO  275 

FNDIF 

ENDIP 


THE  PART  B  ENTERED  IP  THE  USER  IS  SELECITNC  A  SPECIFIC  HEM 
ON  THE  MENU  TO  CHANCE.  FIRST  I  GET  THE  INTEGER  AND  COMPARE  IT 
TO  THE  NUMBER  OP  SAMPLES  A  BAD  ENTRY  MEANS  DO  IT  AC  ADM 
THEN  I  TAKE  THE  SECOND  ENTRY  AND  MAKE  SURE  TTS  CORRECT  AND 
wrmiN  bounds 
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134t 


1M9 

START  -LET-64 

!  GET  ITEM  NUMBER 

1350 

SAME  -  0  ! 

9LAC  FOR  SINGLE  INPUT 

1351 

nEM_CNG  -  1 

!  FLAG  TO  JUMP  OUT 

1352 

1353 

LETTER  -LET 

1354 

1355 

I9(NEWJNPUT.EQJ)THEN 

!  CORRECTINC  A  SAMPLE  REM 

1356 

EEC  -  8  *  START 

•  THE  E  THE  SEGMENT  No. 

1357 

Y1  -  3400- 025 '(BTART-I)) 

!  Y  VECTOR  OF  SEGMENT 

135S 

GOTO  69 

1359 

1360 

1361 

c 

AGENT  DATA 

1362 

1363 

C— 

1364 

ELSEI9(NEWJN9UT.EQ.4)THEN 

•  CORRECTINC  AN  AGENT  ITEM 

1365 

B>(ACENTO).EQ.'NONE')COTO  345  !  CANT  FtCK  SPECmC 

1366 

NOTHING. 

1367 

136S 

EEC  -  18  *  ETART 

!  THIS  IS  THE  SEGMENT  No. 

1369 

Y1  -  2600 -035  •(START -I)) 

!  Y  VECTOR  OP  SEGMENT 

1370 

X  -  1500 

1371 

GOTO  138 

1372 

1373 

1374 

1375 

c— 

c 

CONCENTRATION  DATA 

1376 

1377 

c— 

137S 

ELSEI9(NEWJN9UT.EQ.5)THEN 

!  CORRECTINC  AN  AGENT  ITEM 

1379 

1300 

BKACENTOI.EQ.'NONETCOTO  345  !  CANT  PICK  SPEC19IC 

1301 

!  NOTHING. 

1302 

1303 

SEC  -  28  •  START 

!  THEE  THE  SEGMENT  No 

1304 

Y1  -  2600  -  035  •  (START  -  I)) 

!  Y  VECTOR  OF  SEGMENT 

1305 

X-  2950 

1306 

GOTO  215 

1307 

13W  C - 

I3W  C  SAMTU  STAGE  START  POSTTION 

JJ90  C - 

1391 

1393  ELSEIF(NEWJNPUT.EQ.6)THEN  !  CORRECTINC  START  POS 

1393  iros-0 

1394  EEC  -  3«  ♦  START  !  THE  B  THE  SEGMENT  No. 

1395 

1394  Y1  -  V3-(12S*(BTART-1))  !  Y  VECTOR  09  SEGMENT 

139T  Y1  -  Y1  -  200 

1390  X-  70 

1399  NUM  -  M  !  ASCH  VALUE  09 » 

1400  COTDZTI 

1401 
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1403 

c 

SAK4PLE  STAGE  STOP  POSITION 

1404 

1405 

1406 

ElSEIP(NEWJNPUT.EQ.7)THBg 

!  CORRECTING  STOP  POS 

1407 

IPOS-  1 

1406 

BEG  -  45  ♦  START 

!  THBB  THE  SEGMENT  No. 

1409 

VI  -  V3 -025*  (START -1J) 

!  Y  VECTOR  OF  segment 

1410 

X-200 

1411 

Y1  -  Y1  -200 

1412 

NUM  -55  t 

ASCn  VALUE  OF  7 

1413 

GOTO  275 

1414 

1416 

c 

SAMPLE  STAGE  INCREMENT 

1417 

c 

1416 

1419 

E1SEIP(NEWJNPUT.EQ.5)THEN 

!  CORRECTING  INCREMENT 

1420 

IPOS  -2 

1421 

BEG  -  55  «  START 

!  THBE  THE  SEGMENT  No. 

1422 

Y1  -  Y3  -  025  •  (START  -  1)) 

!  Y  VECTOR  OF  SEGMENT 

1423 

X  -  1400 

1424 

Y1  -  Y1  -  200 

1425 

NUM  -  56  t 

ASCn  VALUE  OF  5 

1426 

GOTO  275 

1427 

1425 

1429 

ENDff> 

1430 

1431 

1000 

RETURN 

1432 

END 

■304- 


Appendix  IV 


AIV .25  Analog  APSD  Software  Modules:  TEK^TEXT  Source  Code. 


1  SU»OUTTNE'reie'reXTaXTJPU:,PORT,EESET,ANS,ANALYTt, 

2  AMOUNT.IESOp 

3 

4  C - 

5  C  THE  ROUTINE  E  CALLED  lUST  TO  WUntCRAmiC'mTPOit'mE  USER 

«  C 

7  C  TXT  JLC  -  1 

S  C  nRSTTHEPORTSETTINCS  ARE  DEFINED  AND  THE  USER  E  REQUESTED 

9  C  TO  ENTER  THE  FORT  UFON  WHICH  ALL  COMMUNICATIONS  WILL  TAKE  FLACE. 

10  C 

n  C  TXT_FIjG  -  2 

12  C  HERE  THE  USER  BASKED  IF  THE  REAL  TIME  CRAFHICS  WILL  BEUSED 

13  C  OR  A/D  VOLTAGES  DEFLAVED  OR  IF  NO  OUTPUT  AT  ALL  E  DESIRED. 

14  C 

15  C  TXTJLC  -  3 

1«  C  THE  FART  BUSED  TO  TELL  THE  USER  TO  APPLY  AGENT  TO  THE 

17  C  SAMPLE  AND  HOW  MUCH. 

IS  C 

19  C  TXT_FLC  -  4 

»  C  THE  TELLS  THE  USER  THAT  A  SPECIFIC  LASER  B  READY  TO  BE 

21  C  CALCULATED. 

22  C 

23  C  FORT  -  THE  SERIAL  COMMUNICATIONS  PORT  SUPPLIED  BY  THE  USER 

24  C  SENT  BACK  TO  THE  CALLER 

23  C 

25  C  RESET-O  I  SENT  PROM  THE  CALLER 

27  C  draw  THE  CRAFHICS  PANEL  FOR  TEXT 

C 

29  C  RESET-  1 

X  C  OONTDO  ANYIHINCTOTHEPANELDRAW/DEIETE 

31  C 

32  C  RESET-  2 

33  C  delete  THE  PANEL  AND  TEXT 

34  C 

35  C  ANS  -  CHARACTER  NUMBER  1,2  OR  3.  FOR  THE  TYPE  OP  OUTPUT  THE 

»  C  LEER  WOULD  UKE  TO  HAVE  FOR  THE  EXPERIMENT. 

37  C  SENT  BACK  TO  THE  CALLER 

3S  C 

39  C  ANALYTE -THE  CHEMICAL  THAT  B  TO  BE  APPLIED  TO  THE  CURRENT 

40  C  SAMPLE.  SENT  IN  FROM  CALLER. 

41  C 

42  C  AMOUNT  -  THE  amount  OF  THE  CHEMICAL  that  E  TO  BE  USED  ON  THE 

43  C  CintRENT  SAMPLE.  SENT  IN  FROM  THE  CALLER 

44  C  EXIT- FLAG  THAT  USER  WANTS  TO  EXIT  THE  PROGRAM 

45  - - 

46 

47  CHARACTER  E,SEC^,A’S,A1*S,TEXr«a.FORT'tO.ANS’1,PINEHEEP1 

4B  CHARACTER  ANALYTE^.AMOUNT*15 

49 

50  MTECER  X,Y,TXT_PLC,RESET 

51 
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52 

E-CHAUpT) 

53 

54 

55 

WMrep,*)E//xv(r 

56 

WBITEr.*)E»Ti' 

57 

55 

59 

BEC-OOO 

to 

CAU.  VnilPT(EEC,SEC) 

61 

62 

63 

IF<KESET.EQ.2)THEN 

!  CLEAR  THE  WHOLE  VIEW 

M 

65 

WRirEf,*)E/«l£'//SEC 

!  DELETE  SEGMENT  900 

66 

SEC -901 

67 

CALL  INT1tpr(EEC.SEC) 

6S 

WIITrec.*)E/«ICV/SEC 

!  DELETE  SEGMENT  900 

69 

WMIEC-TE/ZTCNO' 

!  RENEW  THE  VIEW 

70 

GOTO  1010 

71 

n 

ELSEIP(RESET.EQ.O)THEN 

73 

74 

WRnEC,*)E//^r//5EC 

1  BEGIN  SEGMENT  900 

75 

1  USER  WANTS  A  RED  PANEL 

76 

WlinEC,*)E//Ti4P- 

•  PANEL  COLOR  RED 

77 

WI«fIEr,’)B/1iflT 

!  TEXT  COLOR  YELLOW 

78 

V«nEr,*)E/rMLV 

!  LINE  COLOR  WHOE 

79 

X  -  300 

50 

Y-2flOO 

51 

CAU  HIV<X,Y.A) 

«2 

wRnEc,*)Bnj>'//A/ri  • 

>3 

M 

X-  X  *3095 

55 

CALLHnr(X,Y.A) 

56 

WIinEr,*)E//TC'//A 

S7 

55 

Y-  Y-2000 

5» 

CALLHIY(X,Y.A) 

W 

WBnEr.*)E/ru:7/A 

•1 

93 

X-  X-309S 

*3 

CALLHIY(X,Y.A) 

94 

WIUrEC,*)E/rLCV/A 

95 

56 

WUnEC.TE/i^ 

97 

n 

ENDIF 

99 

IflD 

C— 

101 

c 

THE  EMtAWS  THE  TEXT  IN  THE  PANEL 

103 

c- 

loa 

m  BGC-«01 

ia 
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4 


i- 


» 


106 

107 

100 

10« 

110 

111 

112 

113 

114 

115 

116 
117 
110 

119 

120 
121 
122 

123 

124 

125 

126 
127 
120 

129 

130 

131 

132 

133 

134 

135 

136 

137 
130 

139 

140 

141 

142 

143 

144 

145 

146 

147 
140 

149 

150 

151 

152 

153 

154 
ISO 
196 
157 
150 
199 


CAU  INnUT(BEC,SEC) 
WRrrer.*)B«K’/«EC 

WltnCC.’)E/7Sr//5EC 

IIK1XTJIjG.EQ.1)THEN 


!  DELETE  SEC6(ENT  901 
!  RENEWTT1EVIEW 
!  BECINI  SEGMENT  901 

!  SET  rORT  PARAMETESS 


X-IOOO 

Y-2500 

CAU.  HIY(X,Y,A) 

WIinEr.TE/PLP-//A 

TEXT  -  'THE  communications  PORT  MUST  BE  DEFINED  WTTH- 

WR^E^,•)E//^'^»•//rexT 

Y-  Y-150 

CALLHIY<X,Y.A) 

WRITE(*,*)E//XP-//A 


TEXT  -  THE  POUOWINC  PARAMETERS:' 
WRnEf.’)E//T.TDO'//IEXT 


X-X42a0 
Y- Y-300 
CAU  HIY(X,Y,A) 

WRnEr.’)E//XF'//A 

TEXT  -  "9600  BAUD  NO  PAWTY- 

WRirEf,‘)Bn,TIXr//IEXT 
Y-  Y-150 
CAUHIY(X.Y,A) 

WBnEr.’)E//TP'//A 

TEXT  -  -O  BTIS  1  STOP  BIT 
WRnEr,*)E/n,TDO'//IEXT 

Y- Y-130 
CAUHTY(X,Y,A) 

ynmc-'y^nriiA. 

TEXT-'NOECHO  NOLOCALECHO 

WRnEr.TE/n.TTXr/TIEXT 

Y- Y-1S0 
CAUHIY<X,Y,A) 

WRnEr,*)E//V//A 
TEXT  -  TASSAU  MODE  ' 
wRnEr,TE/n.TT¥r/nEXT 

Y- Y-300 
CAUHIY(X,Y,A) 

WRnEr,*)E77Lr//A 

text  -  'PRESS  return  FOR  DEFAULT  PORT  <  TXA2:  >' 
TWIEr.TBPLnxr/riEXT 

Y- Y.380 
CAUmY(X.Y,A) 
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140 

wi»rrEr,Te//TP’//A 

1*1 

TEXT- THE  SEKIAL  FORT  NAME;  ' 

142 

WRnEr,’)E/n.TT)0'//IEXT 

143 

144 

WtnEC.’JEiifSC 

145 

144 

WRItET.TB/TJTjr 

!  TEXT  YELLOW  ON  RED 

147 

WRnEf,*)E/nir 

1  DIALOC  AREA  2  LINES 

144 

WRnEr,»)E//xc' 

)  DIALOC  AREA  10  CHARACTERS  LONG 

149 

170 

x-auo 

171 

Y- Y-90 

172 

CAU.HIY(X,Y  A) 

m 

WRnEp,*)E/AUr//A 

174 

175 

WRIIE(»,TE//XV1- 

174 

50 

WRnET.’jBTLZ' 

177 

REAOr,  (AS)'.E*R  -  SOjFORT 

174 

179 

c- 

140 

c 

CHECK  FOR  PORT  DEFINmoN  ERRORS 

141 

c- 

142 

143 

IP(PORT(1:1).EQ.CHAR01«))FORT(1:1)  -  T 

144 

IF(FORT(2J).EQ.CHAR<12a))FORT(2J)  -  TC 

145 

V(FORTOJ).EQ.CHAR<97))PORT(3J)  -  -A- 

144 

147 

IW3RT.EQ.-  TTHEN 

!  USER  Wants  default 

144 

FORT  -  TXAl- 

!  SERIAL  FORT 

149 

GOTO  1000 

190 

ENOIF 

191 

192 

■WRTnJj.EQ.TXATTHBl  1  THESE  ARE  THE  SERIAL 

193 

1  FORTS  MUSING 

194 

195 

00401-14 

!  LOOFTHRUO-7 

194 

V(F0RT(4;«).EQ.CHAR(47  *  I))COTO  70 

197 

40 

CONTWUE 

194 

199 

GOTO  JO 

!  BIFUT  WAS  BAD  DO  rr  AGAIN 

200 

70 

FORTpj)  - 

(  MAKE  SORE  YOU  END  WITH  A  COLON 

201 

202 

ELSE 

203 

GOTO  SO 

!  BADMFUT 

204 

END* 

204 

204 

c— 

207 

c 

HERE  THE  USER  B  asked  TO  SELECT  THE  TYPE  OF  OUT  Firr  DESIRED 

204 

c— 

209 

210 

ELSEIR(mjLC.EQ4]THEN 

211 

212 

X  -  low 

213 

Y-2SW 
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t 


* 


214 

115 

214 

217 

2U 

21« 

220 

211 

221 

223 

224 

225 
224 
227 
220 
22« 

230 
211 

231 

133 

234 

235 

134 
237 
230 
23* 

240 

141 

242 

143 
244 
145 

144 
247 

140 
14* 

290  00 

191 

292 

293 

294 

295 
294 

297  C- 
290  C 
29*  C 
100  C- 

141 


CALL  Hnr(X,Y,A) 

wiiiref,*)B/xr//A 

TOCT  -  'OfTEX  THE  TY?E  OP  OUTPUT  OESIREI):' 
WIinEr,*)E/aTOO'//TEXT 

Y  -  Y-400 
CALLHIY(X,Y,A) 

vnmr.'yanruA 

toot-  "I.  UAL TMETEKTHONK  GRAPHICS  OBnAY- 
WUnEC-TS/'T-IDO'/ZTEXT 

Y  -  Y  - 190 
CAU.HIY(X.Y.A) 

WRnEf,TE/rLr//A 

TEXT-  1.  REAL  TIU  A/D  channel  voltage  OUTPUTS' 
WRnEr.*)E/rLTTxr//rEXT 


Y- Y-150 
CALLHIY(X,Y,A) 

i«nEr,*)E//v//A 

TEXT-  -s.  NODBPLAYOPDATA- 

WRIIEf,•)E//^TD0•//TEXT 


WRnEr,*)E/«C  I  END  THE  SEGMENT 


1«nEf,*)E/nj722'  !  TEXT  YELLOW  ON  RED 

WRITE<*.’)E//TXr  I  DULOG  AREA  2  LINES 

WRnEr.*)E//ajO'  •  dialog  area  lO  characters  long 

X  -  2000 
Y- Y.300 
CALLHIY(X.Y.A) 

WRnEr.TE//TX«A 


WRnEr.*)E//T.V1- 

WRnEC,TE//EZ' 


READT.W.EU-OOIANS 

»(ANS.EQ.T.04LANS.EQ.T.OR./WS.EQ.'3TCOTO  1000 
GOTO  00 


POT  THE  ANALYTE  ON  THE  SAMPLE.  THESAMPLE 
MOVED  TO  THE  CORUCT  POSITTON  TO  ADO  THE  CHEk4ICAL 


142  SLSaP(TXTJlC.EQJpHEN 

143 

IM  X-  1000 

200  y-  2000 

H*  CAUHIY(X.Y.A) 

247  WRnsr.nEffVXA 
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JM  reXT-  'niE$AMn£6NOWREADYPOI(THE'//ANALYTC 

IW 

270  WUTE(>,«)E//TTDO'//TXXT 

271 

272  V-Y-200 

273  CAU.MIY(X.Y,A) 

27«  V»«IIEc,»)E//TP’tfA 

273  TCXT-  TIXASE  APPLY;  '//AMOUNT//- TO  THE  SAMPIT 

27*  W«nEC,*)E//X'n)0'//TEXT 

277 

270  X-X4tS0 

273  Y-Y-300 

210  CAU.MIY(X,Y.A) 

201  WlinEr,’)E//XP’//A 

212  TEXT-  -PUSS  TO  CO  ON- 

213  W«nE<*,*)E//XTI>0'//IEXT 

214 

213  WWIEC,*)E/7SC  •  END  THE  SEGMENT 


217  IIEADC,-(A)',EIUt-1000)PmKHEO 

m  READ(>.‘(Ar.EM-1000)PINBHED 

m 

MO  C - — - 

2*1 

2*2  ELSEVnXT..PljC.EQ.4)THEN 

2*3 

2*4  X  -  1200 

2*3  Y-  230O 

2**  CAUHIY<X.Y,A) 

2*7  Mimtf.’yEinriiA 

2*1 


2** 

300 

301 
300 

303 

304 
303 
30* 
307 
300 
30* 

310 

311 

312 

313 

314 
313 
31* 
317 
310 
31* 

310 

311 


TEXT  -  tune  lASEX  No.  '//ANS//-  TO  WAVELENGTH:  '//ANALYTE 
WIinE<’,*)E//T.TD0'//TEXT 


X-050 
Y- Y-OOO 
CAUMIY(X.V,A) 

W«nE<*.TE//TP'//A 

TEXT  -  '  PUSS  UTURN  WHEN  THE  CALIBKATION  B  COMPLETE' 
Wl»nE<*,*)E//LTO0'//IEXT 

ynmc.'ifjnc  •  end  the  segment 

UADr,'(A)',EIUI-  1000)PINBHED 
ELSE 

nrr-0 

ENDIP 


1000  WWTEp.TEffXVO' 
wiiiiEp,*)Bnr 
WlinXr,*)E«TJ144' 
w«nEr,*]Emr 
x-o 


(  OKAEU  DIALOG  AREA 
I  CLEAR  OULOC  AREA 
I  TEXT  WHITE  ON  ELUE 
I  DIALOC  AREA  2  LB4E5 
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322 

Y-O 

3X3 

CAU.HIY(X.Y.A) 

324 

vnmc.ifjnxuA 

1  RESET  DIALOC  AREA  POSmON 

335 

winEc.pE/nxxD’ 

1  DIALOC  AREA  to  CHARACTERS  LONG 

3X4 

327 

1010  RESET  -  0 

1  RESET  THE  PANEL  DEUDRAWFLC 

32t 

RETURN 

329 

330 

END 
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AIV.26  Analog  APSD  Software  Modules:  TERM_JhlFO  Source  Code. 


I  SUROiniNETmUhnO(nintCNUM.JtANES.TOT_MEM,niEE_MEM, 

I  .  IVEIISON,OrT_NlAI,OrT_INK» 

3 

4  C - 

5  C  THBKOUTINEWRI  FOU.  THE  ItRMINAL  THAT  YOU  ARE  LOGGED  IN  ON  TO  SEE 
*  C  what  TEKTRONIX  MODEL  •TTG  (AND  IF  rr  BA  TEK  TERMINAL  AT  ALL),  AND 

7  C  Also  WILL  TRY  TO  DETERMINE  HOW  MANY  BTT  PLANES  THE  TERMINAL  HAS 
t  C  MSTAUED, 

«  C  THE  TOTAL  MEMORY  RISTALLED,  THE  AVAILABU  MEMORY.  AND  THE  FIRMWARE 
10  C  VERSION 

II  C  NUMKR  FOR  THE  TERMINAL  (AND  Also  THE  firmware  VERSXJN  NUMBER  FOR  ONE 
U  C  ADDtnONALOFTION,  IF  REQUESTED) 

13  c - 

14  C  PARAMETERS; 

15  C 

M  C  lUT  -THE  LOGICAL  UNIT  4  OP  the  TERMINAL  FOR  lA)  PURPOSES 
17  C  TTERM  -  THE  B<nEGER  CONTAINING  THE  TERM  TYPE  (I.E.  '4I2SY 
M  C  NUVCPLANES  -  THE  ACTUAL  4  OP  BTT  PLANES  IN  THE  TERMWAL.  (RETURNS 
1«  C  NUM-PLANES--I  IP  CANNOT  DETERMINE  THE  4  PRESENT) 

»  C  TOTJilEM  •  TOTAL  AMOUNT  OF  MEMORY  INSTALLED  IN  THE  TERMB4AL(K  BYTES) 

21  C  PREE_MEM  •  MEMORY  PRESENTLY  AVAILABLE  FOR  USE  (K  BYTES) 

22  C  IVERSION  -VERSION  NUMBER  OP  THE  STANDARD  FIRMWARE  IN  THE  TERMINAL 

23  C  Orr J4UM  -  AN  OPTIONAL  FIRMWARE  VERSION  NUMBER  REQUEST(0-NO  REQUEST) 

24  C  OPTJNPO  -  THE  RETURNED  VALUE  FROM  OPT.NUM-  CALL  ABOVE 

25  C - 

2*  C 

27  CHARACTER  Pl,VERSI0N*3.0PT_NUM’2.0PTJNF0*3 

2B  CHARACTER  A*30,Atn,ATERM*3,PI 

24  MTEGER  TOTJMEM.PREE_MEM,OPT22.0PT23 

30  C 

31  C - 

32  C 

33  E-CHAROT)  !  ESCAPE  CHARACTER 

34 

35  C  THE  POLLOWMGWIUDETERMBVE  IP  THE  TERM  BA  TEX  GRAPHICS  TERMINAL 

3B 

37  WRnEr.*)Eff^2r  (  PUT  TERMINAL  BOO  TER  MODE 

3B  wtmr.’^sjrvw  i  make  dialog  area  invisible 

34  WRnEp,*)E//TQIT  !  GET  THE  TERMINAL  TYPE 

40 

41  5  READr,I.ERR-S)A 

42 

43  WIA.EQ .'TCOTO  100  I  USER  HIT  <CR>.  SO  NOT  A  TEK  TERM 

44  BTAdiD  NE  TTIGOTOiaO  •  RVCORRECT  TERMINAL  RESPONSE 

45 

44  UDO-  ICHAII(A(3J»  <  32 

47  UDOl  -  ICHAR4A(4;4»  «  32 

4B 

44  ATIRM-AO;5) 

50 

51  CAU.OKODC(ATERM.rTERM)  >  CONVERT  TEX  CHAR  CODE  TO  B4TEGER 
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4 


n 

SI 

54 

55  V(rmM.EQ.4111)THEN  I  — POft  41  It  TERMINAL  ONLY — 

56 

57  WRnEr,*)E//TQ7P'  I  TOTAL  MEMORY(4  OP  16  BYTE  BLOCKS) 

56  10  KEADr,t,ERR-IO)A  !  (4111  OPTIC  PACED  MEMORY) 

5» 

60 

61  ATERM-AO-J) 

62 

61  CALLDE(X)OE(ATERM,TOT_MEM)  !  CONVERT  TEX  CHAR  CODE  TO  INTECER 

64 

65 

66  ATEXM-A(64) 

67  CALLDECOOE(ATERM,PREE_MEM)  f  CONVERT  TEK  CHAR  CODE  TO  IN1ECER 

61 

6*  ELSE  I  —  ALL  OTHER  TERMINALS  — 

70 

71  WRnEc,*)E//TQniir 

72 

71  10  READ<>,1,ERR-20)A 

74 

75  ATERM-AO-S) 

76 

77  CAlLDCCOOE(ATERM,TaT_MEM)  I  CONVERT  TEK  CHAR  CODE  TO  INTECER 

7B 

n  ATERM-A(6:6) 

60  CALLDECOOE(ATERM,PREE_MEM)  !  CONVERT  TEK  CHAR  CODE  TO  INTECER 

It 

62  I  INKB 

n  END  V 

64 

65  WRfTEr.’TEOTQOO’  I CET  THE  STD  PIRMWARE  VERSION 

16  REAOr,1.ERR-]0)A 

r 

16  X  VERSION-AO:5) 

66 

60  CALL  DECODE(VERSION.IVERSION)  !  CONVERT  TEK  CHAR  CODE  TO  INTECER 

61 

62 

61  V(nERM.EQ.4115.0R.rTERM.EQ.4t26.0R.rTERM.EQ.4126 

64  .  ■0ILITERM.EQ.4225.0R.rTERM.E(3.4116)THEN 

65 

66  1VRfTEr.’)EirTQ2r  I  CET  THE  OPT22  MPO 

67  40  READr,1,ERR-40)A 

66 

66  CALLDEC00E(A(3JL0PT22)  I  CONVERT  TEK  CHAR  CODE  TO  MTECER 

100 

101  WRnEr.*)E<nQlT  I  CET  THE  OPTO  MPO 

1(0  SO  IIEADC,l,ERR-SO)A 

101 

104  C:ALLDKOOE(AaJLOPriD  I  CONVERT  TEK  CHAR  CODE  TO  BHECER 

MB 
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106  IP(Om2.EQi).ANP.OPn3.EQ.l)THEN 

107  NUM_PIANES-0 

too  EUE 

10»  NUM_nANES-4 

no  END  IP 

111 

112  ELSE 

113  NUM_nANES-4 

114  ENDV 

115 

116  GOT0 1000  I  DONE.  SO  EXTT 

117 

110  100  CONTINUE  !  NOT  A  TEK  TERMWAl.  SO  EXTT 

119 

120  TTEKM-O 

121  NUM_PLANES  -  -1 

122 

123  C- - — - 

124 

125  1  PO«MAT(A20) 

126 

127  1000  CONTINUE 

120  OETURN 

129  END 
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-27  Analog  APSD  Software  Modules:  TIME4  Source  Code. 

1  SUBRCXrmE  TIME4(DBUFF.TBUFF) 


4  C  SUnoUTINE  TO  GET  AN  ASOI STWNC  WITH  THE  DATE  AND  TIME 

5  C - - - 

7  CHAilACIEK'9  DeUFP 

a  CHARACTER'S  TBUn> 

10  CAU.DATE(DeUPP) 

11  CALETTMEORUFF) 

12 

13  RETURN 

14  END 
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AIV.28  Analog  APSD  Software  Modules:  TWATT  Source  Code. 


\  suBncxniNE  TWArr(iwnM) 

1  - - 

3  C  SUBROCT1NE  TO  WAIT  K3R  TWTIM’  TENTHS  OF  A  SECOND  AND  THEN  RETURN 

4  C— - - 

5  C  ARNE  A.  JOHNSON,  21  APRILSS 

*  - - - 

7  REAL  TIMEl.PWTIM.TMIN 

I  MM-1 

9  FLAC-O 

10  c- — — - 

II  C  TIME  DELAY  LOOP  (FOR  1WT1M  TENTHS  OF  A  SECOND) 

12  C 

13  1F<IWnM.EQ.O)GOT0 1000 

14 

15 

16  100  CONTINUE 

17  IFLAC-IPLAC«1 

18  T1ME1-SECNDS<0.0) 

19  PWTIM-PLOAT(IWT1M) 

10  TMIN-PWTIMnO. 

21 

22  SO  CONTINUE 

23 

24  OOS5M-1.20  !  MEANINGLESS  CALC  TO  TAKE  UP  TIME 

25  MM-KTIO^MM 

26  55  CONTINUE 

27 

28  DELTA -SECNDSfllMEI) 

29  C  WRITET.’JDELTA 

30  IF(DELTA.LT.TMIN)COT0  50 

31  c  CLOSEO) 

32 

33  1000  return 

34  END 

35 

36 

37  S 

38  SUBROUTINE  TWATIjiwTTM) 

39  - - - - - - 

40  C  SUBROUTINE  TO  WATT  POR  TWTIM'  TENTHS  OF  A  SECOND  AND  THEN  RETURN 

41  - - - 

42  REALT1MEl,PWTIM.TMIN 

43  MM-t 

44  riAC-O 

45  C - - - - 

46  C  TIME  DELAY  LOOP  (POR  TWriM- tenths  OF  A  SECOND) 

47  c 

48  V(IWT1M.EQ.0)CCnO  1000 

49 

50 

51  100  CONTWUE 
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5J  nOAC-IFLACtl 

53  T1MEl-SECNDS<p.O) 

5«  pwnM-nx>AT(iwnM) 

55  TMIN-PWlMno. 

56 

57  50  CONTINUE 
56 

59  DO  55  M- 1  JO  !  MEANINGLESS  CALC.  TO  TAKE  UP  TIME 

60  MM'M*10«MM 

61  55  CONTINUE 

62 

63  DELTA-SECNDS(nt<E1) 

66  C  WIUTEr.*)DELTA 

65  IF(DELTA.LT.TMIN)COTO50 

66  c  CLOSED) 

67 

66  1000  RETUItN 

69  END 
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AIV .29  Analog  APSD  Software  Modules:  V45  Source  Code. 


SUBROUTINE  V*5(BHOT5,INUSE.ICNT.6,SAMMaNCR.RARM.REND. 
.ANCl£.Sn>) 


4  C - 

5  C  THE  MOD  CAPTURES  THE  DATA  FOR  THE  POLARIZERS  IN  POSITION 

t  C  VEimCALMSdcg.  TWO  ARRAYS  ARE  USED  TO  SAVE  THE  DATA. 

7  C  bray -EASEQUENTUL  ARRAY STORININCAU THE DATARECEIVEDPROM 
S  C  THE  A/D  CONVERTER  THRU  THE  ENTIRE  ROTATION  OF  THE  SAMPLE. 

»  C 

10  C  ERAY-EAREFRESENTATION  OF  THEENTTRE  MATRIX.  NINE  ELEMENTS 

11  C  WILL  BE  PASSED  IN  FROM  THE  A/D  CONVERTER  OF  WHICH  ONLY  I  WILL 

IJ  C  BE  new.  THEY  ARE  :  (9,10,12)  FROM  THE  1,2,4,9,10,1LI3,I4,I6. 

13  C  CAPS  WILL  BE  LEFT  IN  THE  ARRAY  TO  BE  FILLED  IN  BY  THE  OTHER 

14  C  TWO  POSSIBLE  POLARIZER  SETTINCS. 

15  C - 


18  CHARACTER  SAMP*20,MSC’Sa,MESC’2SS,DST>10,HEX>4 

W  CHARACTER  CHANaPORT»IO 

10 

11  REAL  roat,aray,bray,cray,dray,eray,rincr,rend,ancle,rarm 

12 

23  *nECERSTP,iaNC,REPORT,TYPE,CEroAT 

24 

15  dimension  CEIDAT(14),ROAT(16),|iP),HEX(14) 

14 

27  COMMON  /MATTUX/ARAY(3MO),BRAY0600),CRAY(3«»),DRAY(3400), 

28  .  ERAY(5800) 

29 

30  Data  |i  79,10,12/  i  new  matrix  array  elements 

31 

32 

33 

34  C 

35  C 

36  C 

37  C 

38 

39  WRnEO,'(A4rriX0  •  i  reset  cumm  position  counter 

40  CALLTWAirp) 

41 

42  WRnE(3,'(A38)0'3PS  3Sn  3V10  3A10  30-225000  3C  3CR  C  ' 

43 

44  READP,(ASO)TMSC(1JO) 

45 

46  CALLTWAir(1) 

47 

48  WRnEO.(A5)T3STO  • 

49  CALLTWAirp) 

50  WRnEO,'(A13)T1PS  1STT  IH  • 

51 


BWEEP-2  I  FLAG  THAT  THIS  B  2ND  SWEEP 

I  OP  THE  POLARIZERS 


THB  MOVES  THE  POLARIZERS  TO  THE  PROPER  POSITION: 

RECEIVER  POLARIZERI  AXB  3  )  MOVES  -229000  STEPS  OR  -45  DECREES 
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32  INUSE1  -0 

SJ  C - 

54  C  HEIIE  BEGINS  IHE  LOOP  WHERE  SAMPLE  DATA  E  TAKEN  AND  STORED 

55  C - 

36 

57  DO200M-1,EHOTS  !  LOOP  THRU  THE  SAMPU  ROTATION 

3B 

5»  C - 

60  C  HERE  E  WHERE  1HE  A/D  CONVERTERS  ASKED  FOR  THE  DATA 

61  C - 

62 
61 

64  C  CAUTESIDAT(EWEEP,ANCLE.RDAT) 

63 

66  Kl  -  11 

67  TYPE -3 

66  CALL  DATEmYPE.REPOKT.PORT,ia  .CHAN.RDAT.HEX) 

69 

70  C - 

71  C  HERE  EACH  ARRAY  E  SELECTED,  WRrrlEN  TO  AND  INCREMENTED 


72 

c - 

73 

7A 

DO  100 1  -  10.1.-1 

73 

IRAY(E)  -  RDAT(I) 

!  STORE  THE  10  ARRAY  ELEMENTS 

76 

E-E-1 

1  ARAY  SEQUENTIAL  COUNTER 

77 

100 

continue 

76 

79 

•0 

c — 

II  C  HERE  ONLY  THREE  ELEMENTS  OF  THE  ERAY  MATRIX  ARE  NEW.  THEY  ARE 

62  C  ELEMENTS  9.10,12.  THEY  ARE  STORED  IN  THE  RDAT  ARRAY  IN  POSmONS 

63  C  4.3,6  RESPECTIVELY.  I  USE  Tl  TO  SET  THE  CORRECT  SEQUENCE. 

M  C - 

63 

66  n  -  3  !  START  FT  IN  RDAT  ARRAY 

67  DOISOI-IJ  !  LOOP  THRU  THE  3  NEW  ELEMENTS 

IB  K-|1(|)tlCNT  I  SELECT  CORRECT  ARRAY  ELEMENT 

19  ERAY(K)  -  RDATO  *  tl)  !  PLACE  MATRIX  DATA  IN  ERAY 

90  ISO  CONTINUE 

91 

*2  C - 

93  C  THE  OUTPUTS  THE  DATA  EITHER  BY  GRAPHICS  OR  A/D  VOLTAGES  OR  NONE 

94  C  AT  ALL  DEPENDING  ON  THE  FLAG  STP. 

93  C - 

96 

97  V(STP.EQ.I)THEN  f  REAL  TIME  TEK  GRAPHICS 

91 

99  CAILDRAW,JLE<EWEEP.ANC1£.RARM.RINCR.REND,RDAT.INIEE1) 

100  GOT0 160 

101  END* 

un 

103  P(STP.EQJ)COrD  160  I  NO  OUTPUT 

104 

MS  CALLVCW(SAMP,ANCLE.E,STP,IDIR) 
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t06 


107 

160 

■V>I.EQ.BHOTS)COTO  200 

101 

100 

ANCLE  -  ANCLE  -  WNC*  !  NEW  SAMPLE  ANCLE 

110 

111 

•CNT-KNT-IO  1  decrement  THE  ARKAY  BY  16 

112 

113 

114 

C— 

11$ 

114 

'**nE(3/(A9n‘1C  1X1  c  • 

117 

READp/(A30r.ERR  -  200)MESCC  JO) 

110 

CALLTWAITO) 

119 

READ(MESG(14J2),‘(BN,R)'.ERR  -  200)MOnON 

• 

120 

IC34C  -  MOTION  -MBUP 

121 

MBUF- MOTION 

122 

170 

PORMAT{5X,U,10X/  ACCUMULATED  MOTION:  -,19, 

123 

■  RELATIVE  MOTION:  ',»//) 

124 

D 

WRfIEC,170)M, MOTION, KNC 

123 

WRnE(3,'(A4)TlPS  • 

12* 

CALLTWAnp) 

127 

200 

CONTTNire  1  LOOP  THRU  ROTATIONS 

120 

129 

C— 

130 

c 

AT  THB  POQ4T  THE  DATA  COLLECTION  POR  POLARIZERS  POSmONED  AT 

131 

c 

VERT1CAL/4S  deg  IS  COMPLETE.  WE  NOW  RETURN  TO  THE  CALLER 

132 

c 

WHERE  THE  NEXT  POLARIZER  SETTINC  Wai  BE  MADE  AND  THE  SAMPLE  WIU 

133 

c 

EE  RETURNED  TO  THE  START  POSIHON. 

134 

c— 

133 

136 

WRnE(3,'<A3)TlSTO  •  !  DEENERGIZE  SAMPLE  MOTOR 

137 

131 

400 

RETURN 

139 

END 
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AIV.30  Analog  APSD  Sofhoare  Modules:  VIEW  Source  Code. 


1  SUMtOUIINE  VIEW(SAMP.ANCl£.E.5TP.IDIR) 

2 

3  C - 

4  C  IHE  ROUTINE  BUNGS  ALL  THE  ARRAY  DATA  TO  niE  SCREEN  POK  EACH 

5  C  ANGIE  THAT  data  E  TAKEN  FOR.  THE  REASON  E  TO  BE  ABIE  TO  COMPARE 

4  C  THE  MATRIX  DATA  AS  THRU  THE  POUR  POLARIZER  CHANCES. 

7  C - 

B 

9  CHARACTER  SAMP^ 

10  reala,b,cd,e.p.pos 

11  VnECERSTP 

11  COMMON  /MATRIX/AO«aa).BO«00),CO«aa),D<l60O),EP0a0) 

13 

14  10  FORMAT  (11X.'ANCLE‘,P7.L25X,'SAMPLE:',A30^/) 

15  10  PORMAT04X,'V/V,7X/;',7X,'V/4S',6X,':',7X/45Ar^ 

14  .•;',4X,'4V4S1 

17  30  PORMAT(«Of-')) 

10  40  P0RMAT(4X,U,4XPT.SJ(5X/;',5X,P7.5)) 

19  40  PORMATOOXIIETURN  -  CONT,  <  99  >  -  DONT  PAUSE, 

10  .<  100  >  -  NO  VIEWO 

11  P  -  OOOOOO 
11 

13  c - 

14  C  THE  DATA  SENT  TO  THE  SCREEN  E  DEPENDENT  ON  THE  direction  OP  THE 

15  C  SCAN  OP  THE  laser.  IP  THE  SAMPLE  E  COINC  PROM  LEFT  TO  RIGHT  THEN 

14  C  I  SUBTRACT  9  PROM  THE  DATA  ARRAY  COUNTER.  OTHERWEE  ITS  OK  THE 
»  C  WAYTTE. 

10  c - 

19 

30  V(IDIR.EQ.I)E  ■  E  •  9 

31 

U  C - 

33  C  HERE  THE  ENTIRE  SCREEN  E  WRITTEN  TOO  WTIH  POUR  FIELDS  SERVING 

34  C  AS  THE  POUR  arrays.  E  -  THE  START  OP  THE  MATRIX  FOR  THE 

35  C  ANCIESHOWMC  WHICH  INCLUDES  14  ARRAY  FIELDS. 

3*  c - 

37 

30  50  WRrrE(>.10)PO$.SAMP 

39  WUIETJO) 

40  WRTIErJO) 

41 

41  WRITEC.40)1,A(I  *  ELBO  *  B).C(t  «  E).D(1  »  E) 

43  WRnEr,40|l.A(l  «  BLB(3  *  E).P.P 

44  WRnEC.40)3.P.P.Ca  *  ELD<3  »  E) 

45  WRITEr.40)4,A(l  *  B).Bp  *  ELCO  «  ELDP  *  E) 

44  WRTTEr,40)5,A(4  *  E),P.C(4  *  E).P 

47  WRnE(>,4O)4.A0  ♦  B).P,P,P 

44  WRnEr,4l07,P,P.C(5  t  BLP 

49  WRITEr.40)l>»  «  E).P.C<4  *  EX.P 

50  WRnir,40|9,P,B(4  *  BLP.D(4  *  E) 

51  WRnEr,40)iaP.B(S  *  ELP.P 
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52  WlinEr.«l>>n.P.P.F.D(S  ♦  B) 

55  WliniC.«)>lXP.K5  «  B).P,IH6  *  B) 

54  WKnEr,40)t5.A<7  +  B),B(7  ♦  B),C(7  ♦  B),D(7  ♦  B) 

55  W«nEC.40)l4,A(5  *  B),B(t  *  B).P.P 

5*  WUIl(*.40)15,P.P,C(i  «  B),I>0  «  B) 

57  WKnCr.4Q>16.A(9  ♦  B),B<9  ♦  B),C(»  ♦  B).D<9  ♦  B) 

55 

59  - 

50  C  IKAT  COMPLETES  THE  MAT1UX  VIEW  HERE  IM  ADOINC  A  READ  STMT  SO 

4t  C  THE  USER  CAN  OPT  TO  SEE  HOW  THE  DATA  BCOMMINC  IN.  IP  <  99  > 

52  C  B  TYPED  TT4BREADWIU.be  SKIPPED. 

55  C  STPB  THE  STOP  PLAC.  AS  LONG  AS  ITS  2  THEN  THE  DATA  WILL  BE 

54  C  WRITTEN  EVERY  TME.  B  <  99  >  B  BSUED  THEN  THE  DATA  WILL  BE 

55  C  WRITTBa  BUT  THE  STP  WONT  STOP.  IP  <  100  >BBSUED  THEN  STP 

55  C  WILL  NOTIPY  THE  CALLER  NOT  TO  CAUTHB  SUBROUTINE.  PM  LEAVING 
57  C  AN  OPTION  PORSTP  TO  BE  RESET  TO  ZERO  BY  THE  CALLER(laiUNE  BELOW) 

55  C - 

59 

70  B>(ST?.EQ.2)INUSE  -  0 

71  B<INU5E.EQ.0)THEN 

72  WRITEC.40) 

75  READT.TASITSTP 

74  RHSTP.EQ.99)INUSE  -  1 

75  ENDIP 
75 

77 

75  B>(IDm.EQ.I)B  •  B  *  9 

79  RETURN 

50  END 
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AIV.31  Analog  APSD  Software  Modules:  W  Source  Code. 


* 


1  SUIKOinmE  W(EHOrrS,»IUSE.IOn'.B.SAMF,ltMCIt.ltAltM,lt£ND, 

2  .ANCl£.STP,rOin) 

3 

4  C - 

5  C  THBMOOCAmnESTHEDATAI’ORTHEPOLAKQXltSIN  POSmON 

«  C  VOmCAWOmCAl.  TWO  AMkAYS  ARE  USED  TO  SAVE  THE  DATA. 

7  C  ARAY-BASEQUENTULAUlAYSTOlUNINCAUTHEDATAItECEIVEDPROM 

•  C  THE  A/D  CONVERTER  THRU  TWEENTRE  ROTATION  OP  TWE  SAMPLE. 

t  C 

10  C  ERAY  -  BAREPRESENTATTONOPTHEENTTRE MATRIX.  ONLYNINE 

11  C  ELEMENTS  tYILL  IE  PILLED  IN  THB  ARRAY  WUH  THE  OPTICS  IN  THB 

12  C  POSTTTON  POR  Each  LASER  SHOT.  THEY  ARE:  1.L4.S.4A13.14.16. 

13  C  CAPS  WILL  K  LEFT  IN  THE  ARRAY  TO  EE  PILLED  MIY  THE  OTHER 

14  C  THREE  POSSnU  POLARIZER  SETT1NCS. 

15  C  PEWER  ELEMENTS  WOL  BE  COLLECTED  ON  SUCCEDINC  SWEEPS  OF  THE 

l«  C  GONIOMETER  ARM. 

17  C - 

It 

1« 

20  character  STR*9.CETDAT*4,CR.SAM™,A*00,D!S1*10 

21  CHARACTER  MESC*2SS,MSC^.PORT'10.HEX’4 

U  CHARACTER  CHAN*2.CHANNEL*2 

23 

24 

23  REAL  RDAT.ARAY.BRAY,CRAY,DRAY.ERAY,RARM.ANCIE.R1NCR.INCREND 

2i 

r  MTECER  P05,STP,BnE.I0UT.REP0RT,TYPE 

23  MTECER'4  LENCTH.T1MEOUT.ICNC 

2* 

30  DBffiNSION  CETDATa6LKyLU>AT(14LHEX06) 

31 

32  COMMON  /MATRIX/ARAYP600LBRAYO«00).CRAY(3«OOLDRAYO«OOL 

33  .  ERAY(S300) 

34 

33  DATA  I  /I  J.4J4J.13.14,1*/  •  MATRIX  ARRAY  ELEMENTS 

3t 

37  BWEEP-1  •  FLAG  THAT  THB  BIST  SWEEP 

33  ANCLE  -  RARM  !  ANCU  -  START  POSTITON  OP  SAMP 

33 

40  C - 

41  C  MUSE  B  PASSED  MAS  ZERO  EVERY  TIME  A  NEW  LASERS  ENABLED 

42  C  SO  THAT  ALL  THE  COUNTERS  OP  THE  ARRAYS  ARE  CORRECT 

43  C - 

44 

43  P(B4U$E.EQ.0)THEN  I  MTTTAUZE  VARIABLES 

43  MUSE-1  !  FLAG  NOT  TO  COME  BACK 

47  KNT  -0  I  13  ELEMENT  ARRAY  COUNTER 

43  B  -  0  !  sequential  ARAY  COUP4TER 

43  BPAMP 

33 

51  C - 
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n  C  THB  MTIAUZES  THE  SAMPLE  STAGE  MOVEMENT  OP  VELOCITY, 

S3  C  acceleration,  ANDD6TANCE. 

34  - - 

ss 

S*  t4C  -  WNCX  •  3000.  I  THB  E  THE  ANCU  INCREMENT 

57  »ICR  -  nX(INC) 

SO  NUMBER  -  10 

S» 

40  DO  SO  I  -  1,10 

41  IP(*4CR.LTNUMBER)COTO40 

43  number  -  NUMBER  *  10 

43  SO  CONTINUE 

44 

45  C^ - - - - 

44  C  BtIUSmC  THB  TO  CLEAR  THE  READ  BUFFER 
47  C- - - - 

40 

40  C  POM'  -  TXA3:' 

70  40  LENGTH  -  2SS 

71 

73  TIMEOUT  -  1 

73 

74  CALL  READ_QI0(P0RT,MESC,LENCTH.T1ME0UT,BIZE,I0UT,CHANNE1,IUS) 

75 

74  C^ - - - - - 

77 

70  WRmo.TAOn'IXO  •  t  RESET  CUMM  POSmON  CNT 

79 

00  CAU  MIX<mCR.DCST) 

01 

03  IP<a4CR.LT.iaa00)THEN 

03  WRITEP.'(A37)T1PS  isn  IVIO  1A10  ID-V.DBTO:!)*-  • 

04  ELSE 

05  WRnE(3.'(A3S)rriPS  isn  IVIO 1  AIO  1O-  /®BT0:IVf  • 

04  ENIMP 

07 

00  c  wRirEr.'iAssrrisn  1V101A10lo--//D6T<1:lV7■ 

o» 

40  CAU  TWaITPO) 

41 

43  B4USC1  -  3  !  BiTTIAUZE  TEK  DRAW  FLAG 

43 


C  HERE  BECMS  THE  LOOP  WHERE  SAMPLE  DATA  B  TAKEN  AND  STORED 
C - — — - 

47 

40  DO  300  M  -  1,BHOTS  '  LOOP  THRU  THE  SAMPLE  ROTATION 

44 

100  c— _ 

Wl  C  HERE  B  WHERE  THE  A®  CONVERTER  B  ASKED  FOR  THE  DATA 

103  C— _ _ 

103 

104 

MB  C  CAUTeTDAT(BWEEPANCLE.RDAT) 
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iw 


107 

Kl  -  II 

lot 

TYPE-3  ! 

STROBE  THE  AS  BOARD 

10# 

CALL  DATEL(TYPE.REP0RT,T0RT,ICI,CHAN,R0AT,HEX) 

no 

!  CET  HEX  DATA  PROM  A/D  BOARD 

111 

113 

113 

c 

c 

HERE  EACH  ARRAY  E  SELECTED.  WRITTEN  TO  AND  INCREMD4TED 

114 

115 

114 

DOISI-I.IO 

117 

E-6*l  t 

ARAY  SEQUENTIAL  COUNTER 

lit 

ARAY(E)  -  RDAT(I) 

!  STORE  THE  10  ARRAY  ELEMENTS 

lit 

K-KD*K>IT 

1  SELECT  CORRECT  ARRAY  ELEMENT 

130 

V(I.Ea.lO)COTO  IS 

1  DONOTSTX3RETHELASTDCELE. 

131 

EIIAY(K}  *  RDAT<I) 

1  FLACE  MATRIX  data  ERAY 

133 

100 

CONTINUE 

133 

134 

135 

c 

THE  PART  DEPLAYS  OUTPUT  IN  ETTHER  AJD  VOLTAGES  OR  CRAFHKS 

134 

c 

THE  CALLER  WILL  DEFINE  STP  AS  1  POR  GRAPHICS,  2  FOR  A/D  VOLTAGES 

137 

c 

OR  3  NOT  YET  DEFINED 

13t 

139 

130 

B>(STF.EQ.I)THEN 

•  USER  WANTS  REAL  GRAPHICS 

tji 

IS 

CALL  0RAW.ELE(BWEEP.ANCLE.RARM,RINCR.REND,RDAT.INUSE1> 

133 

GOTO  IS 

134 

135 

ENDIF 

134 

137 

»(STF.EQJ.)C0T0  is  ! 

SKIP  VIEW  FLAG 

13t 

139 

CALL  VnEW<SAMP,ANCLE.E,STP,IDIR) 

IS 

141 

c — 

V(M.EQ.BHOTC)COro  100  •  DO  NOT  MOVE  SAM?U  ON  LAST  SHOT 

ANCLE  -  ANCLE  ♦  UNCE  I  MCKEMBO  ANCLE  Of  SAMPLE 
lOfT  -  KNT  ♦  W  !  MCEEMENTTHEARRAVIY  16 


1S1 

IS 

IM 

IS 

IS  O 
W 

IS 

IS 


sEnEo/cAErric  ixi  c  • 
READP,’(AS0)'.EEE-»I)MESC<150) 
WEIIEP.')M.-  MESCO  JO)  -  -.MESCOtSO) 
CALLTWAnp) 


142 

IS 

144  IS 
IS 
IS 
147 

IS 

IS 
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UO  ■EAO(MESC04:22).'(IN.I>)'.EIUI  -  3aa)MOT10N 

ui 

l«2  KMC  -  MOTION  •  MBUV 

1U  MBUP  -  MOTION 

TM 

1«S  TM  POKMAT(SX,I4.10X,'  ACCUMUIATH)  MOTION:  ‘.R, 

TM  /  KEIATTVE  MOTION;  ‘.IN/) 

167 

168  D  WUTEr.160)M,MOnON,ICNC 

168  WltITC0/(A4)7ir5 ' 

170  CALLTWATrO) 

171 

17J  C - 

173 

174  200  CONTINUE  I  UX>P  THRU  ROTATIONS 

175 

176  C - 

177  C  AT  THBROINT  THE  DATA  COLLECTION  FOR  POLARIZERS  KSmONED  AT 

171  C  VERTKAWEimCALB  COMPLETE.  WE  NOW  RETURN  TO  THE  CALLER 

179  C  WHERE  THE  NEXT  POLARIZER  SETT1NC  WILL  BE  MADE  and  THE  SAMPLE  WILL 

180  C  BE  rotated  IN  REVERSE. 

181  C - 

182 

183  WRrTEr/(AS)0‘1STD '  !  DEENERGIZE  SAMPLE  STAGE 

184 

IBS  400  RETURN 
186  END 
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AIV.32  Analog  APSD  Softroare  Modules:  YHl  Source  Code. 


1  SUBROUTINE  YHKA,X,Y,BUn) 

2 

3  C - 

4  C  TTTB  MOD  CHANCES  Backed  TEX  4957  CX)DES  TO  T>{EIRX,YEQUIV. 

5  C  TWHEN  A  cm  DEVICE  B  activated  rr  SENDS  TDTT4E  HOST  A  4  OR  12 

*  C  CHARACTER  LENCTH  STRINC.  THE  FIRST  CHARACTER  E  A  NUMBER  OR 

7  C  CHARACTER  REFRESENTBK:  THE  KEY  OR  BUTTON  PRESSED.  ASAMOUSEHAS 
B  C  THREE  BUTTONS  THE  FIRST  CHARACTER  WOULD  BE  A  1.2  OR  3. 

•  C  THE  NEXT  5  CHARACTERS  ARE  THE  X,Y  SCREEN  COORDmATES. 

10  C  THE  ROUTINE  PARSES  THE  FIRST  SIX  characters  THE  FIRST  E 

11  C  RETURNED  m  BUTT  AND  THE  X,Y  ARE  RETURNED  AS  INTECERS. 

12  C  IT  EElTERRESTmC  TO  NOTE  THAT  THE  FIVE  character  STRINC 

13  C  THAT  REFRESENTSX.Y  CANNOT  BE  USED  DIRECTLY  m  OTHER  COMMANDS. 

14  C  THE  LOCATIONS  WOULD  NOT  BE  THE  SAME.  SO  THE  RETURNED  X.Y  THEN 

15  C  HAS  TO  BE  passed  BACK  THRU  HIY.  THUS  THE  NAME  OP  THE  ROUTINE 

14  C  E  THE  MIRROR  OF  HIY.  ..YHl. 

17  C  THE  MULTIPLICATIONS  ARE  FOR  BIT  SHIFTTNC 

C 

19  C - 

20 

21  CHARACTER  *4  A.BUTTI 

22  mTECEXX.Y 

23 

24 

25  BUrT-A0;1)  !  THEE  USUAaY  THE  THE  BUTTON  NUMBER 

24  X-(ICHAR(A(5-J}>02;  •  120  *  <KHAR<A(4;4)>42p4 

27  t  *  MOO<ICHAR(A(30)L4) 

20  Y-(ICHAR(A<2J)>«)  •  120  ♦  (ICHAR(A<4:4)).32r4 

29  t  *  MOO((ICHAR<AO-J)y4),4) 

20  RETURN 

21  END 
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APPENDIX  V:  RETRO/DISPLAY  USER  GUIDES  AND  SOURCE  CODES. 


RETRO/DISPLAY  are  numeric  and  graphic  implementations  of  Full-Wave  electromagnetic 
scattering  theory.  The  theory  was  developed  by  Professor  Ezekiel  Bahar  at  the  University  of 
Nebraska-Lincoln.  The  reader  is  advised  to  read  publications  30-34  listed  in  the  Literature 
Cited  section  for  details  about  this  theory.  Equations  notated  [A;  B]  imply  that  A  is  the  Litera¬ 
ture  Cited  reference  number,  and  B  the  page  number  from  that  reference.  The  Full  Wave  code 
was  written  for  a  CRAY  supercomputer  operating  under  UNIX  UNICOS. 


AV.I  INPUT  FILES. 

Two  input  files  are  needed  by  RETOO.  The  first  is  "params  1,"  which  is  used  in  every  run 
and  contains  filenames,  surface  information,  and  integration  routine  controls.  The  second 
"dielectric's  input"  file  contains  information  to  determine  the  material's  relative  dielectric  con¬ 
stant,  €,.,  as  a  function  of  wavelength,  kg. 


AV.1.1  ‘’params." 

The  following  information,  in  order,  is  stored  in  file  "params":  filename  for  commen¬ 
tary  output,  filename  for  data  output,  a  13  character  description  of  the  surface  material, 
desired  mean  squared  heights,  mean  squared  slopes,  radiation  wavelengths,  incident 
angles,  code  for  getting  €,  data,  and  the  error  requirements  for  IMSL  integration  rou¬ 
tines,  QDAG  and  TWODQ.  An  example  of  a  correctly  edited  file  is  shown  at  the  end 
of  this  guide.  The  line  by  line  format  is  as  follows: 

A  -  filename  for  commentary  output  (up  to  13  characters) 

B  -  filename  for  data  output  (up  to  13  characters) 

C  -  description  of  surface  material  (up  to  13  characters) 

D  -  no.  of  <h^>'s,  min(<M>),  step(<h^>)  in  (integer,real,real) 

E  -  lines  E  through  F  exist  only  if  the  no.  of  <h^>'s  <  0 

F  -  here  the  min  and  step  values  are  ignored  in  favor  of  reading 

in  a  list  of  <h^>  values  separated  by  spaces 
G  -  no.  of  o-|'s,  min(CT|),  step(a|)  (integer,real,real) 

H  -  same  as  for  <h^>'s 
I- 

J  -  no.  of  Xq's,  min(Xo),  stepfXg)  in  p-m  (integer,reai,real) 

K  -  same  as  for  <h^>'s 
L- 

M  -  no.  of  0o's,  minfOo),  step(6o)  in  degrees  (intger,real,real) 

N  -  same  as  for  <h*>'s 
O- 

P  -  A  code  for  determining  e,  values  (integer  =  0  or  1) 

Q  -  if  the  code  on  line  P  is  1  then  the  relative  dielectric  is  put  here  (complex) 

-  otherwise  the  filename  containing  the  c^'s  is  here  (up  to  13  characters) 

R  -  absolute  and  relative  error  criteria  for  QDAG  (real,real) 

S  -  absolute  and  relative  error  criteria  for  TWODQ  (real,real) 

The  data  on  lines  A,B,C,D,G,J,M,P,Q,R,  and  S  must  appear  in  "params."  The  data 
listed  on  lines  E,F,H,I,K,L,N,  and  O  may  or  may  not  be  needed,  depending  on  tfie 
sign  of  the  first  number  on  lines  D,G,J,  and  M. 


Appendix  V 


AV.1.2  Dielectrics  Input  rile. 

This  file  passes  RETRO  the  information  to  calculate  =€,(Xo)-  The  filename  is  passed 
on  line  Q  in  the  above  format.  The  usual  form  of  dielectric  filenames  is 
"material. nk,"  where  "material"  is  a  singular  name  for  the  substance  making  up  the 
surface.  The  ".nk"  implies  that  the  real  and  imaginary  part  of  the  relative  index  of 
refraction,  n,  =  n  +  ik,  where  n  =  n(Xo)  and  k  =  k(Xo),  is  passed  instead  of  c,  = 

The  data  is  stored  this  way  because  n  and  k  values  are  easier  to  find  in  tables. 

The  format  for  "material. rik"  is  as  follows; 

A  -  the  number  of  wavelengths  in  list,  m  (integer) 

B-Xo(l),  n{l),k(l)  (teal, real, real) 


Z  -  Xo(m),  n(m),  k(m)  (real,real,real) 

where  X(,(/)  <  Xo(/+l).  Also,  for  the  interpolation  routine  to  work,  m  >  6.  A  sample 
file  is  shown  at  the  end  of  this  guide. 


AV.2  OUTPUT  FILES. 

Two  output  files  are  created  by  RETRO,  a  commentary  output  and  the  data  output. 
These  filerxames  are  defined  on  lines  A  and  B  of  "params."  TTie  commentary  file  is  pri¬ 
marily  a  debugging  tool  should  something  go  wrong.  The  computed  matrices  and  a 
header  block  are  put  in  the  data  file. 

The  commentary  output  file  is  opened  as  unit  8  in  RETRO.  Unit  8  is  then  sent  various 
values  for  tracing  and  debugging  the  program.  The  file  becomes  important  if  unknown 
run-time  errors  occur.  Most  of  the  write  statements  to  unit  8  have  been  commented  out, 
but  they  can  be  reinstated  by  editing  RETRO  and  changing  some  "c"'s  to  blaaks.  During 
normal  operation,  the  only  significant  information  sent  to  this  file  is  the  list  of  c/s  for 
each  Xq's  after  interpolation  from  the  dielectric  file.  DISPLAY  does  not  access  this  file  for 
plotting. 


AV.2.1  Data  Output  File. 

This  file  contains  two  distinct  sections:  the  heading  block  and  the  data  block.  The  head¬ 
ing  block  is  the  key  to  finding  the  elements  of  Mueller  matrix.  F(<h^>,(7|,Xo,eo).  The  for¬ 
mat  of  the  heading  block  is  as  follows  :  * 

A  -  description  of  material  ("params"  line  C) 

B  -  no.  of  <h^>'s,  o-|'s,  X/s,  and  Og's  (  "params"  lines  D,G.J,  and  M) 

C  -  <h^>(l)  .  .  .  <h^>(no.  of  <h^>'s)  (  "params"  line  D  or  lines  E  and  F)  % 

D  -  o-|(l)  .  .  .  CT|(no.  of  CTs  's)  (  "params"  line  G  or  lines  H  and  I) 

E  -  Xo(l)  .  .  .  Xo(no.  of  Xq's)  (  "params"  line  J  or  lines  K  and  L) 

F  -  60(1 )  .  .  .  6o(no.  of  ©o's)  (  "params"  line  M  or  lines  N  and  O) 

The  data  block  consists  of  two  data  lines  per  matrix.  The  first  line  contains  three  Q 
values  corresponding  to  the  auto-correlation  functions  Gaussian,  N=8,  and  N=6.  The 
second  line  contains  six  generally  non-zero  matrix  elements  divided  by  Q.  In  order, 
these  correspond  to  /,,,  /12,  fjj,  fy^,  and  f^4.  RETRO  does  not  write  /21  *  fii  or 
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ft3  ^  -fit-  The  other  8  matrix  elements  are  zero. 

RETRO  calculates  and  writes  the  matrix  data  in  a  nested  loop  where  <h^>  varies  more 
slowly  than  (r|,  which  varies  more  slowly  than  Xg,  which  varies  more  slowly  than  Og. 
The  looping  of  each  variable  goes  from  the  first  value  to  the  last  value  listed  in  the 
header  ^ines  C  to  F).  Given  this  information,  DISPLAY  can  access  any  of  the  Fs  in  the 
file. 


AV.3  RUNNING  INSTRUCTIONS. 

RETRO  is  ready  for  execution  after  the  input  file  "params"  has  been  properly  edited 
and  the  dielectric  file  for  the  surface  material  has  been  loaded.  There  are  two  ways  of 
rurming  the  program,  and  the  preferred  method  is  based  on  how  many  matrices  must 
be  calculated.  The  number  of  Mueller  matrices  calculated  is  the  number  of  <h^>'s 
times  the  number  of  o-|'s  times  the  number  of  Xg's  times  the  number  of  6g's.  A  short 
run  is  considered  less  than  100  matrix  elements. 


AV.3.1  Short  Interactive  Runs. 

Runs  that  calculate  less  than  100  Mueller  matrices  can  be  done  interactively  by  typing 
"retro,  run"  after  the  prompt.  This  command  will  compile,  link,  and  execute  the  pro¬ 
gram  using  the  data  provided  in  file  "params."  This  executable  code  is  stored  in  file 
"retro.xqt."  If  you  desire  to  run  the  program  again  at  the  same  login  after  changing 
"params,"  you  need  only  type  "retro.xqt"  after  the  prompt.  This  should  be  done 
instead  of  "retro.run"  to  prevent  uimecessary  compiling  and  liivking.  Finally,  before 
exiting,  you  should  remove  "retro.xqt."  The  object  file  "retro.o"  was  removed  by 
"retro.run"  immediately  following  the  linking  procedure. 


AV.3. 2  Long  Batch  Runs. 

For  longer  runs,  a  job  needs  to  be  submitted  to  a  batch  queue.  For  runs  of  less  than 
2000  matrices,  type  "qsub  -eo  -q  small2  examp."  If  the  number  of  matrices  is  greater 
than  2000,  replace  "smaII2"  with  "large2"  in  the  previous  string.  Immediately  after  the 
submit  conunand,  the  computer  returns  the  job's  assigiunent  number,  N.  Write  this 
down,  and  if  you  discover  an  error  in  "params"  while  the  job  is  still  running  you  can 
stop  it  by  giving  the  command  "qdel  -k  N,"  where  N  is  the  assigrunent  number. 

Files  "exampl"  and  "examp2"  are  the  run  streams  for  the  batched  job.  Only  one  run 
stream  lutmed  "exampl"  is  allowed  in  the  batch  queue  at  a  time.  However,  it  is  possi¬ 
ble  to  have  more  than  one  batch  job  running  at  a  time  if  copies  of  exampl  are  submit¬ 
ted  in  exactly  the  same  way.  The  file  "params"  is  read  soon  after  the  submit  com¬ 
mand,  so  it  can  be  edited  and  the  next  job  submitted  while  the  first  is  still  active.  The 
same  comments  about  removing  "retro.xqt"  apply  here  as  in  the  previous  section. 

When  a  batch  job  is  finished,  an  additional  output  file  is  created  under  the  name 
exampl. oN,  where  N  is  defined  as  before.  This  is  the  job  accounting  report  for  the 
run,  that  includes  the  job's  user  time,  system  time,  and  billing  units.  For  a  complete 
description  see  the  Cray  manual's  "jar"  (job  accounting  report  generation)  command.  A 
good  idea  is  to  append  this  accounting  report  to  the  commentary  file  created  by  the 
run.  This  is  the  file  ruuned  on  line  B  of  "params." 


-331- 


Appendix  V 


AV.4  RELATIONSHIP  OF  PROGRAM  VARIABLES  TO  THEORY. 

The  following  is  a  break  down  of  the  various  theoretical  parameters  followed  by  tfie 
relationship  of  program  variables  to  these  values.  See  reference  26  for  further  explana¬ 
tion.  ^ 


AV.4.1  Computing  Q: 


Q  = 


* 


00 

Q'  =  2irf(x2(rj)~  I  x  I  drj 

0 


X2  =  exp(u/<h*>(l-rhh)) 


Vj,  =  2kocos(eo) 


'■hh  =  ^hh(^rf) 


I  X  I  *  =  exp(-v^<h^>) 


v„  =  I  2i:osin(eo)  I 


Q.Q 
KOSQ  »  ki 
PI  *  ir 
RD  * 

QPRIME  «  Q' 
CHI2.X2 
VYSQH  .  p/<h2> 
VY-p, 

HMSQ  -  <h^> 

KO- Ito 
THETA  «  Go 
CSTHT  *  a>s(6o) 
SNTHT  “  sm(Oo) 
RRSURF(RD)  -  r„t,(r^) 
CHISQ  *  I  X  I  ^ 

JSUBO  «  ifJtPaTi) 
VXZ-p„ 


AV.4.2  Computing  ri^i, . 


-332- 


Appendix  V 


For  the  Gaussian  auto-correlation  function: 


-r/ 

'■hhX'-rf)  =  «P(— ) 

*C 


For  the  N=8  auto-correlation  function: 


’’hh(»’d)  = 


IK, (5)  + 

i_ii  ii 

8  32  3072 

2  4  % 

•4g| 

<h2> 


For  the  N=6  auto-correlation  function: 


rhhira)  * 


4  96 


{K,(0  + 


i^Kod) 


k|  = 


<h2> 


CLENSQ  *  1/ 
R.( 

RSQ  -  ;2 
R4TH  »  C* 
R6TH  * 
KAPPAS  -  Kg 
HMSQ  -  <h*> 
SICS  ■  cr| 
KAPPA6  “  Kg 


AV.4.3  Computing  aljiQ: 


Q 


2/ 

>0  h>  •-»  (  n  ’fly  ) 


Pi  Ps  dh,  dh. 


(I33;45J) 


([32;731-7321) 
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PiiK)  =  -T^U  (cotan  (Qo)) 
ItCq 


1  Vo? 


cotan\<bQ) 


,  coton  (60) 

V^l 


) 


PsihM  =  -^e:rp(-^^) 

iro-l  cr| 


IDD  =  a,** 
DPQMAG  * 


D'/  D*** 
(na‘)^ 


P2  .  Pj 
HX  =  h, 

HZ*  A, 

COTT  »  ooton  (Oq) 

FACT*  -4^ 

1+Co 

SIGSRT  X 

nc-T^ 

2  Vir 
ooton  (So) 

R  ®  function  ARGIDD  only) 

FI  * 

cotan (%)^ 

CO -Co 
FHXHZ  -  Pj 
HXZSQ  =  A,»  +  A2 


AV.4.4  Computing  ■— (  ^ — : 

(naif 

n  al  -  cos  (7) 

7  «  the  angle  between  aj  and  the  normal  to  the  local  scatter  plane,  n 


¥ 


a 


([31;446J) 
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f?ll/ 

PQ  -  W 

D,2, 

PQ  -  VH 

Dll, 

PQ^HV 

Du, 

PQ 

w 


4 


D  *  cos(fl^')TFT 

00  *  the  angle  between  the  incident  direction  and  n . 

cos(«l>)  sm(4i) 

[-sin(«|i)  cos(>li) 

«l<  =  the  angle  between  the  reference  and  local  planes  of  incidence. 

0 

P  S 

0  F«» 


([31;4481) 


CSG  *  cos  ("y) 

DPQ(i,i)  -  Dij 
CS0N-cos(e5) 

SNON  «  sin(6o) 

CSSI  «  CDS(«|») 

SNSn  »  sin(«|i) 

CFW  -  cos(0^f)f*'*' 

CFHH  *  cos(e^f)F”« 

AVA.5  Computing  and  : 


< 


(M.,cos^(ef)  -  sin*(ej))(l-— )  +  (1-^j 

F*'*'  - - _± _ _ 

(cos  (eg)  +  11,005(0,"))* 


(I31;4461) 
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fHH 


(€,cos^e,»)  -  sm*(eo"))(l— i-)  +  (1-e, 

_ _ _  __  My _ 


/Ckf 


iiL 

Md 


€r 


€l 


to 


T|r 


v;i7 
*  v^r 


n,  »  VerP-r 


SJ«(8f)  = 


sm(eg) 

«r 


cos*(ef)  =  l-sin*(e") 

ER-€, 

UR  -  m 
RIR*n, 
ETAR  *  T), 
ERM«  1-c, 
URM  »  1— m 
ERMR  «  1-  — 

URMR  -  1-  — 
Pt 

SNIN  «  si>i(e,") 
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CSIN  -  cos  (6,") 

DEN2  »  cos (0o)  +  'nrcos (6") 
DEN3  =  cos(BS)  +  —cos  (Of) 

T|r 

SOIF  -  sin2(e^) 

ClIF  »  cos*(e,") 
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AV.S  RETRO  SOURCE  CODE, 


7 

• 

9 

10 
11 
12 

13 

14 

15 

14 
17 

15 
19 
30 
21 
23 

23 

24 

29 
24 
27 
21 
39 

30 

31 

32 

33 

34 


C 

c  TMt  wofk  wu  dour  hr  die  CKDEC  on  dir  Abrrdrrn  Previnf  Croundr 
cEdfrwood  Aior. 

c  TMt  wofk  WM  donr  by  Craif  M.  Hrrsingrr  undtr  ooniraci  SSMO4S0. 

c 

c  Tilii  pro^oi  uirr  dir  FuB  iwvr  Throry  for  cooipudng  dir  tortlrfdig 
c  of  •  pfofir  wort  from  «  londooily  roiigh  rurfoor. 
c 

c  Tliir  piofrrai  Ir  for  SMC1£  rertlrr  lioai  rn  BOTKOPIC  iDugti  rurfoor. 
c  TMr  proffooi  Ir  for  BACKSCATTEIl  only. 

<  TMo  pvDfrroi  Ir  for  tdPPUSE  ratttfWif  only, 
e 

e  Sdiflr  reodtr  IwpSrr  dir  wdtcfod  rrdirtion  rtnicfc  dir  fov^ti 
0  rurfoor  only  onr  doir  rnd  dirt  oiuMpIr  rcrurring  Ir  unrooounird  for. 

0  An  Irofoopk  rurfoor  fo  oonridrfrd  lo  bivrcfonl  lo  fotrtiOA  rnd  trrnrlrtion 
c  In  trmir  of  dir  rnurrtr  torttrrlnd. 

e  trcboanrr  Igiplirr  dir  rrorivrr  rnd  drirctor  r«r  rl  tbr  rrmr  point, 
e  wMi  dir  rroir  orfomrdon.  rt  r  point  for  from  dir  rurfoor. 
e  Only  dfffoMr  rcrforrlnf  fo  orlculrlrd  brciurr  dir  oolirrvnt  rprcidtr  form 
0  rrliloli  oeeurr  rt  normrl  ineldrnoe  for  brofcrertirr  Ir  dropprd. 

< 

e  Tliir  pfoiffim  orkulrfor  dir  4  gmmfty  non^ro  MurlWr  Mfo  rtrmmfo. 
c  ni,U21  J24344,43.  rnd  44.  for  urr  %ndi  dir  rfondrrd  Sfokrr  Vrcfor 
€  nofodon.  Of  dwrr  rlflit  two  prkr  rrr  drgmrrrfo,  F12'F21  rnd  F34— F43. 

0  Tlir  rfomrnfo  rit  crkulrfod  on  r  prr  rolid  rnf Ir  brtit  ro  Umi  thr  crkuirfod 
c  MurWrr  Mfo  Ir  rbrolufoty  oorrrtt  to  within  r  rorirr  ooffotrnt.  Thr  rcrfor 
€  oanrfom  it  brrrd  upon  dir  rfor  of  dw  rolid  rngit  infofcrpfod  by  Ihr 
c  drtrcfor  for  r  prrtfoulrr  rKprrlmrntrl  rriup.  For  thir  work  to  br  vriid 
€  dir  drtictoc  oniri  look  rt  ronpr  of  rrfumrd  rngirr  dorr  mou^h  to 
c  brckrerttrr  dirl  dw  brokroitforrd  rrium  it  r  |ood  rpprovimrtion 
c  of  dw  mifor  rrfirctrd  rrnpr.  AIro,  dw  roUd  rnplr  Infororpfod  by  dw 
e  drtrctor  oiuri  br  Inrrrfoni  to  Inddmt  rr^lr  rnd  wrvrln^. 
e 

c  THr  pnrtmm  dm  akidritr  dw  rmforrlnf  om,  S.  for  um  with  dw 
e  moddWd  Slokor  Vrcfor  nofodon.  rnd  difo  it  dwn  tnntforowd  foto  dw 


37 

3S 

39 

40 

41 
43 

43 

44 

45 


47 


«9 


51 

52 


:‘nir  rfoownttofScrnbr  wiimiirtr  pfodixt  of  two  vriurt,  Q^and 
:  a  3-d  riopr  rrrraftoif  tnfogrri.  thir  it  oHowrd  by  dw  Fud-wrvr 
Tlwory  ONLY  bacautr  tioprt  rnd  hrighfo  rrr  oonridrfvd  uncocrrfofod. 
Q  It  a  fomedon  of  inddrni  rngir.  rurfocr  bright  rufo-eorrrltdon 
function,  and  drr  rpoor  rr^don  wavrirngih.  The  riopc  tnfogrri 
It  hmedon  of  bictdrnt  an^.  owan  r^uartd  dope,  rnd  wrurlri^di 
tdmUh  dw  ruffoorr  nHadvr  dfolacMc  oonatrm. 

For  dw  raruoitd  foofoepfo  ruifoet.  Q,  norawdy  a  2-d  tmcgtrl  can 
br  fowfdfon  In  polrr  cootdinafor  and  trantforowd  into  r  I'd  Infogmi. 
d  It  foBipufod  by  ndbrnulliw  QCMF  far  3  ddfairnt  rprcfoal  drrwWy/ 
rurfacr  hdght  aaia  otrrtfodon  fanedont.  The  inpfod  far  dw  rufaworr. 
fanedont  ant  oiaon  rguarad  halgN  and  wwan  rguaiud  rfapr.  Tlw3 
fanctfawt  art  CouBafon.  N*t.  and  N*4. 


d 


A 
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4 


♦ 


4 


53 

54 

55 
55 
57 

S« 

5* 

<0 

*1 

«2 

U 

*4 

<5 

M 

*7 


c  111*  alofw  (waflng  Mtgml*  •eminl  for  *11  poiillih  cooibinalioiw  ol 
In  Mm  X  *iid  *  dlncHom.  Conakkfinf  xailou*  pol*fli*lio«*  (nd 
ph***  i*l*llBnihlp»,  U  uniqii*  M*(nlt  m  peiifti*  t»  eomphM  S. 

■m  ( Imtgmb  ->  0  b*c*ii*i  Iht  lnM(nnd  i*  odd. 

3  odMi*  ooniMHi  Id  I  vahit,  *nd  anollMr  ->  0  ktou**  Mm  IMcfrand 
b  pi«poflioii*l  ID  ItM  ioHfliMrp  p*n  ol  ■  iml  numbir. 

TM*  baiMD  5  uniqut  Xd  InMgnb  p«»«DraMd  bp  Mbnnilinc  IDDCM?. 

Tb*  5  mini*  CDuld  h*  laad  ODOipiib  S  but  lh*p  *1*  neomWiMd  In  on* 
•bp  ID  tom  Mm  Mu*a*f  Mi  DtoOMnn,  Pi|. 

nM  todowtod  vxrxion  I04  M5L  nulln**  ««  raqulnd: 

QDAC,  TWOOa  KIO,  BSKO,  BSK1,  «iid  ERK. 

Hm**  «•  aMaibl*  toDn  SdSl.  cilDOMf  ■•tollon*,  lixtli  door, 
NKMdli«7500Mhlf«loubv*nl.Hoiab)n.T*xM  77036-30(5.  USA. 
Totopbon*  (713)771-7«r  T*l*x;  76-I923 IMSL  MC  HOU 


6* 

70 

71 
71 

73 

74 

75 

76 

77 
75 
7* 
10 
•I 
(3 
•3 
04 
(5 
■6 
r 


50 

51 
53 

53 

54 

55 

56 

57 


too 

101 

W3 

N9 

104 

MO 

106 


!  topK  onO  7  b  «««lon*d  Id  *  (to  pannit  (mi  awM  eaMain  lb* 
toOowInf  topd  p*mm*l*f*: 

OimOI  •  dbiMOM  tor  pngnm  eoaiRMMarp  hom  uidt  $ 

IbMlU  •  dhn*m*  tor  oulpul  d*b  frani  unM  5 

OnalD  -  ch*mctofri3  darcrlpllan  ol  BMlxbl  bring  mud 

MnaOl  •  nng*  or  (•■  of  daalwd  oi**n  aquarad  balghi*  (In  uX) 

•  mnf*  or  lal  el  d**ir*d  moan  aquarad  atop**  (unMaaa) 

•  aanga  or  0*1  ol  daabad  Maxabngitia  (In  u) 

•  mno*  or  Itol  ol  daalMd  kicidMil  angb*  (In  dag.) 

mranarrri  wMi  raapatl.  Id  (m  oonnal  ol  Mm  rttonnea  pbn* 

•  poDoipl  tor  dbbcWc  ol  oaiaibl 

•  Mm  oomptox  i«l*il«»  dbbililt  ODnaMM  ol  Ih*  wrtoo*  or 
Mm  naoM  ol  Mm  db  omMinlng  Hal  ol  oonatanla 

•  Imagfalten  f*quii*inanM  tor  QDAC 

•  limgtillen  loqiilfanMnla  tor  TWOOQ 

UnH  d  b  **M  xailoia  vahaa*  tor  dabugglng  Mm  pragrani  and  daMmilnIng 
Mbar*  oobaMilng  map  baa*  gon*  wrong,  b  aanda  vabia*  tor  monMo^ng  Mm 
ImagroMon  roiMlwaa  Moat  wiilaa  id  ynd  g  baro  bun  eoiiiroanlad  em,  bm 
ron  b*  i*ln*lal»il  iboidd  Mm  progrom  haro  ron  Mom  probbroa. 

UnM  5  b  aani  a  baadbig  black  id  aoaaaa  Mm  MiaaOcr  Mti  dab  Mmi  todow*. 
BiMMiab  ol  a  Miaadar  Mb  tor  a  giron  maan  aqvarod  balghi.  amn  aquaitd  atop*. 


cdbHdadbpQ.  Iba  aboMnb  In  oiMcraro  511,13.23.3344  and  44. 
c  Anp  progiDb  Bbktng  aa*  ol  MM*  OMipni  Mb  awM  awba  Mm  propar  oomblnaHcna 
c  and  aaaignn*nb  I*  ODBipbb  to*  bbl  Mnadar  btoi. 

C 

C 

HEAL  PI.HMSQO.HMSQS,SICSO,SICSS,WUN(.m£NS,ANCO,ANCS. 

1  l1bSaCUN,WUN.CLENSQ,SICS.K0.USQ,CS13nr,SbmiT.THETA. 

3  HMSQM15).S0SL(15).15lENL0a0).ANCU10a3 

3  ■)O06)4S(1«,P(14)iQ(«k 

4  Aimi,aDai,AEia2.RCsit3 

nALScm 
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107  REALSVIDOOOO.U) 

108  C 

108  CXIMPLEX  EUCMP.EK 

110  C 

111  »nrCEItNANC^WLENJ4SICS,NHMSQ,lt.I2.0.M,IU 

112  1  DCODE.IlCODE,IFLAC1 

113  C 

114  CHAKACIERM5  OUTNM.CXIMNM 

115  CMARACTOnS  MATNM 

116  C 

117  COMMOSUONE/HMSaCUN.ClENSaWUN.'nnTA.SSnHT.CSTHT.SICS.KO.n 

118  C 
11»  C 

110  n-ABS<ATAN2(D.,-1)) 

121  C 

122  C  TM*  Mock  op*M  8W  panoM 

123  C  k  ratOt  Mi  nanm  and  opana  filaa  for  oommaniary  output  and  data  output 

124  C  k  alao  nada  In  dia  Idantltytnf  matarial  nama  and  puli  In  output 

IIS  OPEN(UNrT-7.nL£--panma‘) 

126  kEAO(7/(AnCOMNM 

127  0PEN<UNn'-8,FILE-C06«NM) 

128  WknE(8,*)’COMMENTARY  KMt  RETRO' 

118  READ(7/(nnOUTNM 

130  OPENTUNTT-O.niE-omNM) 

131  READ(7/(a)>IATNM 

132  anka(8.TC«itiia»anHty  for  iMro' 

133  Wflfo<l,*)'OH4pul  Ma  la  '.OUTNM 

134  tai«a<8.7Maforfol  daacitptfon  la  '.MATNM 

135  C 

136  C 

137  C  THESE  POUR  RUXXS  READ  IN  THE  SURFACE  AND  BACKSCATTER  PARAMETERS 

138  C  V  THE  FIRST  VALBNECATTVE,  A  UST  OP  VALUES  B  TO  FOLLOW 

138  C  B  THE  FMSTVALBPOSniVE.  A  range  WTTH  THAT  MANY  VALUES  B  SPECIFIED 

140  CTHBROUTVIETHENEITHERREADSTHELBTINTO  AN  ARRAYOR 

141  CPUSTHE  ARRAY  USMC  THE  BECINNINC  AND  STEP  VALUES  GIVEN 

142  READ(7,*)NHMSQ.HM5QB.HMSQS 

143  BIINHMSQ.LTO)  THEN 

144  NHMSQ-l’NHMSQ 

145  READ(7,*)(HMSQUIILIL-1.NHMSQ) 

146  ELSE 

147  DO  to,  0.-1  J4HMSO 

148  10  HMS<2L(ID-HMSQB><IUirHMSQS 

148  END* 

150  WUntlR'INHMSQ,'  ‘.TdEAN  SQUARE  HEIGHT  VALUES  READ  BV 

151  C 

151  READ(7.1NSiCS,SICS8.SICS$ 

153  B^NSKS-LTOpHEN 

154  N5ICS-1*NSIC$ 

158  READ(7.*XSICSMIU.n.-1JfflCS) 

156  EUE 

157  DOS.  0.-1  J«ICS 

15B  2B  SRSI4i4-SK5B«0UirSICS6 

158  END* 

160  WOnEfRINSaCS.'  '.-MEAN  SQUARE  SLOPE  VALUES  READ  BY- 
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161  c 

162  REAI>(7,*)NWLEN.WLENB.WLENS 

163  IF(NWLEN.LT2)>13IEN 

164  NWLEN-l'NWUN 

165  IIEAD(7,’XWLENMIL),IL-1J4WLEN) 

166  EISE 

167  DO  X,  IL-1XWLEN 

168  30  WLB4L(n.)-Wl£NB4<IUirWLENS 

16»  ENDV 

170  Wllire(5.1NWUEN/  ’.'WAVELENGTHS  READ  IN* 

171  C 

172  READ(7.*)NANC.ANCB,ANCS 

173  V(NANC.LT2))THEN 

174  NANC-1*NANC 

175  tEAD(7,*XANCt<II4.IL-1.NANC) 

176  ELSE 

177  DO40,  IL-1.NANC 

178  40  ANCUn->-ANCB4<IUirANCS 

178  ENDIP 

110  WRnE(8.*)NANC,'  '.TNODENT  ANCLES  READ  M' 

1B1  C 

182  C 

183  CTHB  SECTION  PLACES  A  HEADING  BLOCK  INTO  THE  OUTPUT  FILE 

184  C  THE  SURFACE  and  BACKSCATTER  PARAMETERS  ARE  WRITTEN  BgrO  THE  OUTPUT 

185  C  POE  SO  THAT  LOITER  ANALYSIS  ROUTINES  WILL  HAVE  AN  MDEX  TO  THE  DATA 

186  WRrTE(*.>)MATNM 

187  WRnE(«.1000)NHMSaN5iCSEIWLEN.NANC 

188  1000  PORMAT(4I10.4> 

18*  WRnE(y,1010)(HM5QL(IL).IL-l>IHMSQ) 

180  WRnE(9,1010)(SICSL(ILLIL-1.NSICS) 

181  WRfTE<8.1010)(WlENL<ILLIL-1>IWLEN) 

182  WRnE(8.1010XANCL(ILLlL-1J8ANC) 

183  lOIOPORMAipEILI) 

184  C 

185  C 

186  CTHBBU3CK  READS  M  THE  CODE  FOR  THE  RELATIVE  DEIECTRIC  constants  TO  BE 

187  CUSED.  THB  CODE  AND  THE  DECREES  OP  LACRANCIANB4TEXPOLAT10N  TO  BE  USED 

188  C  B  PASSED  TO  ENTRY  SETER  OP  PUNCnONERCMP.  THE  NEXT  UNE  OP  MPUTB 
188  C  READ  BISOE  ENTRY  SEIER. 

200  READ(7,*)OCOOE 

201  ■  rRt(8.*yDtil»c1t<c  esdt  I88d  In  '.doode 

202  SCmP-SfIER<DCOOEJ) 

203  C 

204  C 

205  CTHB  LAST  MPUT  data  B  THE  RELATIVE  AND  absolute  ERROR  REQUIREMENTS  TO  BE 

206  C  BY  THE  BnECRATION  ROUTINES  QDAC  AND  TWODQRESPECTTVELY. 

207  READ(7,*>AERR1.RERR1 

200  wtRHB.*)’  Emr  oRttla  tor  QDAC  iMd  In  '.wrrl.mfTl 

208  READ<7,*)AERIU.REXR2 

210  «rritoB.T  •*187  cHtorto  tor  TWOOQ  fwd  in  '.Mrr2.i8rr2 

211  C 
n2  C 

ns  C  these  POUR  NESTED  LOOPS  MAKE  AUCOMIBIATRSNS  OP  SURFACES  WnH 
n4  CWAVEUPICIHS  AND  ANCLES  OP  MCSENCESPEOPIED. 
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2IS  C  THE  DESIRED  PARAMETERS  ARE  USED  TO  COMPUTE  THE  MUELLER 
2W  C  MATRIX  EIEMQITS  BY  FIRST  CALCULATTNC  A  SCAUNC  I-O  OMTECRAL,  Q, 

21T  C  AND  THEN  CALCULATTNC  16  2-0  INTECRAIS,  IDDt..lDD16,  THAT  ARE  COMBINED  IN  THE 
21B  C  CORRECT  MANNER  TO  GIVE  THE  MUELLER  MATRIX  ELEVIENTS  FOR  THE 
2W  C  STANDARD  STOKES  VECTOR  notation. 

220  CW  REALITY  FOR  THIS  WORK  ONLY  5  2-0  INTECRAIS  NEED  BE  CALCTXaTED  BUT 

221  C  THE  FROCRAMB  SET  UP  GENERALLY. 

222  DOSOn-ILIHMSQ 

223  HMSQ-HMSQL(n) 

224  C 

225  IX>60D-IjgSiCS 

226  SK»-SICS1|I3) 

227  C  Tltt  OHViIiUofi  length  oin  be  eilcuUlcd  when  hmeq  end  cigi  eie  ftxcd 

23B  C1£NSQ-4.*HMS0SICS 

229  OEN-SORTICIENSQ) 

230  C 

231  lOlD-O 

232  00  70  0-tJ<IWLEN 

233  WLEN-WLENL<D) 

234  C  ICO  end  the  lelellve  dielectric  oonelent  cen  he  oonpuled  when  wIen  to  kiwwn 

235  ER-ERCMP(WLEN) 

236  IC0-2*FVWLEN 

237  ROSQ-KO'ICO 

23B  wiite(i,«TReletlve  dtolectrtc  oonetent  '.ER 

239  C 

240  DO  BO  H-I.NANC 

241  ANC-ANCL(H) 

242  C  TTiete  to  the  engle  between  the  incident  direction  end  the  norniel  to  the 

243  C  leleienct  plene  in  redtom 

244  THETA-PPANC/180.0 

245  CSTHT-OOS(IHETA) 

246  SNTHT-SIN(IHETA) 

247  C 

24B  C  wrtle<B,*rAngle<deg)  Wien  MeenSq  Slope  MeenSqHgf 

249  wrileB.*)ANC.T«fUEN.SICS.HMSQ 

250  C 

251  C 

252  C  THB  SECTION  COMPUTES  THE  SCALAR  Q  VALUES  FOR  3  AUTOCORR  FUNCTIONS 

253  C  RCODE-1 ->  GAUSSIAN  RCCX7E-2 ->  N-B  RC(X>E-3 ->  N-6 

254  CPALLQVAIUES  ARE  TREATED  AS  0  THEN  IFlACI-0  AND  THE  IDDSIXJ  NOT 

255  C  NEED  TO  BE  CALCULATED. 

256  IFLACT-0 

257  D01BRCCX)E-U 

25B  CAUQCMFtCXRCOOE).AERR1,RERR1.RCOOE) 

259  »(Q(RCODE>.CT.O.)IFLAC1-I 

2M  tiCONTIVUE 

261  C 

262  C 

263  C  THB  SECTION  COMPUTES  THE  16  nX)  VALUES  NEEDED  FOR  THE  MUELLER  MTX. 

264  C  NOTE  ONLY  5  D6TV9CT  BITECRATTONS  ARE  DONE  THE  OTHERS  ARE  KNOWN  FOR 

265  C  OTHER  REASONS  ASSIOiED  TO  THE  FOLLOWReC  CONDTTTONAL  ASSIGNMENTS. 

3M  C  WLACI-I  TTSN  THERE  IS  A  REASON  TO  CALCinATE  THESE  VALUES 

167  CVIrB  HELD  CONSTANT  OVER  A  RANGE  OP  WAVELENGTHS  THEN  IDDS  ONLY 
IBB  C  NEED  TDK  CALCULATED  ONCE  FOR  each  B4CR>ENT  ANCLE 
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IM  BHIRACI  .CT.O.)  THEN 

ro  V(DCODEJJE.t  OltlOLO.NE.1)THEN 
2n  DO40n.-l,1« 

m  *(II-EQ10fca.EQJ.0ILIL.EQ.4.0R.II.EQJ.0ILn.EQ.i)THEN 

273  CAU.  KX)CM?(IDO(IUAEItU.REIUt2.n.} 

274  ELSE  l|i(ll.EQJ.OILn.EQ.7)  THEN 

275  ■D0(ID-ID0(2) 

27*  ELSE  R^EQJ)  THEN 

277  DO<ILH>- 

271  ELSE  n*(IL.CE4)  THEN 

279  IDO(IL)-0. 

280  ENtMP 

281  90  CONTINUE 

282  Clf  Erls  oofl«l4fil  then  Mvc  100*4  for  next  vrsvclet^th 

283  V(DCOOE.EQ.1)THEN 

284  0043IL-1,I« 

285  SVIOO(U,IL)-IDD<a) 

28*  n  CONTMUE 

287  ENOV 

288  ELSE 

289  C  8  Er  It  eoiMkiM  end  the  fOCt  htve  been  ttved  imc  Ihem 

290  0092  0.-1,1* 

291  IOD(ll3-SVIDO(M,IL) 

292  92  CONTMUE 

2n  BNOV 

294  ENOIP 

299  C 
29*  C 

297  CTHB  SECTION  UT1UZEO  THE  IDO  VALUES  TO  COMPUTE  THE  MUELLER  MTX 

298  CELEMEPmOIVIOEDlYI. 

299  CP(l)“Pn^  P(2)-F12/Q,  ..  P(S)-P21^  ..  P(l*)-P44/Q 

300  C  MANY  OP  THESE  RVALUES  ARE  ZERO  BUT  THEY  ARE  CALCULATEO  HERE  FOR 

301  C  COMPLETENESS.  THEM  CAUCULATTON  TIME  K  MQOUIE  COMPARED  TO  THE  ACTUAL 

302  C  EVTECRATIONS. 

303  P0)-3*(IDD0)tR>O(3)«IDD(3)«IDO(4)) 

304  P(2)-J*(IDDO)«K>OOHDD(3HDO(4)) 

305  P(3)-IDD(9) 

30*  P(4)-00(10) 

307  P(3)-J*(|DO|1HDO(2)«0)DOHDO(4)) 

308  Ptl)-J^K>D0HDO0HEX>P)HDO(4)) 

309  P(7)-IDDn3) 

310  P(8)-4DO04) 

311  P(9)-2.’IDO0l) 

312  PnO)-2.’K>D(15) 

313  P(11)-K)D(S)«aDD(7) 

314  Pn2)-OD(t)«DO(8) 

319  Pn3)-2.’CIDn2) 

31*  P04)-Z*IDO(m 

317  pps>-BO«t)nDO(B) 

318  P(I*M)D(Q4DD(7) 

319  C 
310  C 

321  CTWSCALARQVALUES  ARE  WRITTEN  ON  ONE  LB9E  and 
3a  C«MUEUERMATRRELE34ENTSDmCCD8YQ  AREVnUTTENONTHENEXT. 
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323  c  THE  OTHER  10  ARE  KNOWN  TO  BE  ZERO  FOR  THE  WORK. 

324  WRnE(9,2000)QO),QO).Q(3) 

325  *nm(»,2000)PO),P(i),Hi),r(lt),r(l2),PCI6) 

326  2000FORMAT<6E1Z4) 

327  wiHKB,2001)Q(1),QP),Q(3) 

326  w»1M6.2001)IDD(1),IDD(2),IDD<4).IDO<5),IDD<6) 

329  2001  K>RMAT(6EU.4) 

330  C 

331  60  CONTINUE 

332  IOLO-1 

333  70CONT1NUE 

334  60CONT1NUE 

335  50  CONTINUE 

336  C 

337  REWIND<7) 

336  REWIND<6) 

339  REWINO(9) 

340  CLOSE(7) 

341  CUKE(6) 

342  CLOSE(9) 

343  STOP 

344  END 

345  C 

346  C 

347  C 

346  C  THE  SUBROUTINE  DRIVES  QOAC  TO  COMPUTE  Q 

349  SUBROUTTNE  QOTT(aAERR.RERR.RCODE) 

350  «EALVX,VY,V«:.VysC!H.UPIJM,QPRIME,SETARC.ARC,ARC1, 

351  1  UPUMD.UPUMI.SETUPR 

352  REAL  HMSQ,Cl£N.ClENSQ,WLEN.THFrA.SNTHT.CSTHT.SICS,KO,PI 

353  REALCCMTI 

354  MTECERRCOOE 

355  EXTERNAL  ARC 

356  COMMONKTNE/HMSQ.CLEN.CLENSQ.WLEN.THETA.SNTTTT.CSTHT.SICS.KO.PI 

357  C  POR  EACH  VALUE  OP  THETA  COMPUTE  COMPONENTS  OP  VECTOR  V. 

356  C  THEN  COMBINE  wnH  THE  MEAN  SQUARE  HEICHT  AND  SAVE  IN  ARC 

359  C  WRnE«.*rSNTTTT,CSTKr.SNIHT,CSTHT 

360  VX-2.iarSNTHT 

361  C  V2-0. 

362  VY-2TCfl*CSTHT 

363  VXZ-ABS<VX) 

364  VYSQH-VYnnr»HM5Q 

365  SETARC-ARC1(VXZ,VYSQH) 

366  UPUMD-SETUPR(RCODE) 

367  SETARC-CCNTKD.) 

366  C  COMPUTE  THE  UPPERUMIT  ON  THE  INTECRATTON  BY  ASSUMEIC  THE  INTECRAND 

369  C  DIES  AWAY  wnHTNUPLMD  CORRELATION  LENGTHS 

370  UPIJM-UPUMt>>Cl£N 

371  UPUMI-UPUMAOO. 

372  lOOCONTViUE 

373  C  COMPUTE  THE  DOUBUtmcRAL  WHERE  ONE  HAIP ->  2PI 

374  C  THIS  CAN  BE  DONE  BY  SWTTCHINC  TO  POLAR  COORDINATES 

375  C  V  NO  tlTERCRANDE  POUND  THEN  REDUCE  BITECRATTON  LBvinS  TO  PINDTr 

176  CAU.  QDAC(AltaO..UPUM.AEXR  .RERR,1.QPR1ME.ERREST) 
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} 


377  QPUME-QPRIME'Pn 

37S  n><QPIUME.EQi).AND.UPLIM.CT.UPLIM1)THEN 

379  UI>LIM-UPIJMn).7 

360  GOT0 100 

361  ENDIP 

362  C 

363  C  B>  QPRIME  >  0.  THEN  COMPUTE  THE  TOTAL  Q 

364  C  IP  QPMME  STILL  EQUALS  ZERO  THEN  INDICATE  BY -996. 

365  C  IP  QPRIME  WAS  LESS  THAN  ZERO  INDICATE  BY -999. 

366  IP  (QPR1ME.CT3>.)THEN 

367  Q-(iarK(VPI)^PRIME 

366  ELSE  IP(QPR1ME.EQ.0.)THEN 

369  Q-996. 

390  ELSE  IP(QPR1ME.LT.0.)THEN 

391  Q-999. 

392  ENDIP 

393  C  WRIIE(8,»)'Q-’,a‘  ACCESSED,CCNT1(0-) 

394  RETURN 

395  END 

396  C 

397  C 
396  C 

399  C  THIS  PUNCTTON  COMPUTES  THE  INTEGRAND  OP  Q  FOR  DCADRE. 

400  C  THIS  PUNCTTON  HAS  3  ENTRY  POINTS 

401  C  BS|0  COMPUTES  BESSEL  PUNCTTON  |  SUB  0 

402  PUNCnON  ARC<RD) 

403  REAL  BS(0.RRSURP.CHI2.CHISaiSUB0,RD.VXZ,VYSQH 

404  REAL  COUNT, DUMMY 

405  DHEGER  RCODE.DRCODE 

406  SAVE 

407  COUNT-COUNT*!. 

406  JSUBO-BSKXVXZ’RD) 

409  CHD-EXP((RRSURP(RD)-1.rVYSQH) 

410  ARC-|SUB0’(an2-CHISQrRO 

411  C  ARG-I. 

412  RETURN 

413  C 

414  C 

415  C  THB  SECOND  ENTRY  POINT  SAVES  SOME  CONSTANTS  POR  A  GIVEN  INTEGRATION 

416  C  THESE  VALUES  ARE  ONLY  PUNCnONS  OP  THE  SURPACE  PARAMETERS  NOT  OP  RD 

417  ENTRY  ARGI(DVXZ.DVYSQH) 

416  VXZ-DVXZ 

419  VYSW-DVYSQH 

420  CHEQ-EXPT-VYSQH) 

421  ARG1-1.0 

422  RETURN 

423  C 

424  C 

425  C  THIS  ENTRY  RETtniNS  THE  NUMBER  OP  ACCESSES  SINCE  LAST  INQUIRY 

426  ENTRY  GCNTT  (DUMMY) 

4r  GCNTI-COUNT 

426  COUNT-DUMMY 

429  RETURN 

430  END 
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«i  c 

«32  c 

413  C  THB  FUNCTION  CALCULATES  THE  AUTOCORKELATION  FUNCTION  USED  TO 

414  C  MODEL  THE  RANDOMLY  ROUGH  SURFACE 

435  C  aSKI  COMFUTES  THE  BESSEL  FUNCTION  K  SUB  1 

436  CBSKO  COMFUTES  THE  BESSEL  FUNCTION  K  SUB  0 

437  FUNCTION  RRSURF(RD) 

438  REAL  RD,R.RSQ,R4TH,R6TH.KAPPA6,KAPFA8,B5K1,BSK0,TERM].TERM2 

41»  REAL  HMSQ,CLEN,CLENSQ,WLEN,THETA,SNTHT,CSTHT,SICS,IC0,FI 

440  MTECER  RCOOEDRCODE 

441  COMMONA3NE/HMSaCLEN,CLENSQ,WLEN,THETA,SNTHT,CSTHT,SlCS,KO,FI 

442  IF(RD.EQ.0.)THEN 

443  RRSURF-1. 

4U  RETURN 

445  ENDIF 

446  IF<RCODE.EQ.1)THEN 

447  RRSURF-EXTT-RD'RD/CLENSQ) 

448  RETURN 

449  EISE  IF(RCODE.EQ.2)  THEN 

450  R-RD^PPA8 

451  RSQ-R*R 

451  IUTH-RSO>RSQ 

453  R6TH-RSQ‘R4TH 

454  TERMt-0.-3.*RSO«  i3  ’R4TH/32.<R6THO072.)*B’BSKl(R) 

455  TERM2-(RSQa.-R4TH/4.-R6THM.)*BSK0(R) 

456  RRSURF-TERMUTERM2 

457  RETURN 

458  ELSE  IF(RCODE.EQ.3)  THEN 

459  R-RD>KAPFA6 

460  RSO-R’R 

461  R4TH-RSQ'RSQ 

462  TERMl-(l.-3.‘RS<y4.-R4TH«6.)'R’BSKl(R) 

463  TERM2-(RSOa.*3.*R4TW14.rBSK0(Rj 

464  RRSURF-TERM1«TERM2 

465  RETURN 

466  ELSE 

467  WRITE<8,*)TLLECAL  RCODE' 

468  STOP 

469  ENDIF 

470  RRSURF-0. 

471  RETURN 

472  C 

473  C 

47«  ENTRY  SETUFIKDRCODE) 

475  RCODE-DRCODE 

476  SETUFR-1. 

477  IF(RCODE.EQ.1)THEN 

478  SETUFR-  5. 

479  ELSE  IF|RC00E.EQ.2)  THEN 

480  KAFPA8-SQRT(1.6VaEN 

481  SETUFR- ITSjSQRTP  .6) 

482  ElSEIF(RCODE.EQJ)THEN 

483  KAFPA6-1A1EN 

484  SETUFR-17S 
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4U  ENDIP 

486  KEnntN 

4r  END 

466  C 

489  C 

490  C 

491  C  TOB  SU8ROUT1NE  DRIVES  TWODQ  TO  COMPUTE  IDD  FOR  DITDKI  IN  INTEGRAND 

492  CINE  REAL  PARTE  COMPUTED  FOR  CODE- I  OR  2,  IMAGINARY  CODE- 3 

493  SUBROUTINE  IIX>CMP(IDD,AERR.RERR.IL) 

494  REAL  IDD,  AERR.RERR.ERREST 

495  REALHZMIN,HZMAX,HXMIN,HXMAX,KZMAXI 

496  REALSOPaSP2.SPHXHZ.SZMIN,SZMAX 

497  ■EALHMSaCLEN,CLENSQ,WLEN,THETA,SNTHT,CSTHT,SIGS,KO,PI 

496  REALCCNT2 

499  INTEGER  ICODE<16).BUB04),JSUB06).KSUB06),ISUB06) 

500  INTEGERIL 

501  COMPLEX  ERCMP.UR 

502  EXTERNAL  ARCIDD,2MIN^AX 

503  COMMONA3NE«MSaCLEN.CLENSQ,WLEN,THETA,SNTHT,C5THT,SICS,ICO,PI 

504  DATA  KODEn.l, 1.1,2,3,24,2,3,2,3,2,3,2,3/ 

505  Data  Buafl.i,2,2.i.i,i.i.t,i,i,i.2.2,i,i/ 

506  DATA  JSUB/1,2,1,2,1,1,2,X1,1,1,1,1,1,2,2/ 

507  DATA  KSU8n,l,2.2,2.LL2,I,I,2,2,2.L2.2/ 

506  DATA  lSUBrt,lI,L2,2,l.I,LH.l,L2.2.2/ 

509  C 

510  UR-(1..0.) 

511  SETUP-SDPQ<ICODE<IH.BUB<n.).PU8(IL),KSUB<n.), 

512  1  LSOa<n.),ERCMP(WLEN).UR.CSTHT,SNTHD 

513  SETUP-SP2(SICS,SNTHT,CSTKr,I1) 

514  C  WRnE(B.*)TACT-  .SETUP 

515  SETUP-SPHXH2(PI,SICS) 

516  C  WRnE(8.’)'DENOM-  '.SETUP 

517  SEnjP-CCNT2<0.> 

516  KZMIN-0. 

519  HZMAX-S.*SQRT(SfCS) 

510  HZMAX1-HZMAX>.4 

521  HXMIN-HZMAX 

522  HXMAX-HZMAX 

523  199SETUP-SZMIN<H2MIN) 

524  SETUP-SZMAX(HZMAX) 

525  C 

526  CALL  TWODQ<ARCIDD,HXMIN.HXMAX.2MIN.ZMAX.AERR.RERR.i,IDD.ERRE5T) 

527  IDD-2.’IDD 
526  C 

529  C  WRnE<8,»)1DO-  '.IDD,'  ACCESSED',CCNT2<0.) 

530  V  (■DD.EQ.04.AND.HZMAX.CT.KZMAXI)THEN 

531  HZMIN-HZMIN*.7 

532  H2MAX-HZMAX>.7 

533  HXMB9-HXMIN*.7 

534  HXMAX-HXMAX>.7 

535  GOT0 199 

536  OIDIP 

537  C 

536  RETURN 
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SI»  END 

540  C 

541  C 

542  C 

543  C  THESE  FUNCTIONS  CALCULATE  THE  HZ  LIMITS  FOR  2-D INTECRATION  BY  TWODQ 

544  FUNCTION  ZM1N(XI) 

545  lt£ALD1ZMlN,D2ZMIN 

546  SAVE 

547  ZMIN-D1ZMIN 

54*  RETURN 

549  BOTRY  SZMIN(D2ZMIN) 

550  DIZMBM-DZZMIN 

551  SZMIN-1.0 

552  RETURN 

553  END 

554  C 

555  FUNCTION  ZMAX(XI) 

556  REAL  D1ZMAXD2ZMAX 

357  SAVE 

ZMAX-D1ZMAX 
599  RETURN 

560  ENTRY  SZMAX(D2ZMAX) 

561  DIZMAX-D2ZMAX 

562  SZMAXM.0 

563  RETURN 

564  END 

565  C 

566  C 

567  C 

569  CTHB  function  CALCULATES  THE  ARGUMENT  OP  IDD  FOR  TWODQ 

569  FUNCTION  ARCIDD(HX.HZ) 

570  REALCOUNT.IXIMMY.HXZSQ 

571  REAL  DENOM.DSICS,SICS.SNTHT.CSTHT,n,PACr 

572  REALSiCSRT.FIC.CO.TANT,COTT,R.F1,F2 

573  REALERFC 

574  SAVE 

575  C 

576  COUNT-COUNTtl. 

577  HXZSQ-HXWtHZniZ 
571  C 

579  IP(HX.LT.carT)THEN 

510  F2-0. 

9B1  ELSE 

512  F2-FACT 

513  ENDR' 

9(4  C 

5(5  FHXHZ-EXFf-HXZSQfSiCSyDENOM 

5(6  C 

5(7  ARCIDD-PHXHZ’PZ*DFQMAC<HX.HZ,HXZSQ) 

m  RETURN 

5(9  C 

990  C 

991  ENTRY  SFHXHZ(FI,DSICS) 

992  SICS-DSKS 
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an  DENOM-R-SICS 

SM  SmXHZ-DENOM 

9M  REnntN 

sw  c 
vn  c 

sn  ENIXY  SF2(D5ICS,ShrTKT,CSTHr,PI) 

sw  SiCSKT-SQItTCDSiCS) 

*00  nC-J’SICSRT/SQItT(PI) 

*01  V(AIS(5NTHT).LT.1.E-10)THEN 

(02  COIT-l-ESO 

*03  00-0. 

*0*  ELSE 

*05  TANT-SNlW/CSIHr 

*0*  COTT-I/TANT 

(07  R-CaiT/SICSIlT 

*00  n-Exp(4m) 

(09  n-ERPC<ll) 

*10  O0-PIC»rAN7*P1-.5»P2 

(11  ENOIF 

*12  FACT-lJ0.*O0) 

*ij  sP2-PAcr 

*14  EEnjSN 

«ts  c 
*1*  c 

(17  ENTEy  CCNT2(DUMMy) 

(1*  CCNn-COUNT 

*W  COUNT-DUMMY 

*20  KETUEN 

*21  END 

*22  C 

623  C 

624  C 

623  CTHSPUNCnON  CALCULATE  Dqn>KL  AS  PAET  OP  IDD^WTECEAND 
616  FUNCTION  DFOMAC<HX,H2:,HXZSQ) 

627  COMPLEX  EE.UE.E1E.ETAEEEM.EEME.EEMEE,UEM,UEME.UEMEE 

620  COMPLEX  SN1N,CS1N,DEN2,DEN3,an>,CFW,CPHH.01,B2.n,M 

629  COMPLEX  DPQ(2.2),DEE.DUE 

6X  EEAL  HX.H4HXZSQ,SNTHT.CSTHT.DSNTKT,DCSTHT 

631  BEAL  CSC, TNC,SNC.CS0N,SN0N,SNPDI,CSPDI,S0IF,C0IP 

632  EEAL  CSSLSNSILSNSIF 

633  B4TECEE  (CODE.BCODE.15UB.B5UB.ISUB.IISU0ICSUB.KX.Si  10  I  .Sim  i  icim 

634  SAVE 

635  C 

636  CSC-1./SQKTn.«HX2SQ) 

637  TNC-SCBT(HXZSQ) 

*3*  SNC-CSCMNC 

639  VriNC.LT.1.E-$)THEN 

*40  CSON-CSTHT 

*41  SNON-SNTHT 

*42  EISE 

*43  (5PD(-HX7INC 

*44  SNPDI-HZ7INC 

*45  CS0N-CSCXSTKT4NC'SNTKrcSPDl 

*4*  $NaN-SQKTn..CSON*CSOBO 
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ENIMP 

M« 

C 

M9 

■^A6S<CS0N).LT.I.E-5)  IHEN 

«so 

DPQMAC-0. 

ttl 

lETUVN 

6S2 

ENDIP 

653 

c 

654 

SNIN-SNONAm 

655 

CSIN-CSQKTO  -SNllrtNlN) 

656 

DEN2~CS0NKSIN*ETAIt 

if 

657 

DEN3-CS0NKS1KVETAR 

656 

SOiP-SNON’SNON 

6W 

cov-csaN 

uc 

aiP-CSIN^SIN 

Ml 

CFVV-a)IP’((-UR'>C1ll>40IFrERMIl-URMy(DEN2*DEN2) 

M2 

CniH-C0O*((-ER*aiP40IFrUKMR-ERMV(DEN3*DEN3) 

M3 

C 

6M 

n>(TNC.LT.t.E-5)mEN 

665 

DPQO.n-CPW 

6M 

DPQ(1.2)-0. 

M7 

DFQai)-0. 

668 

DPQP,2)-CPHH 

669 

EISE 

670 

CSSi-(CSC*SN7HT»SNCXSTHPCSFDIV5N0N 

671 

SNSa-SNC*SNn>KNON 

671 

SNSV-SNSa 

673 

K-CIWCSSI 

\ 

674 

•J-CFHH*SNS« 

675 

B-CFWWSn 

676 

B4-CPH»rCSSI 

677 

DPQ0,1)-CSSP01-SNSIP'8J 

67( 

DPQ(1.5)-CSSr63«NSIP’64 

67» 

DPQai)-SNSII>’6t  KSSP62 

660 

DPQ(Xl)-SNSI>»B3«CSSr64 

661 

ENDIP 

662 

C 

663 

IP<KXX)E.Eg.I)THEN 

664 

DPQMAC-<CA0S<DPQ(l5U6,ISUB)yCSC)-2 

665 

ELSE  IP(ICODC.EQ  J)  mEN 

666 

DPQMAC-REAUDPQ(l5UB,|SUBrCON|C<DPQ(KSUB.lSUB))yCSOCSC 

667 

ELSE 

666 

DPQMAC-AMAC<DPQ(15UB.|SUB)>C0NIC<DPQ(KSUe.LSUB))yCSCA:SC 

9 

669 

ENDIP 

6«0 

REUAN 

691 

c 

692 

C 

693 

ENTRY  SOPQ(IICOOC.IISUB,nSUB.KKSUB.USUB.OEIl.DUIL 

p 

694 

1  DCSmT,DSNTHI) 

665 

ICODE-IICODC 

666 

6UB-BUB 

697 

I5UB-DSUB 

666 

KSUB-ncSUB 

666 

LSUB-USUB 

700 

CSTHT-DCSTHT 
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701  SNTHT-OSNmr 

702  EI-DEK 

703  Ut-DUR 

704  M-CSQIIT(ES^) 

705  ETAK-C5QRT1(Ult/ER) 

705  ERM-I.-CX 

707  ESMR-I.-1A> 

TOO  ERMNt-EIMRnaR 

TOt  UKM-t.-Ult 

710  URMR-I.-IAIK 

711  URMRR-URIkflnm 

712  soro-iA 

713  RETURN 

714  END 

715  C 
715  C 
717  C 

715  CTHBrUNCnONCOUmnES  THE  VALUE  ER  IF  INTERFOLA'nONE  DESIRED 
715  C  OTHERWEErriUST  RETURNS  THE  CONSTANT  VALUE  CIVB4  DM  PARAMS. 
710  COAiPLEX  FUNCTION  ERCMF(WLEN) 

721  RMTECER  NFTS.DEC,l.|,liilDM,MAX.DOEC.DNPTS 

722  REAL  OnMOaO) 

713  REAL  WlEN.WNF.FACTOR.U,NR.KR 

714  C05IFLEX  DIEIUKIOLEREST 

715  CHARACTERnOFNAME 

715  SAVE 

m  c 

715  *(NFTS.EQ.1)THEN 

725  ERCMF-DIERC) 

730  RETURN 

731  ELSE 

732  CM SHiwm  In  nla<m  w  «nv«  number  m  1/cm 

733  WNF-IOOOOVWLEN 

734  l-<DCCr1)/2 

735  P(WN<I).CT.WNF)THEN 

735  AWM-I 

737  I4AX-MM«0CC 

735  COTO211 

735  ENOV 

740  »>  P(WN<I).CT.HNF)  GOTO  210 

741  i-in 

742  »(I.EQJMFTS-<I»Cr1J/2JTHEN 

743  MAX-NnS 

744  MM-NPIVDEC 

745  GOTO  211 

745  ENDIF 

747  conroloo 

745  C 

755  210  MRM*H)ECa>1 

750  MAX-MR4>DEC 

751  111  FACTOR  -  1, 

752  C  WRTTEIO.’rMn.blAX  '.54*4,MAX 

7»  C 

734  OO210)-liinM.MAX 
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755  V(WNr JK.WNa))COTO  230 

756  EltCMP-DtElia) 

757  unniN 

755  230  rACTOt-rACTOIt*(WNP-WNa)) 

75*  C 

760  EUST-(0,0.) 

761  OO230I-MIN.MAX 

762  U-FACT0IU(WNP-WN(I)) 

765  D0  240|-M1N,MAX 

764  240  B>(IJJE.I)U-LB<V»N(I>-WN(J)) 

765  250  EltEST-EI(E5T*DIEK(lrU 

766  ENDIP 

767  C 

766  ERCMP-EKEST 

769  lOiniN 

770  C 

771  C 

772  ENTKY  SETOtdlNPTS.DDEC) 

775  NPPS-DNPTS 

774  DEC-DOEC 

775  V(NPT5.EQ.I)n«N 

776  EEAD(7,*)D1EK(1) 

777  EISE 

776  BEAD(7.-(Ar)PNAME 

77*  WUTE(6.*)'OFENlNC  ‘.ngAME.-  AS  DtElECTlUC  Pllf 

7*0  OPEN(UNrr-t0,PIL£-PNAME) 

761  ltEAD00,*)NPrS 

762  D0  277l>t^PTS 

765  I<EAO(10,*)WN<I).N«.I» 

7*4  DlER(l)-<1..a.r(N6*NR-ICIflCRHQ.,1  rA8S(2'NR'KR) 

7*5  277  CONTINUE 

7*6  CIOSECO) 

TV  ENDIP 

7|*  SETEI-I. 

7*6  RETUItN 

7*0  END 
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AV.6  SAMPLE  CALCULATIONS:  PARAMETERS  INPUT,  COMMENTARY  AND  DATA 
OUTPUT  FILES. 

"Params"  is  an  input  file  for  RETRO,  containing  topographical  parameters  about  the 
scatterer  and  routine  control  information.  UNIX  output  files  "TestClc.d"  and  "TestClc.c" 
are  created  by  RETRO  for  calculation  inspections  and  trouble-shooting  purposes.  (1)  "Test" 
implies  the  file  was  created  by  RETRO,  and  is  not  a  combination  of  other  output  files,  (2) 
upper  case  "C"  implies  that  this  is  a  composite  clay  material,  (3)  "0"  and  lower  case  "c" 
imply  that  mean-squared  height  and  slope  of  the  clay  surface  is  5  pim*  and  0.5  respectively, 
and  ".c"  or  ".d"  at  the  end  indicates  commentary  file  or  data  file  for  DISPLAY,  respectively. 


AV.6.1  Sample  data  file  "PARAMS.^  (See  Appendix  V.1.1) 

line  #  (No  leading  spaces  in  first  column) 

1  TestClc.c 

2  TestClc.d 

3  composite  clay 

4  -1  0.  0. 

5  1.5 

6  -1  0.  0. 

7.5 

8  71  9.  0.05 

9  22  0.  4. 

10  0 

11  compos.nk 

12  .000000001  .0000001 
13  .00001  .005 


AV.6.2  Sample  data  file  TestClc.d.  (See  Appendix  AV.1.4) 


1.  composite  clay 

2.  0001  0001  0071  0022 

3.  0.1500E+01 

4.  0.5000E+00 

5.  0.9000E+01  0.9050E+01  0.9100E+01  0.9150E+01  0.9200E+01 

6.  0.9250E+01  0.9300E+01  0.9350E+01  0.9400E+01  0.9450E+01 

7.  0.9500E+01  0.9550E+01  0.9600E+01  0.%50E+01  0.9700E+01 

8.  0.9750E+01  0.9800E+01  0.9850E+01  0.9900E+01  0.9950E+01 

9.  O.lOOOE+02  0.1005E+02  O.lOlOE+02  0.1015E+02  0.1020E+02 

10.  0.1025E+02  0.1030E+02  0.1035E+02  0.1040E+02  0.1045E+02 

11.  0.1050E+02  0.1055E+02  0.1060E+02  0.1065E+02  0.1070E+02 

12.  0.1075E+02  0.1080E+02  0.1085E+02  0.1090E+02  0.1095E+02 

13.  O.llOOE+02  0.1105E+02  O.lllOE+02  0.1115E+02  0.1120E+02 

14.  0.1125E+02  0.1130E+02  0.1135E+02  0.1140E+02  0.1145E+02 

15.  0.1150E+02  0.1155E+02  0.1160E+02  0.1165E+02  0.1170E+02 

16.  0.1175E+02  0.1180E+02  0.1185E+02  0.1190E+02  0.1195E+02 

17.  0.1200E+02  0.1205E+02  0.1210E+02  0.1215E+02  0.1220E+02 

18.  0.1225E+02  0.1230E+02  0.1235E+02  0.1240E+02  0.1245E+02 

19.  0.1250E+02 


20. 

21. 

22. 


O.OOOOE+00 

0.2000E+02 

0.4000E4^02 


0.4000E+01 

0.2400E+02 

0.4400E+02 


0.8000E+01 

0.2800E+02 

0.4800E+02 


0.1200E+02 

0.3200E+02 

0.5200E+02 


0.1600E+02 

0.3600E+02 

0.5600E+02 
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23.  0.6000E+02  0.6400E+02  0.6800E+02  0.7200E+02  0.7600E+02 

24.  0.8000E+02  0.8400E-I-02 

25.  0.2446E+01  0.1649E+01  0.1901E+01 

26.  0.2483E+(X)  -0.1437E-11  0.2336E+00  -0.2188E+00  ^).1539E-12  -0.2336E+00 

27.  0.2412E+01  0.1605E+01  0.1896E+01 

28.  0.2482E+00  0.3166E-03  0.2332E+00 -0.2181E+00 -0.5693E-03  ^.2332E+00 

29.  0.2312E+01  0.1703E+01  0.2447E+01 

30.  0.2478E+00  0.1243E-02  0.2320E+00 -0.2162E+00 -0.2228E-02 -0.2320E+00 


3139.  0.3237E-02  0.4312E-02 

3140.  0.6718E-01  0.1580E-01 

3141.  0.5769E-03  0.1179E-02 

3142.  0.5872E-01  0.1476E-01 

3143.  0.6616E-04  0.3242E-03 

3144.  0.4887E-01  0.1313E-01 

3145.  0.4011E-05  0.9443E-04 

3146.  0.3741E-01  0.1075E-01 

3147.  0.7976E-07  0.2454E-04 

3148.  0.2409E-01  0.73%E-02 


0.8359E-02 

0.6122E-01  -0.5657E-01 
0.3512E-02 

0.5334E-01  -0.4907E-01 
0.1474E-02 

0.4427E-01  -0.4053E-01 
0.5812E-03 

0.3380E-01 .0.3074E-01 
0.1781E-03 

0.2172E-01  -0.1961E-01 


-0.4200E-02  ^).6252E-01 
-0.3925E-02  ^.5445E-01 
-0.3492E-02  -0.4513E-01 
-0.2857E-02  -0.3435E-01 
-0.1%5E-02  ^.2198E-01 


AV.6.3  Commentary  file  TestClc.c.  (See  Appendix  AV.1.3) 

1  Commentary  for  retro 

2  Output  file  is  TestClc.d 

3  Material  description  is  Composite  Qay 

4  1,  Mean  square  height  values  read  in 

5  1,  Mean  square  slope  values  read  in 

6  71,  Wavelengths  read  in 

7  22,  Incident  angles  read  in 

8  Dielectric  code  read  in  0 

9  Opening  compos.nk  as  dielectric  Hie 

10  The  following  relative  dielectrics  are  used 

11  wIen,Er  9.0,  (0.230451874,-1.11635916) 

12  wlen,Er  9.05,  (0.127786514,-0.9956851) 

13  wlen,Er  9.1,  (-0.12072582,-0.933739048) 

14  wlen,Er  9.15,  (-0.349295173,-1.01144447) 

15  wlen,Er  9.2,  (-0.580000781,-1.14418849) 

16  wlen,Er  9.25,  (-0.813025525,-1.31932772) 

17  wlen,Er  9.3,  (-1.06799906,-1.5584366) 

18  wlen,Er  9.35,  (-1.33129798,-1.88047748) 

19  wlen,Er  9.4,  (-1.59029517,-2.30134942) 

20  wlen,Er  9.45,  (-1.82918509,-2.86734854) 

21  wlen,Er  9.5,  (-2.00403183,-3.61813835) 

22  wlen,Er  9.55,  (-2.00863271,-4.69301692) 

23  wIen,Er  9.6,  (-1.62000141,-5.93069545) 

24  wlen,Er  9.65,  (-7.286277419E-02,-6.88245115) 
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25  wlen,Er  9.7,  (1.9116751,-7.26745517) 

26  wlen,Er  9.75,  (2.69681864,-6.34696569) 


77  wIen,Er  12.3,  (2.19544571,-0.322365349) 

78  wlen,Er  12.35,  (2.14063373,-0.355664223) 

79  wlen,Er  12.4,  (2.1129991,-0.433485636) 

80  wlen,Er  12.45,  (2.10166741,-0.515307218) 

81  wlen,Er  12.5,  (2.106225,-0.586) 

82  Error  criteria  for  QDAG  read  in  l.OE-09,  l.OE-07 

83  error  criteria  for  TWODQ  read  in  l.OE-05,  5.0E-03 

84  Cray  Research's  UNICOS  Release  3.0.2 
86 

87  /amsaa  is  full,  please  dean  up. 

88  /secad  is  full,  please  dean  up. 

89 

90  Input  TERM  type?  Tek  4115 

91 

92  COMMAND  REPORT 

93 

94  COMMAND  STARTED  USER-CPU  SYS-CPU  I/O-WATT  ELAPSED  SBU'S 

95  NAME  AT  [SECONDS]  (SECONDS)  [SECONDS]  [SECONDS] 

% 

97  jad  10:04:49  0.01  0.03  0.00  0.09  0.00 

98  segldr  10:04:50  2.94  1.29  0.04  10.95  0.00 

99  sh  10:04:49  0.08  0.07  0.00  3556.54  0.00 

100  jad  10:04:50  0.10  0.97  0.00  3556.13  0.00 

101  a.out  10:05:01  1832.13  6.60  0.00  3545.12  0.00 

102  a.out  15:08:32  1562.01  2.51  0.00  2457.13  0.00 

103 

104  PROCESS  FLOW  CHART 

105 

106 

107  parent  ->  child 

108 
109 

no  jad 

111  se^dr 

112  sh 

113  jad 

114  a.out 

115  a.out 

116 

117  JOB  ACCOUNTING  REPORT 

118  .............. 

119  Operating  System  :  XXXX 

120  User  :  XXXX 
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121  Group  :  XXXX 

122  Accounting  Id  :  XXXX 

123  Job  Id  :  XXXX 

124  Report  starts  :  07/14/88  10:04:49 

125  Report  ends  :  07/14/88  15:49:29 

126  CPU  Time  (User)  3397.2720  Seconds 

127  CPU  Time  (System)  11.4611  Seconds 

128  I/O  Wait  Time  0.0415  Seconds 

129  Elapsed  Time  20680  Seconds 

130  CPU  Tune  Memory  Integral  :  0.8662  MWords  *  Seconds 

131  I/O  W-Tune  Memory  Integral  :  0.1419  MWords  *  Seconds 

132  Data  Transferred  17.0252  MBytes 

133  Logical  I/O  Requests  6454 

134  Real  I/O  Requests  142 

135  No.  of  Commands  6 

136  Billing  Units  0.0000 


9 


r 
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AV.7.1  DISPLAY  User's  Guide:  STARTUP  PROCEDURE. 

To  run  DISPLAY,  log  on  and  type  "display,  run"  after  the  prompt.  This  runstream  com¬ 
piles,  links,  and  executes  the  program.  DISPLAY'S  executable  code  is  stored  in  the  file 
display.xqt.  If  one  desires  to  rerun  DISPLAY  during  the  same  login  session,  type 
"retro.xqt."  This  will  run  the  program  again  without  unnecessary  recompiling  and  reliidc- 
ing.  Since  retro.xqt  is  a  very  large  file,  it  should  be  removed  before  logging  off.  The  object 
file,  display.o,  is  removed  immediately  following  the  linking  process. 

At  the  beginning  of  each  run,  the  program  will  ask  for  the  graphics  terminal  type.  DISPLAY 
directly  supports  the  Tektronics  4107  and  4115  device  drivers.  After  the  terminal  type  is 
defined,  DISPLAY  enters  its  main  menu. 

A  note  about  Tektronics  terminals.  If  the  page  border  and  words  of  a  DISPLAY  plot  are 
drawn  in  dashed  lines,  the  problem  is  that  the  CRAY  has  changed  the  terminal  setup 
status.  A  solution  to  this  problem  is  simply  wait  for  the  plot  to  finish  then  press  the  reset 
button  on  the  terminal.  Tliis  will  clear  the  screen,  self  test,  and  reset  the  terminal's  setup 
parameters.  When  the  self  test  is  finished,  press  <REnjRN>  to  continue. 


AV.7.2  MAIN  MENU  OPTIONS. 

After  the  menu  described  below  has  been  printed,  the  program  prompts  your  input.  As 
with  all  menu  prompts  in  this  program,  type  in  the  number  of  your  choice  and  hit 
<RETURN>.  If  you  type  an  illegal  value,  the  menu  will  be  reprinted  and  you  should  try 
again.  After  the  main  menu  option  is  entered,  additional  menu  prompts  v«ll  guide  you.  If 
you  make  a  mistake  and  do  not  want  any  of  the  options  presented  at  a  given  menu,  try  typ¬ 
ing  in  "0"  to  back  up  a  menu. 

The  main  menu  has  13  options,  given  below. 

DISPLAY  MAIN  MENU 

11.  Assign  a  surface  for  data  access 

12.  Display  info,  on  an  assigned  surface 

13.  Remove  an  assigned  surface 

21.  Modify  list  of  surfaces  to  use 

22.  Modify  list  of  matrix  elements  to  use 

23.  Modify  list  of  wavelengths  to  use 

24.  Modify  list  of  incident  angles  to  use 

31.  Change  analysis  normalizations 

32.  Change  plotting  format  features 

41.  Do  3-d  plot 

42.  Do  2-d  plot 

43.  Do  Contour  plot 
99.  Quit  program 
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The  first  three  options  11,  12  and  13  are  grouped  as  the  data  file  control  section.  Option  11 
acquires  the  file  name,  auto-correlation  Unction,  mean  squared  height  (<h^>),  and  mean 
squared  slope  (a|)  that  defines  a  surface.  It  then  assigns  a  number  to  that  sample.  Option 
12  displays  pertinent  information  on  the  assigned  surfaces,  thus  you  need  not  rememter  or 
write  down  ail  the  assignment  numbers.  Option  13  allows  one  to  remove  a  surface  assign¬ 
ment. 

The  next  four  options,  21,  22,  23,  and  24  maintain  the  directive  lists  used  by  the  plotting 
routines.  Option  21  builds  a  surface  assignment  list  for  use  by  three  plotting  options, 
determining  which  surface(s)  to  use  for  a  particular  plot.  Option  22  maintains  the  list  of 
matrix  elements  to  use  when  plotting  2-d  representations  of  the  data.  Option  23  maintains 
the  list  of  fixed  X^'s  for  use  when  plotting  2-d  angle  relationships  of  the  Mueller  elements. 
Lastly,  Option  24  maintains  the  list  of  fixed  used  in  plotting  the  matrix  elements  as  a 
function  of  Xq. 

Option  31  controls  which  analysis  operations  are  used  when  data  is  read. 

ft  ft"^ 

In  addition  to  fjj,  it  is  also  possible  to  plot  ^^-l,  or  V/  " 

/ 1>  fij  fu^fij 

Option  32  allows  modification  of  plot  features  such  as  page  size,  line  color,  tickmark  den¬ 
sity,  grid  lines,  curve  thickness,  and  hidden  lines  on  3-d  plots. 

Options  41,  42,  and  43  produce  the  actual  plot  after  the  data  files  have  been  assigned,  the 
directive  lists  are  built,  and  the  plot  format  established.  Option  41  plots,  in  a  3-d  format,  a 
single  matrix  element  of  a  single  surface  as  a  function  of  Xq  and  Oq-  Option  42  graphs  2-d 
cross  sectiorrs  of  3-d  plots  with  either  Og  or  Xg  held  constant.  This  can  be  done  for  multiple 
matrix  elements,  one  per  page.  Option  43  draws  a  contoured  representation  of  3-d  plots. 
Up  to  four  surfaces  can  be  compared  on  one  page. 

Option  99  terminates  the  program.  When  exiting  "bob>,"  remember  to  delete  the  large  file 
retro,  xqt. 


AV.7.3  SURFACE  ASSIGNMENT  OPTIONS. 

These  three  routines  connect  DISPLAY  to  the  desired  data  files.  You  must  know  the  file 
names  before  you  begin.  Required  information  is  obtained  from  prompted  user  inputs. 

The  program  works  on  a  system  of  surface  assignment  numbers.  A  surface  is  defined  by  a 
file  name,  auto-correlation  function  (a  special  code  is  reserved  for  experimental  data), 

<h^>,  and  o-|.  Each  surface  has  its  own  list  of  allowed  6g's  and  Xg's  stored  in  the  heading 

section  of  the  data  file.  Up  to  ten  surfaces  can  be  assigned  at  one  time.  • 


AV.7.3. 1  Option  11. 

Option  11  accesses  the  file  name,  auto-correlation  function,  <h^>,  and  a|  that  define  a 
surface,  then  assigns  a  number  to  that  surface.  This  routine  next  reads  in  the  allowed 
Xg's  and  Og's.  This  option  does  not  read  the  Mueller  matrix  elements,  but  retains  the 
above  information  and  associates  it  with  the  assignment  number  given  to  the  surface. 
The  matnx  elements  are  read,  as  needed,  for  plotting. 

The  data  file  contains  two  distinct  sections:  the  heading  block  and  the  data  block.  The 
heading  block  is  the  key  to  finding  the  elements  of  Mueller  matrix,  F(<h^>,(T|,  Xo,0o). 
The  format  of  the  heading  block  is  as  follows: 
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A  -  description  of  material 
B  -  no.  of  <h*>'s,  o-|'s,  Xq's,  and  0o's 
C  -  <h^>(l) .  .  .  <h^>(no.  of  <h^>'s) 

D  -  a|(l) .  .  .  <h^>(no.  of  crl's) 

E  -  Xo(l) .  .  .  Xflfno.  of  Xq's) 

F  -  60(1) .  .  .  6o(no.  of  Go's) 

The  information  listed  on  lines  C  through  F,  above,  may  actually  occupy  several  lines  in 
«  the  data  file. 

For  files  created  by  RETRO  the  data  block  consists  of  two  data  lines  per  matrix.  The  first 
line  contains  three  Q  values  corresponding  to  the  autoKrorrelation  functions  Gaussian, 
N=8,  and  N-6.  The  second  line  contains  six  generally  non-zero  matrix  elements  divided 
by  Q.  In  order,  these  correspond  to  /n,  /12,  and/ 44.  RETRO  does  not 

fn  =  /12  or  /43  =  -fn-  Th®  other  8  matrix  elements  are  zero. 

For  files  containing  experimental  data  the  data  block  consists  of  three  data  lines  per 
matrix.  The  first  line  contains  the  11,  12,  13,  14,  21,  and  22  elements  of  F.  The  second 
line  contains  the  23,  24,  31,  32,  33,  and  34  elements  of  F.  The  third  lines  contains  the  41, 
42,  43,  and  44  elements  of  F. 

The  matrix  data  should  be  written  in  a  nested  loop  where  <h^>  varies  more  slowly  than 
ct|,  which  varies  more  slowly  than  Xq,  which  varies  more  slowly  than  Oq-  The  looping  of 
each  variable  goes  from  the  first  value,  to  the  last  value  listed  in  the  header  Oines  C  to  F). 
Given  this  information,  DISPLAY  can  access  any  of  the  elements  of  F  on  file. 


AV.7.3.2  Option  12. 

Option  12  displays  pertinent  information  associated  with  the  assignment  numbers:  the 
material  name,  auto<orrelation  function,  <h^>,  o-|,  range  on  Xq  and  range  on  Oq.  This 
option  is  simply  a  reminder  option  of  your  choice  of  the  assignment  numbers. 


AV.7.3.3  Option  13. 

Option  13  is  used  to  remove  an  assigned  surface  and  free  the  assigrunent  number.  When 
the  list  of  assigned  surfaces  is  presented  you  are  prompted  to: 

Enter  the  number  of  the  surface  you  want  to  remove. 

Enter  0  to  return  to  the  main  menu. 

Enter  -99  to  clear  out  all  assigiunents. 

For  example,  to  remove  the  surface  with  assignment  number  6,  enter  "6"  <RETURN>.  To 
exit  without  any  further  removals,  enter  "0"  <RETURN>.  Entering  "-99"  <RE11JRN>  will 
eliminate  all  assigiunents.  Option  13  can  have  an  effect  on  options  21  and  31,  should  a 
material  in  the  directive  list  or  the  base  normalization  material  be  deleted. 


AV.7.4  PLOT  DIRECTIVE  LIST  MODIFICATIONS. 

These  routines  build  lists  of  information  used  by  the  plotting  options.  Information  on  plot¬ 
ting  options  is  stored  so  as  to  avoid  entering  repeated  data  for  different  plot  options. 
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AV.7.4.1  Option  21. 

Option  21  maintains  the  list  of  assignment  numbers  of  the  surfaces  used  in  the  plotting 
routines.  The  first  element  of  this  list  is  the  3-d  plot  feature.  Up  to  four  elements  in  the 
assignments  list  can  produce  a  page  of  contour  plots.  The  entire  list,  a  maximum  of 
seven,  can  be  used  when  comparing  2-d  contour  plots. 

The  flow  of  Option  21  is  similar  to  others  in  this  group.  On  entry,  the  current  list  and  a 
menu  is  displayed.  If  the  list  needs  to  be  changed,  just  enter  the  ntunber  of  assignment 
numbers  for  a  new  list.  Prompts  will  guide  you  to  enter  a  new  list  of  cissignment 
numbers  separated  by  spaces  on  one  line.  These  new  values  are  checked  and,  if  an  ille¬ 
gal  input  is  entered,  returned  to  the  start  of  this  option  (to  reenter  the  correct  list).  A 
return  is  made  to  the  main  menu  when  the  correct  inputs  are  obtained. 


AV.7.4.2  Option  22. 

Option  22  controls  the  list  of  matrix  elements  used  by  the  2-d  plotting  option.  Up  to  four 
matrix  elements  can  be  drawn  on  the  same  page  in  2-d  format  (these  element  numbers 
are  stored  in  this  list).  For  example,  to  plot  the  matrix  elements  /ii»  and  f  on  one 
page,  the  list  will  contain  "11"  and  "22"  and  "34."  The  method  of  entering  a  new  list  is 
the  same  as  for  Option  21. 


AV.7.4.3  Option  23. 

Option  23  maintains  a  list  of  wavelengths.  These  are  the  fixed  wavelengths  used  when 
the  fii’s  are  plotted  versus  6o  in  the  2-d  format.  When  a  comparison  is  being  made 
between  surfaces,  only  the  first  wavelength  is  used,  otherwise  a  comparison  can  be  made 
between  the  wavelengths  as  a  function  of  incident  angle.  The  entry  method  is  the  same 
as  above. 


AV.7.4.4  Option  24 

Option  24  is  like  23,  except  here  a  list  of  fixed  incident  angles  is  maintained.  This  list  is 
used  when  fjj  is  plotted  versus  Xq  in  the  2-d  format.  The  entry  method  is  the  same  as 
above. 


AV.7.5  OPTION 31,  DATA  ANALYSIS  OPTIONS. 


Two  analysis  techniques  are  available  in  DISPLAY.  The  first  causes  all  /,y's  to  be  divided 
by  the  dc  element  /|,.  The  second  allows  one  to  examine  the  percent  difference  between  a 


target  surface  and  a  base  surface,  --I.  When  both  target  and  base  sample  measure- 
ments  are  included  the  normalizations  work  in  succession  through  division  by  /u: 


-1,  and 


fir 

f\r  f!r 


To  set  up  a  desired  analysis,  follow  the  instructions  given  in  the  program. 
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AV.7.5.1  Division  by  f  If 

This  feature  is  included  to  make  the  theoretical  data  more  closely  resemble  normalized  or 
non-normalized  Mueller  matrix  representations  (see  Section  4.5.4).  Division  by  /n  is  per¬ 
formed  as  the  Mueller  matrices  are  being  read  in  as  a  function  of  Xg  and  Og,  before  the 
comparison  to  a  base  material  is  done. 


•  AV.7.5.2  Subtraction  and  Division  of  fij^. 

The  percent  difference  simply  determines  when  base  and  target  surfaces,  as  a  function  of 
Xg  and  Bg,  are  most  dissimilar.  This  operation  is  performed  after  all  the  fij's  have  been 
■*  read  in  for  the  base  and  the  target  materials. 

AV.7.6  OPTION  32.  PLOT  FORMAT  OPTIONS. 

This  option  allows  change  of  various  plot  features  including:  page  size,  line  color,  tick 
mark  density,  grid  density,  curve  thickness,  and  hidden  line  removal.  The  six  sub-options 
are  accessed  through  one  menu. 

The  default  page  size  is  12  by  10.5  inches.  However,  these  dimensions  have  little  to  do 
with  the  absolute  size  of  the  plot  coming  off  the  printer.  This  option  lets  you  change  the 
relative  size  of  the  page. 

For  tciminals  that  have  color  capabilities  supported  by  Disspla,  this  program  allows  one  to 
draw  curves  on  the  same  set  of  axes  in  different  colors.  This  makes  comparisons  easier, 
essential  for  contour  plots.  By  default,  multiple  lines  on  the  same  set  of  axes  are  differen¬ 
tiated  by  line  tyjje  (dots,  dashes,  etc.). 

The  number  of  tickmarks  drawn  per  major  division  on  the  x  and  y  axes  can  be  controlled 
independently  (for  aesthetic  purposes). 

Dashed  grid  lines  can  be  added  to  plots  to  make  accurate  readings  easier.  The  number  of 
grid  lines  per  major  division  on  both  axes  can  be  controlled.  Too  many  grid  lines  will 
clutter  the  plot. 

The  thickness  of  curves  on  2-d  and  contour  plots  can  be  adjusted  depending  on  the  output 
desired.  For  terminal  display  or  paper  plotting,  a  thickness  of  one  is  usually  sufficient.  For 
transparences,  however,  the  thiclmess  should  be  increased,  especially  if  color  is  also  used. 

The  hnal  format  option  concerns  hidden  lines  on  3-d  plots.  The  default  setting  does  not 
remove  hidden  lines  (they  can  clutter  the  plot).  This  option  must  be  executed  to  remove 
hidden  line  data  in  the  3-dimensional  plot,  or  add  them  in  latter  plots. 


AV.7.7  OPTION  41,  3-D  PLOTTING. 

When  executed,  this  option  draws  a  3-d  representation  of  /,y(Xg,6g).  (The  3-d  plots  are 
always  monochromatic.) 

The  assigiunent  number  of  the  surface  used  is  obtained  from  the  directive  list  built  by 
Option  21.  The  program  asks  which  matrix  element  is  to  be  plotted  (this  value  is  not  taken 
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from  the  directive  list),  and  the  correct  reply  is  row-column  element  numbers. 

The  program  then  requests  a  range  of  Xq's  and  Bq's  for  the  base  plane.  When  a  legal  base 
plane  range  is  obtained  data  that  fall  within  that  range  are  mapped. 

The  last  input  required  is  the  viewpoint  of  the  plot.  Disspla  assumes  the  plot  is  in  a  cube 
with  comers  at  (0,0,0)  and  (2,1,1)  (arbitrary  units).  At  (0,0,0),  Xq  =  Xo(min)  and  Bq  = 
6o(min).  At  (2,1,1),  Xg  =  Xo(max)  and  Bg  =  Bg(max).  The  bottom  of  the  cube  is  fjj  =  /g(min). 
The  cube  top  is  /,y  =  (max).  The  program  requires  a  viewpoint  in  terms  of  these  arbitrary 
box  units.  Remember,  the  1st  coordinate  is  positioned  on  the  Xg  axis,  the  2nd  coordinate  is 
positioned  on  the  Bg  axis,  and  the  3rd  coordinate  is  positioned  on  the  fjj  axis.  The  plot  and 
various  headings  are  then  drawn.  Hidden  lines  may  or  may  not  be  removed,  depending 
upon  the  setting  in  Option  32. 

At  this  point  you  have  three  options:  you  can  change  the  viewpoint  for  this  matrix  ele¬ 
ment,  plot  a  different  matrix  element  for  the  same  surface  and  viewpoint,  or  return  to  the 
main  menu. 


AV.7.8  OPTION  42,  2-D  PLOTTING. 

This  option  is  included  because  of  ihe  difficulty  in  reading  values  from  3-d  plots,  and 
because  of  the  difficulty  in  making  absolute  comparison  within  and  between  plots.  In  gen¬ 
eral,  2-d  plotting  allows  you  to  look  at  cross  sections  of  3-d  plots  where  either  Xg  or  Bg  has 
been  held  constant.  The  matrix  elements  plotted  are  defined  by  the  directive  list  of  Option 
22.  Up  to  four  matrix  elements  can  be  plotted  on  one  page.  The  four  possible  plot  types, 
as  presented  by  DISPLAY,  are: 

1.  Spectral  with  multiple  fixed  incident  angles  for  1  surface, 

2.  Spectral  with  fixed  incident  angle  for  1+  surfaces, 

3.  Angular  with  multiple  fixed  wavelengths  for  1  surface, 

4.  Angular  with  fixed  wavelength  for  1+  surfaces. 

Plot  type  1  will  present  /i/  (Xg,Bg^“')  for  up  to  seven  Bg^"*  values  on  the  same  set  of  axes. 
The  allowed  Bg/****  values  are  defined  in  the  directive  list  (Option  24).  The  range  of  Xg's  is 
entered  after  plot  type  1  or  2  is  selected.  The  first  surface  assignment  number  in  the  sur¬ 
faces  directive  list  is  used. 

Plot  type  2  presents  /M(Xg,6g^)  for  up  to  seven  different  surfaces,  defined  in  the  directive 
list,  on  the  same  set  of  axes.  Bg/^**  is  the  first  value  from  Option  24's  directive  list. 

Plot  type  3  presents  /,;(Xg/****,Bg)  for  up  to  seven  Xg/****  values  on  the  axes.  The  allowed 
Xg/****  values  are  defined  in  the  directive  list  in  Option  23.  The  range  of  Bg's  is  entered  after 
plot  type  3  or  4  is  selected.  The  first  surface  assignment  number  in  the  surfaces  directive 
list  is  used. 

Plot  type  4  draws  (Xg/****  ,Bg)  for  up  to  seven  different  surfaces,  defined  in  the  directive 
list,  on  the  same  set  of  axes.  Xg/****  is  the  first  value  from  Option  23's  directive  list. 

Headings  and  legends  are  provided  on  the  page  to  distinguish  the  curves  when  comparis¬ 
ons  are  made.  Several  plot  features  can  be  changed  by  using  Option  31  before  starting  the 
plot.  The  process  is  the  same  as  for  3-d  plots.  Press  <RETURN>  to  continue. 

Follow  the  program's  instructions  before  leaving  Option  42  to  adjust  the  limits  on  the 
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horizonta]  axis. 


AV.7.9  OPTION  43.  CONTOUR  PLOTTING. 

Contour  plotting  is  included  as  a  way  to  read  more  exact  information  and  to  compare 
materials,  without  fixing  Xg  or  Gg.  This  option  draws  nine  level  curves.  Color  is  recom¬ 
mended  for  this  option. 

Like  the  3-d  option,  the  matrix  element  and  range  of  the  base  grid  is  input  at  the  start  of 
this  option.  However,  unlike  the  3-d  plots,  up  to  four  different  surfaces  defined  in  Option 
21's  directive  list  can  be  used.  When  multiple  surfaces  are  used  the  level  curves  are  the 
same  for  each  plot.  This  meaits  that  not  all  plots  will  have  9  level  curves. 

Appropriate  headings  and  legends  are  drawn  to  aid  your  interpretation  of  the  graphs. 
Several  plot  features  associated  with  2-d  plots  are  used,  as  defined  by  Option  32. 
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AV.8  DISPLAY  SOURCE  CODE. 

1  C  TMft  pfognoi  win  plot  2-d,>cl  and  oontound  f«pi«icntitiofw  of  the 

2  C  MutBer  Mairtai  ehownH  aa  a  function  of  wavelength  and 

3  C  Incident  angle  for  theowticany  calculated  vahm  and  for 

4  C  OKperlBienlal  vahaca  when  the  proper  input  fHe  fonn  h  uaed. 

5  C  Varioua  aurface  materlala  and  rcMighneaa  paraoietcra  can  be 

6  CcDOipaiod. 

7  C  Varioua  nonnaHgallom  wfll  be  avaOable  for  vlaual  aiwlyafo. 

a  c 

9  Inicter  Aaxpltinaxcur,flMxaf^ciiajr«rin.inaxaur«maxdat 

10  Farameler  (inaaipll*4,ataxcur>7,maxang-25) 

11  Pammeter(aiaxwln-T1,inaxaur*10,maxdat-20) 

12  C 

13  Integer  l.t,k,m,l1,Q 

14  Integer  nhaiaq,nalga,nwlen(aiaxaur},nang(maxaur),naklpffnaxauf) 

15  Integer  numpltnuoicur^ptype 

14  Integer  fnuin(maxpll),aurf(maxeur),nunipta(maxcur) 

17  Integer  nangf.  nwlenf 

ia  integer  ocodefoiaxattO 

19  integer  heoipftnaecur} 

X  bitegereltl^ 

21  Integer  lndex(siaxpH).biinn(inasplt)«faiR»(maxpft) 

22  Integer  lymn(fnaepll)«iymx(ma]rpH) 

2)  C 

24  a«al  hmaq(aiaxaurXh(naql05),aite<inaxsur),eigal05) 

23  Real  wIenKaiaxaiir.anaxwIn).  ai^Kr*taxaur,nia«ang) 

24  Real  tngfKfmaxcur).  wienfxfnwacur) 

27  Roal  xfiy(cna](cur,cnejrwln),yniy(inaxcur,maxwln) 

X  Roal  yarin.y«naj(,xmin,vcnBx 

29  Real  xray1(aiaxwln),yny1(maKwln) 

X  Real  fol(oiaedal»naxwtn.aiaung) 

31  Real  fwrb<aia]fwln,aiaung} 

X  Roal  rtempfotaxcur) 

X  RmI  MfllVdalc 

34  C 

X  Chafacter*13  aMtenin(a),fhaine(maMaf),fn 

X  CliefBctef*13  anatnoifinaxaur) 

37  C 

X  c 

X  CooiaierUonariat 

X  C 

41  Data  foaoia/inaaeui**noneV 

42  Data  autonairCauaalan','N*r,'N-4\'Cauaa.  Q  enly','N*a,  Q  only', 

43  *  J4-9, 0  oriy,'fyQ','EKpertmcnwr/ 

44  C 

45  C 

45  C  Inlllalloe  main  program  voriaMea 
47  iwurf-O 

45  nhuem-O 

49  nangf  0 

V  nwlenf  0 

n  C 

S  C  Cat  die  terminal  being  aaed 


¥ 


9 


w 
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53  30  w<«»<6.1) 

54  Eiiltr  Iht  iKnnInil  you  are  uaing' 

55  oXMS.*)'  1)  TclUIIS' 

5*  tnm(6.y  2)  TtkilOr 

57  wrmft.’y  3)  HDSTIXr 

SB  «nMc<6.*) 

SB  ■•id(S,')Mctm 

<0  M(iltnn.k.lw.ttifm.|t3)  fMo  30 

«l  C 

B2  C  InMaHtt  win  pnognm  vtrlibiM  and  aend  them  off  to  tome  tubrouBnea 
63  can  alpll3(ieenn) 

M  an  Unit 

65  nkloi-1 

66  nKkrI 

67  eafl  alpH3(nlclDi,nlcky) 

68  tllool-0 

6ff  anaatHn<MoaO 

70  Mfid-O 

71  n(rda*0 

73  ngndy-0 

73  an  a|rd3d(Mgrd,ngrAi,ngrdy) 

76  an  ecrdcn<M(rd.n(fdx,ngrdy) 

75  aalw-13. 

76  yalae-IOJ 

77  naale*!. 

71  yeale-t. 

71  an  aacl3d(nale,yaale) 

K  an  aacl3d(aaale,yeale) 

81  al  etpIMteaale.yeale) 

81  ndnw-1 

83  an  aIpKKndraw) 

84  n1-0 

as  n2-0 

86  an  ffiormllnl) 

87  ol  6ionn2(nl,'  '^XQ 

81  Mde-0 

8f  ale^MOhMe) 

«  C 
♦1  C 

«  . . MAM . . . . 

13  C 

*6  C  Mnl  Om  main  aacnu  and  proam  *e  oomwnd 
♦5  C 

66  SO  wi1le)6.1) 

67  1  fatwHO 

68  wrteMI.'r  rUTmn  mam  MENIT 

66  wf«B66,*) 

MO  OTiMS.’rn  AaatcntwrtaalirdalaaaaM- 

MI  **il6iMT  IS-  DIaplay  In6e.  on  an  aeeigned  euHaoa' 

Ml  mrtatt.’T  13.  lamniaa  an  aaelfwed  t«»<aa' 

MS  vHMkTlI  ModffyBmofeiariaaatoae- 

MI  an«e#.’ril-MndMyliiofmatflae)emen«toiW 

MS  written,’)'  23.  Modify  lal  of  ataueienfllia  •>  aa' 

Ml  Madly  IM  of  Incident  a<«ln  a  UM- 
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^  V'tMtw*)' 31.  OuDftuMljnto  nociMliuiiMM' 

m  32.  Chtnft  ploWnf  fwiMi  (niim' 

W  in«i4i,>)'4I.I>oMplor 

no  w>«i«,*r42.D(>2-dp(ot' 

111  43  Do  ConkMir  piM' 

112  wi«H4.T  W  Quo  pfotran' 

113  «n«i<4.') 

114  «n<ti<4.*)' Dow  the  num^  of  your  cholat' 

115  md(5.')t 

114  tf(U«q.11)|Otaiao 

117  M(i.«q.12)tMDai» 

111  M(l40.13)  (010  300 

119  tf(L«|.21)  Vito  400 

120  Mtl.«|J2)(ato500 

121  MO-o4.23)(Ma4ao 

122  MOw) J4)  goto  700 

123  tfp.«|4t)(Dtol00 

124  l«(i.«qJ2)(oto900 

125  Ii(l.«q.41)(oto1100 

124  M(l4q.42)  goto  1000 

127  tf0  «|.43)  goto  1200 

12(  M(l«q.99)  goto  1400 

119  (Oto  so 

130  C 

131  C 

Qpltotl  99 . 

1X3  C 

134  1400  m'lto(4.*)XMV<n(  pfognm' 

135  IMP 
134  C 

137  C'”*"*' '  OptoHi  II  . . . 

131  C 

1X9  C  Ttoi  wclton  IMi  on  iiutoil  mtgiMwtni  mimbtr. 

140  C  no*  to  Oh  MmaH  ond  Q  toio  Modtd  to  ocotto  Oh  ^to  htor,  and 

141  C  to«H  OMi  todgratoMon  to  anajra  4HnHO.aeadrO.lmHq0ialpO,iHUpO, 

142  C  HtMiia  and  an(IO. 

143  C 

144  MOoaMtoua 

145  c  (at  omgH  « 

144  m-1 

147  101  M(toanH<«1.a9.'nana')  (oto  102 

141  ai-««1 

149  Oln.la.aHaaiH)  goto  101 

150  Hf«a94.1) 

151  HittatkTNo  tola  apaca  to  put  aoftoca  toloniHiton' 

152  Hi<to<4.’)Xaaio«a  a  avftooi  Onn  iry  again' 

153  alnaM 

154  (Oto  50 

155  C 

154  egot  motrnmo  and  Q  tol^  4vaiBdi(in) 

157  102  HHtoVkl) 

155  »nOafc*yinaw  Oh  toatotlal  dato  Mt  naan' 

159  nMilklTnair  0  to  totom  to  Oh  onto  annn' 

MO  inadp,>nO< 
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9 


4 


161  tf(fn.t<|.'(r)v>to50 

162  110  wi»«(6,1) 

163  •ntic(6,’)'1.  C«UH  2.N-8  3.  N-6- 

166  wrMc<6,*)'4.  Cun*.  Q  onijf  5.  N-6.  Q  only  6.  N-6,  Q  only" 

165  wi1M6,*r7.  BW 

166  wi1it(6,*)'i.  Experimonter 

167  WIIM6,*) 

166  wilit(6,*)Xnltr  Mw  oiHoenmtalian  ood*  for  tuifcot’ 

166  ■MdCS.II 

170  li|l.oq6))  103 

171  M(l.k.1.or.l.|IJ)fota110 

172  ocodtCm)-! 

173  C 

174  c  laod  hmior  Mo  i— nont,  (llowod  hnw^  tigt,  *o(  ond  «dm 

175  <R<li<6,*)‘op«di«  Mt  ‘,in 

176  ap*ii(iai*-10,6lt-6w46ikK-'ald',*fr-199) 

177  iMd(10,'(i)',«nd-166)auina<ai) 

176  •••d00,*,md-l66)nhiiH^n*ig>,nwltn(m),n>fi((fn) 

176  l••d(10,*,•nd-16iXI>aMl|^l),l-1,nluMq) 

160  iMdnO.*,««d-l66Xilf>l(i).l-1.i«l|«) 

161  iwdOO.*,«id-l66)(wWnl(m,Q.I-t,nwlcn(m)) 

162  l••d(IO,*,•fld-l66X*n6^B>•<)■**■.•>•n6<■>>» 

163  C 


165 

166 
167 
166 

166 

160 

161 

162 

163 

m 

165 

166 
167 
166 
166 
200 
201 
262 
203 


210 

211 

212 

213 

114 


<  A  omml  d*li  6lt  OMy  loot  oiorc  Own  om  of  Mch 
120  «n«i<6.1) 

'>n1M6.*y  A6aw»d  nton  tqwmd  Iw^Vok' 
tn«t<6.100ia)(l.)«n«))(O.I-I.nlumi)) 

10010  feniwl(1xj(ll,‘} '.tIOJ.'  ■)) 

"<*»t<6,  > 

«iiNi(6,*)TnKr  Mw  mimbor  at  your  ciwa' 

I6||.ltl  j>.(.gtntMi<ogy  (oio  120 

C 

1M  wiINM) 

■  iWtBtTAlowid  owon  aowrad  ilopw.' 
»i«M6.ia010)(1.6l|ri(IXI-1.>«ip) 

•rlMf) 

mM6.7^nHr  INi  i—nbtr  at  yaw  cHolot' 

•6ad(5.Tk 

HQlIlI  w.k.|LfialgB)  |M0  IX 
•ItKml-illriOO 

C 

•  “•PB*  ••  a!  Onoo  to  iklp  poM  liwdir  to  (M  Into  0»  oonoci  dito 

c  kr  6ha  gHtontod  6y  8ET10 

nldp<n)-2*(0-iritolii«6-irn»1in(nr<toi^«) 

c 

e  fHW  ow  •»  lowlto  •»  On  itolgiawini  optnOon 
■i6i06.*yAn%n«d  Mttoei  f'.oi 

«n<IH6.*)%  koa  6k‘,<n 

toiMtk’THto  OtoM  tptoiad  Mght  af.liBng<a) 
toi*l#k*)rHw  OtoM  iptoiid  tkipa  or.a%t(ai) 
fci— (iHi 
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215  doMflO) 

2M  dll  RDM 

217  •OMSO 

215  C 

215  c  Enur  -  oicM  Mkiljr  Ai  ifcIM  «nonc 

210  155  wi1Mi,*)'An  cfwr  occuired  opening  the  fiW'.fn 

221  Ml  ROM 

222  •otoSO 

223  C 

214  cEnDr-naalllkc)]rREntOdldn‘l<lnlihpuM(«lndaa 

115  155  »»Tll»(5,*)rNo>  onoogh  dm  on  anil  10  for  Mt'.fo 

23$  ei5  RDM 

227  gmOO 

225  C 

229  C . Optfon  12 . . 

230  C 

231  C  TKfo  Mctfon  prtnfo  out  an  the  oincnt  aMignnwnis 

232  C  Tlw  apocidad  aiifooofRlalion,hinaf^aiga  and  atoRd  adan  and  ang  nngaa 

233  C  aR  diaptapad  to  Rfoaah  to  uaata  mcnory  about  aatignmanla 

234  lOOconHnut 

235  tnltt<t.1) 

234  SUWACE  ASSIGNMENTS' 

237  anttofok*) 

235  dollOI-l.nRxaw 

215  lf(foaiMa<l)'aq.'nana‘)lhan 

140  wf<ia<4.10110)l 

141  10210  fomu^,'-awfo<»  not  aaaignetr) 

141  alat 

143  antta(4,102ia)l,oainai(i)^utonn<<aoada<I)) 

244  wrNt<4.10230)hait<|(l),tigt()) 

245  ardta<6,10240)*fltnl(i.1).»fonKi.nw«an(l)). 

144  •  angl(l.t)^ngl(i.nang(0) 

147  10210  fotmtca'  -  aMfoifol  -  'M'  tarr.  (r«.  - 

MS  10210  foraiu(7)i,’man  aq.  hoIgM  '  J.’  maan  aq.  atopa  - 

255  10140  fotmt(7ii,'atltn  mvom 'JfoJ,'  Ik  ang  anin.max' Jf7.2) 

ISO  andlf 

251  »rlae<4,*) 

252  c  ind  a  page  baaak  auary  5  aMlgnawnt  nwnban 

253  MILaq3.Dr.lDq.lO«.l.aq.1S)  aS  roM 

154  HOoDMinua 

155  gotoSO 
154  C 

257  C .  OpHon  13 

255  C 

IE*  CTMaRMfoa  5uaa  ataIgnRinI  nuwibiR  for  uaa  wWi  odiat  aurhcaa 
MO  C  Tbfo  oparatton  on  aMtcl  opOoK  21  and  31.  and  aiibroutiK  Ouada. 

Ml  C  Tba  otnanl  aaaIgnMania  or  dbpltinil  and  d«  aianu  glaan. 

142  C  Tba  ■Mt'a  optfon  la  mad  and  anaoifod 

153  2Q0amllnm 

244  anOtM.1) 

MS  taMtlS.’r  ASSIGNED  SUHFACES' 

M4  anttolfo*) 

M7  anMfolOSIorAMgnI’.'Maiaffol  '.-CWr.  Ik. 

M5  '  mm  tq  bgr.'man  aq  atopa' 
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W  10319  fecaMl0xAli[^13.2x^I3,2x.>I3.2x^l3) 

270  doaOSi-l.axjuur 

271  M(fiiuM<q.M.‘iiaM')  Own 

272  HilM9.10330)i,awlnin<IX9ulonai(aoodc<l)XhfMq<I),>igi{l} 

273  toM 

274  1<n20  iMiMlOx.l>.2i^13.2ii^13,2ii,n3J,2x,n3J) 

275  3a3eoi>HiMt 

274  wi«lt(4.*) 

277  320conilniit 

270  »ntn(6,*yEnlw  th*  nunhir  of  Om  tutftct  you  mr>  Id  loiaovt' 
279  willt(6<*)'Enltr  0  to  totom  to  Itio  ouln  ownu' 

200  wilto(6,*yEntof  -99  to  dtor  oul  «B  migiiiinwto' 

211  imOCS.*)  I 

212  Iip^.-99)(ato390 

203  0)  Btoo  SO 

2M  ifp.lLlM.I.|ta«u«ir)  foto  300 

2«S  C 

206  c  Oiw  utlgnmeiH  number  I  only  end  updele  bcedx 
107  c  Oiedi  to  tee  i<  opbont  31  or  21  arc  aNectod 
3M  fname<l)-'nane' 

209  aD«upd((l) 

290  M(l.a<|.n2)lben 

291  anl>e(6.*yaae  auriaoi  for  normaliubona  haa  been  deleted’ 

292  antt>(6.*yi)ae  oplfon  31  to  reaiaifn  baae  aurfooc’ 

2n  «n«to(4.*) 

294  n2-0 

295  endlf 

294  de3Wi-1.i«ia>f 

297  tf(euf4(D.eq.Q  then 

294  naurf-0 

299  arrito<4,*)'71ie  eurfooea  to  uae  Hat  haa  been  deared/ 

300  atitttfo,*yi)ae  main  menu  option  21  to  rebuild' 

301  cal  reoni 

302  endlf 

303  SlOoonllime 

304  •otoTOO 

305  C 

304  c  Free  ei  eeeignmeni  munberi  and  Inttlaltae  fteade 
307  e  Oplfon  21  la  elfocled  and  31  tnifhi  be  too 
300  3IOde392l-1.nMxaiir 

309  foaaie(l)’'none' 

310  392eoMinim 

311  ml  M 

312  NIn2.ncO)Oicn 

313  itfof4.*yiaae  aorfoci  for  normaHeatfona  haa  baen  daleMd* 

314  112-0 

315  andO 

314  Mtof-O 

317  «»Tttif4.*)The  aiirheea  to  uae  Oat  haa  been  deated.’ 

314  tnt«fo,*yuae  oiafo  menu  oplfon  21  to  rebuOd* 

319  ml  leant 


321  C 

322  . . Opiton  21 
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30  C 

324  C  Tht  Hu  of  MrfHn  to  be  iiecd  In  eome  2-<J  end  oontour  ptols  It  buih  hera 

323  CnttlMutognaicMflntftolWIeiiMdbyeoniea-dtndthcS-iiiouline 

32*  c  Tbc  cuncM  miKuh  ‘to  lice'  Net  le  printed 

327  C  The  menu  le  (been,  the  ueei't  choloe  teed,  and  eeeculed 

33S  400  OMilIntte 

329  writo<6.l) 

330  writo<4,*y  LBTOPSUHPACESTOUSF 

331  wrile(0 

332  eR«to(4.ia41«)‘UM  t  ‘/Aaagn  r  .‘hUteriel 

333  *  'Cori.  Ihc.  '/  meui  eq  hgf.'neen  aq  alope' 

334  10419  bfmal(a7,2eA2i^aI3,2u13.2ii^l3,2ii^13) 

335  do  403  l-1,Mi«< 

33*  n-auritO 

337  writB(*,10430)l/at,mainAi(cn}^titonffl(acode<in)),hmaq(inXatga(ni) 

33*  10420  fotmatCM/  -‘,ia,2iAl3,2ii^l3.2i.n3.3,2«.n3.3) 

339  403oonltnua 

340  wTlto<«,*) 

341  411  writo<*,*) 

342  wrila<i,*)‘Enle<' «  of  aurtoeea  for  Hat  sri 

343  wriie(6, reenter  0  to  return  to  the  main  menu' 

344  i<tad(3,*}j 

343  NQ.eqOXatoSO 

34*  MII-lLI.0r.|.gLmnjKur)fMo4l1 

347  C 

34*  c  raad  the  number  at  aaaignment  number!  ntqueatod  into  a  temp  army 
349  420  wrtto(*,*) 

330  wrile<«,’rEntor  the  number!  of  the  aaaigned  wrtace!' 

331  art1to<6,*yyau  want  In  the  Hat.  Enter  in  deaired  order' 

352  arrtlefo,*)'eepamled  by  apaoea  on  one  Kiw.' 

353  anrtie<*,*)'Entor  a*  aeroa  to  get  out.' 

334  iaad(3,’Xhemp(ai-1,D 

333  do4XI-l.| 

33*  M|hea<p(l).oq.O)  goto  400 

337  MIItomp<l).ILt.ar.lteaip<l).gt.maxaur)  goto  420 

33*  mfoame<ltompO)).eq.'itone')  then 

339  <rrHa(t,*)'At  hoat  one  aurfaoe  la  not  aaaigned' 

3*0  goto420 

3*1  endlf 

3*2  OOmmnrn 

3*3  C 

3*4  clfaNmhaeeareleglllmaleoopyihemlntoawmgearmyauriO 

3(3  n*utf~| 

3(*  do  440  l-l.nouif 

3*7  440  aur4(1>~Homp<l) 

3tf  (0to4a0 

3*9  C 

jyg  C . Option  22 . . . 

371  C 

372  C  Thta  option  btdUa  die  matrbr  ehmente  'to  uae'  Net  dial  la  iwoeaMry 

373  C  to  do  T-d  ptota  with  onaHIple  mbi  elementa 

374  CHi*  cutmniNallapmaantad  to  otbi  notation  dn,  PI2.  P44etc.. 

373  Choama*rdiedatotaetondRnaar4yni-ip),n2-«;2)>M4-fn*) 

37*  C  The  aema  la  ghrais  dw  chelee  raad.  and  eaecutod. 
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377  SOOeoMiniit 

37»  in««<6,1) 

379  wi«c<6.*)‘  LET  OP  MAHUX  ELEMENTS  TO  USr 

3K  writes.*) 

3(1  do  510 1-1,  nftnin 

3>2  l1-(fniiin(i)-1)Mt1 

313  Q-«nuiii(IH<1-ir4 

3M  wrtli<6,10S10)LI1.D 

305  10510  -  P-JII) 

3M  SlOeondnut 
307  511  wtIM*,’) 

3II  wdMS.’l'Eiiltr  nuoibcr  of  raoMx  okmiili  for  Ott  or* 

3n  «n1fo(i,')‘*nfo'  0  fo  ictum  fo  di*  ouin  intmi' 

390  iwdO,*)! 

391  M0,«qX)BOfo9O 

392  tfQ.k.1.or.|.|l.aMjtpk)cofo511 

393  C 

394  c  TIlfo  roodo  dw  oiOi  noMdon  for  die  elfe  end  converti  fo  Hneer  format 

395  515  wdfoifo*) 

396  «ntHt<6,*)'Enitr  die  mairti  eWmenl  oodea  for  the  UaT 

397  «rTH»(6.*ytrifor  them  In  dealrcd  order  tepenicd  by  ipacea' 

3ld  wrlle<6.*)‘0'('drM  want  PI I.PLi.  and  P3t  then  enter- 

399  witfo<6.*ri1  U  34- 

400  wrlfo(6.*) 

401  i«nd(5,*)(lleiiifi<Q.I-1,D 

403  do  530 1-1,1 

403  M(lleai|i(i),aq.O)  |ofo  500 

404  lfonip<Q-llemp(l>6*(lfoni|>(iyiO>-4 

405  W(ltcnip(l).H.1.or.lieinp(I).gt.16)  fofo  515 

406  530  condmie 

407  C 

401  <  Copy  die  temp  array  info  fo  the  tforife  array 

409  nhiifoi-l 

410  do  540  l-1,nhiiiai 

411  540  fouiii(l)-lwnip(l) 

413  0040  500 

413  C 

4,4  . Opdon  33 .  . 

415  C 

416  C  Ttda  acedon  atadi  die  IM  of  Ibwd  wavelenflha  fo  be  uted  by 

417  C  die  3d  rwidne  when  craaa  aecdona  of  3-d  pfola  are  mode 
419  C  paralW  fo  the  aw.  an|lt  axia. 

419  C  The  ctirmd  M  la  |hien  In  ndtroriwtert,  die  memi  la  pfoded, 

430  C  dw  choice  raed  and  laiciitid 

431  dOOeondmae 

432  wrda0,1) 

4X3  wr1fo«6,*r  WAVELENGTHS  TO  USr 
434  writtfo,*) 

425  do  610 1  -  Lnaderd 

436  rrrtltfo,1060l»,w1cn««<l) 

427  10600  feniialQa,M,'- ',17  J) 

430  dWcondnifo 

439  611  wrtIWh’) 

430  wdfoth’JTntcr  dw  number  of  waealtngtha  for  dal  or- 
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431  wrft«<6«*)''cfMKr  0  to  rttom  to  tiw  ouln  menu' 

432 

433  goto  SO 

434  N0'k-'-«'-i'(‘-B>««>")(Pto4ll 

435  C 

434  c  Tito  dMirtd  nuflifatr  of  wavclcnglhs  arc  read  tnto  a  totop  amy 

437  415  wi4la<4.*) 

430  <nMa<4,*)'Entar  Iha  daalred  wavalangiha  In  aiicio-awton' 

439  WfMt<4,*)'atpanlad  by  apacaa  on  ona  Him' 

440  i«td(5,*Xnniifi<g,l-1.j) 

441  do  420 1-1,1 

442  tf(itom|Ht)to93>.)  goto  too 

443  M(rtoinp(l).k.O.)  goto  415 

444  420eDntlnut 

445  C 

444  e  Tha  tamp  amy  la  oopM  if  all  valuaa  that  aia  legtlimaia. 

447  nwlanf-| 

440  do440i-I,nwlanf 

449  440  wlanh(l)-'tooip(i) 

450  gototOO 

451  C 

45J  O . Option  24 . 

433  C 

434  C  Tlilo  aadlon  raada  In  dto  Hal  of  Inc  anglaa  to  be  luad  by  iha  2-^  rouHna 

435  C  whan  croaa  aactlona  parallel  to  the  wavaiength  aaia  are  being  made. 

454  C  The  cunam  Hal  la  piaeanted  wHh  ihe  menu. 

457  C  The  chotoe  la  raad  and  axanned. 

450  700  oanilniae 

439  anfae<t,l) 

440  wrlle(4.*)'  INCIDENT  ANGUS  TO  USE' 

441  wrNeft.’) 

442  do  710 1- l.rangf 

443  wTHe<4,10700)l,a<^bi<l) 

444  10700  kiniMI(2x.l4,'  -  ',f7.2) 

445  7lOeonalniM 

444  711  wrftoft,*) 

447  aniae(4,')Tnaer  Hie  number  of  incldeni  anglea  for  Hat  or' 

440  willi(4,*)*anaer  0  to  latum  to  main  menu' 

449  nad<5,*)| 

470  lf0.aq.O)  goto  50 

471  lf0.ll.l.ar.J.gLfnaacur>goto  711 

472  C 

473  c  Kaad  vaHaee  Into  a  temp  amy  and  checH  them 

474  715  tortlefO.*) 

475  WTlle<4,*)'Enaer  die  deaired  Incldeni  anglea  In  dagreaa' 

474  aniaett.’i'eeparaled  by  epacae  on  one  Hna' 

477  iaad(3,*Xftomp(IVI-l,D 

470  do720i-1,| 

479  lf|f1emp(l).lL0.)  goto  700 

400  ll(tle«p<l).gf.9D.)  goto  715 

401  TVcnnllnw 

402  C 

403  e  Coff  aemp  amy  Inlo  aloiage  If  aR  *ala  OK 

4M  nangf-l 
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4a5  do74ai-t,Mntf 
4M  740  ui(fat(Q-rt(inp(l) 

4(7  •otoTOO 

4K  C 

41,  C" . OlHtonM  . 

4«0  C 

491  C  Wrilt  out  cuncM  act  up  fcr  nonmHiilkMu 

492  C  Mpitp  mtnu 
49}  C  Cot  uwr  oomaind 

494  (OOeofUinuc 

495  wf«M44) 

494  «ntlt<4.*r  ANALYSE  NORMAUZAYIONS' 

497  witMS,*) 

49(  «Rtlt<6,*Y  CunonI  oM  up:* 

499  M(n1oq.1)tti«i 

500  wriM4,*r  Rj  ->  ni/pir 

501  wtMc<6.*)'  AH  HI  olomonla  aaM  ->  I' 

502  wrtM*.*) 

503  omW 

504  i<(ii2.iu.0)lh«i 

505  txtltt<6,T  nKabiKt)->nKobjocty1>iKta««e>-V 

506  wwitg(6,*y  orhort  the  bate  auriaca  la ' 

507  »ilta(6,10i05rAaa*n*','Matarlar/Auto  eocr'/mcaii  aq  hgf, 

*  'otaan  aq  alopo' 

509  10(05  iMinal(aS^I5^15Al5^15) 

510  «rtt*<4.10ll0)n2,imlnn(n2)AUIoiuii<acodc<n2)),iiaia4<n2),aigt(ii2) 

511  10(10  <iHmBKI(^15^15.n5J,n5J) 

512  tntlt<6,*) 

513  otaaM(n1oq.O)liM« 

514  wiNa(6,*Y  No  nocmaHaabona  In  plaoa' 

515  wfMa<6,’) 

514  andtf 

517  C 

51(  (10  wiMa<4.*)'Eniar  1  far  R)  ->  RJIHr 

519  «n1fa<4,*rEnlar2facanoal<llvla>onbrHlolaincM' 

510  witlatf.’rEnfar  3  far  RKobRcl)  ->  RKobiactyRKbaat)-!' 

521  witaa(4,*)‘Enlar  4  to  anorl  oompariaona  trWi  a  haac  auifaca' 

522  »iMa(4,*)rEnfar  0  to  ratum  to  tha  main  nwnu' 

523  antla(4.») 

514  fmUf.'f 

525  I«ll-aq4>)(iito30 

514  MO-lL1«r.l.gl.4)(ato(10 

527  C 

52S  cnl-1— >dMdtR|brHlalfaadinlniaadaf 
519  c  and  paaa  INa  along  dMougli  fnormi 

530  li(l.aql)ll<an 

531  n1-1 

532  aR  faorml(n1) 

533  C 

534  cnl-0— XoNOTdMdabpHI 

535  aha  MO-oqJ)  than 

534  n1-0 

517  aR  faarai1(h1) 

5K  C 
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5J»  e  b2-0  — >  than  !■  no  boot  nuttrinl 

540  c  *nd  mot  iMt  for  fnonn2 

541  «Im  H(i^.4)  then 

542  n2-0 

543  c*n  fnonn2<n2,*  'AO) 

544  C 

545  c  n2>0  — >  Oicffe  ll  4  baw  material  and  iti  aaeignmeni  number  ia  n2 

546  e  print  menu  and  fti  bate  mateiiaraaaaignmcnt  number  If  detiicd. 

542  c  paaa  btfonaalion  to  fnorm2 
540  clae  NO-aq  J)  llicn 

54»  020  «nile(6,*) 

550  wrfla<6,')‘Enler  the  number  of  the  aatignment  4  of  the  auiiut* 

551  wrtle<6,*)']nu  want  to  uae  aa  the  bate  oi' 

552  infle(6,*)Tnaer0la  back  upa  menu' 

553  eaedfg,*)) 

554  lfQ.eq4)«9tog10 

555  lfQ.lL0ur.|.gtmaeaur)  goto  620 

556  H(fnnmc(D.eq.‘nonc')  then 

552  «rrlle<6,*)That  aurfMe  la  not  aaaigned' 

556  iolo620 

55*  ei^ 

540  n2-| 

561  «a6  fnorm2(n2.6iame<))M>dc<|),nakip(j)) 

562  endlf 

563  c  dtanging  the  normeHaatton  mabea  aO  oM  data  obaolete  (uae  Bnlt) 

564  eaaM 

565  pMaMO 

566  C 

5(7  C* . Option  32 . 

566  C 

569  C  Thla  aeclion  allowt  modifiation  of  page  siie,  color  on/off, 

520  C  Hckmaifc  denatty.  grid  bnea,  curve  thickneaa.  and  hidden  line  temoval. 

521  C  The  oineni  aetiv  la  diaplaTed  In  the  menu. 

522  500  continue 

523  «rrlle(6.I) 

524  wrlle<6,T  CUKKENT  PU2T  rARAMEIHB' 

525  wimit,’) 

526  wrile<6,10910bcaiac,7aiae 

522  10910  fomalC  The  plol  page  it  '.M.l.'ln.  by  '.M  l.'in.') 

526  «rtile<6,*) 

529  c 

5K  H(Mkol.aq.1)  then 

561  >nile<6,*)Xurvet  dMingulthed  by  ootor' 

5t2  elae 

563  witttHt.’YCuntt  dMInguiahed  by  Hnc  type' 

564  endH 

565  wrllt<6,*) 

566  c 

562  »mte(6,10915)nu5ounnfcy 

566  10915  Cprmotf  There  are  ',11/  Hck  marba  per  maior  a-eKit  rthlabiii*. 

569  •  //  There  are ',n/ 6ck  maiha  per  major  yuzia  divition') 

590  errMHi.’) 

591  c 

592  HjMgiiLeq.l)  then 
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3W  wrili{6,*yCrid  option  for  2-d  and  contour  plot  la  in  affect' 

SM  aRllafo,1091D)ntrdit,n(rdy 

SW  10920  foranatf  niai«  arc  Ml,"  grtd  Hnca  par  mafor  tick  on  Ota', 

»6  •  'Muria'^,'  nid*  ara  '.ll,'  grid  Knot  par  najor  tiek', 

S97  •  'ontharufo') 

391  olac 

199  wtttc(6,*yNo  gitd  knaa' 

too  aidf 

Ml  antfolt,’) 

M2  e 

MS  witla<t,1093a)ndnw 

Ml  10930  foraiatC  Cuavaa  on  2-d  and  eonfour  piota  am  dn«an*,t2,*  tiinca') 
MS  wriMt.*) 

tot  c 

M7  M(lhtd*.cq.O)  than 

MB  tntte<t,*)'  On  M  piota  all  Unaa  drawn' 

M9  etae 

tIO  arrtitCfo*)'  On  3^  piota  hidden  Hrtaa  ntmovad' 

til  andW 

t12  C 

t13  wflte(t,’) 

t14  wrlttCt,’) 

til  920  wTtta(t,*yEnter  1  to  change  page  tiae' 

tit  wttta(t»7Xiitar  2  to  change  ootor/Hna  type  optfon' 

t17  wrtla(t.*yEntar  3  to  change  the  tick  mark  denaMy' 

tit  wiiti(t.*yEittcr  4  to  modify  the  grid  option' 

t19  wiiii(t,*)'Cntcr  S  to  change  curve  thickneaa  on  3-d  andr// 

t20  *  *Cdnfour  ploti' 

til  wrffalt.TEntert  to  modify  >d  hidden  llnaa  option’ 

t23  wittc<t,*)1Entcr0  to  return  to  the  main  menu' 

t23  witta(t,’) 

tI4  raad(S,’)l 

t2S  MllU4.0)gaaoS0 

tat  MS.It1.or.l.gt.t)  goto  920 

t27  C 

tat 

*29  cllttaaecilonraadalnnvwpafcitaotiie.yaiac 

tso  c  than  ntaett  the  aotla  and  paaaaa  than  info  vta  atphe.  tacQd,  and  aacDd 

t3t  M(i-aq.1)  ttan 

t32  930  anrtaatt.'niia  normal  page  aiae  ia  IHn  by  I0.3tn' 

t33  wrlta(t.*yEnlar  the  a  and  y  aiae  of  the  page  In  lochaa' 

t34  wrtteft.*) 

t39  randO.lafoc.Tifoa 

tat  maalaa  .ItO-O  jT.yalaa.lt.0.0)  ^  9M 

t37  mtala-aaiaaft2. 

tat  yaeala-yafoaflOJ 

t39  cal  atplH(aacala.yacala) 

tM  oat  aad2d(aaalc,yaoalc) 

t4l  ml  aad3d(aaeala,yaealc) 

t42  C 

tts  c  Thia  option  thangaa  tta  way  Unaa  ara  dtattr^uhhad 
ttt  c  Ifoal-I  — >  uaa  aoler  optfoib  offtararlaa  uaa  Itw  type  opllen 

tts  c  Wilia  mamt  gal  a  «aW  toaponaa  for  Ifool  and  pace  alang  to  aetin 
ttt  alnlti.agj>«ien 
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*47  H(Menn^  J)  then 

*4*  «Rtt(<*.*XO)l(ir  option  not  ovalteblr  on  HDSlOr 

*M  dw 

6S0  93S  tntt(<6,')'Enln'  I  to  dlotinguWi  curvet  by  color' 

*51  wrttc<*.*}'Enler  2  to  dittlnguith  curvet  by  line-type' 

*52  iMd(5,*)i 

*53  tfp.K.1  «r.i.gL2)  goto  P35 

*54  H(l^.1)then 

*55  Mool-I 

*5*  eke 

*57  Mool-0 

*5*  endif 

*9*  oin  MtltnOtiool) 

**0  endif 

*«l  C 

**2  c'TMtelloiMChenging  the  letti  number  of  UefcmttfctbenMen  In  emeiordivit 

**3  c  Cot  legil  vehiet  far  x  end  y  tut  then  pttt  tiong  to  ttpIO 
*«4  elwlf(l.e<|J)then 

**5  940  vrrile<*<*)'Eriter  the  number  of  tick  mtrkt  per  mtfor  divitlon' 

***  wrilt<*,*)'tlortg  the  «  end  y  tut  in  the  tllovred  mnge  l-.P* 

**7  wnte(*,*) 

**(  ratd(5,*)n^.nicky 

**•  lftnlcfa<.k.1  .or.ntckx.gLO)  goto  940 

*70  lf(nlcky.h.t  .or.nlcky.gt.9)  goto  940 

*71  al  ttplt3(ntcloi.nicky) 

*72  C 

*73  c  TMt  tlfatn  lemovtog  grid  Hnet  tU  together  or  contiolHng  the  nombtr  to  ditvr 
*74  c  get  Icgil  vthMt  the  iflgrd.  ngrdt.  end  ngidy 

*75  c  Hlgrd-0  — >  no  gridt  otherwtu  uu  ngnh  end  ngrdy  u  the  number  to  lae 

*7*  c  put  thit  info  to  tgtd2d  end  tf  idcn 
*77  eke  tfO-oq.*}  then 

*71  9*5  •nifa(*.*)'Enlcr  1  to  turn  the  grid  option  off 

*79  enik(i,')'Enlcr  2  to  turn  on  grid  option  end  modify  deitoHy' 

*«0  tnifaf*,*) 

*■1  nMdO.H 

*•2  lf(l.lL1  .OT.I.gL2)  goto  945 

*•3  lf(i^.1)lhcn 

*M  Mgrd-0 

*•5  eke 

m  Mgnl-1 

*•7  947  wr1tt0k*)'Cnter  the  number  of  grid  Hnet  per  mt|or  divkion' 

*••  t*tik(*,*)'*1ong  the  X  end  y  tut  In  the  tllowtd  rai^  O-.P" 

tm  writof*.*) 

•90  ieed(S,>gtAt,ngrdy 

*91  lf(ngt*.IU>U'.ngtd«.gl.9)  goto  947 

•92  ll(ngrdy.h.0«r.ngrdygL9)  goto  947 

<93  endif 

•94  an  igi<lld(Ulgrd,iytAi.iyidy) 

495  an  egidcn(Mgtd,n^Ai,ngrdy) 

•4*  C 

*97  clhktaewt  fat  uat  to  chtnge  the  number  of  ttrnu  the  curve  k 

*9*  e  dawn  ewer  the  tome  peth.  fhk  tllowt  thicker  curvet  etpccklly  far 

<9*  caeMngtanepewnat  Get  Infa  in  ndaw  end  pea  to  ttplg. 

7)0  eke  N|UqJ)  Own 
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701  *50  wt1lt(t,*yEnl«r  lii«  nmnbcr  of  lima  the  eunw*  tliould  b«' 

702  willi<i,*)’dnwn  to  oonOc)  OiiduiOM' 

703  wilto(6,*)'nic«naw«d  mnte  <•  1-3' 

704  l•■d(3,*)ndnw 

705  tf(M>nw.lL1  «r.ndmw.|t5>  (Oto  950 

706  coB  dpHSCndnw) 

707  C 

70S  c  TMt  iBow  the  laer  to  mnovt  Mddcn  Una  (ram  M  piol*  or  to  pul  Ihcm 

709  c  bock  In.  IMdc-l —>  mnooc  hidden  Una.  Rue  info  to  itplto. 

710  efoc  l<(i.09.6)  Ihcn 

711  960  mlto(6.*yBnler  1  to  amove  hidden  Una  from  >d  pbto* 

712  willc<6.*)'Entor  2  to  daw  (B  Una  on  3-d  plole' 

713  and(5.*)l 

714  Hp.lt1  or.l.|U)  ooto  960 

715  Mpa|.1)lhen 

716  SUdc-l 

717  etoc 

71S  Mdc-O 

719  endir 

720  aB  tlpItoOMde) 

721  enUi 

722  ootoSOO 

723  C 

^  OpSOO  41  . 

725  C 

726  C'Ihleapllonplo«i2-dapaanlaiioneofd<l* 

727  c  Sol  meUc  eua  Ihea  h  e  maieriti  end  ■  nieiib  ckmem  to  ptol 
720  lOOOconiinuc 

729  M(rmuf.k.1)  ilicn 

730  wrlW(6,’rNo  nirfooa  in  die  "to  um"  Hm* 

731  wilto<6,VUK  metal  menu  option  21  end  uy  epein' 

732  mB  raoM 

723  fotoSO 

734  endd 

735  C 

736  lf(ninum.lL1)  Own 

737  wrlto<6,*)24o  metatai  clemenli  tai  die  to  urn  HeT 

731  wi4lt'6k')Ua  awtai  menu  opdon  22  end  uy  efetai' 

739  mS  iconl 

740  OotoSO 

741  endd 

742  C 

743  c  pttad  menu  end  fit  aepong 

744  c  Opdone  1  end  3  um  only  dw  lei  ehmea  tai  eurfeoe  Bel  foil  they  ua 

745  c  die  enda  en(b  Mm  end  eiealen|lh  Mel  oepecdvely  to  detonOne 

746  c  how  meny  curoe  ehouid  be  dawn  pa  mei  ekment 

747  c  Opdone  2  end  4  hm  dw  luchca  Mil  to  determine  hew  meny  curva  ihould  be 
74S  c  dawn  pa  mbi  ehmea  end  dw  lei  ehmea  of  dw  engh  Bel  end  wivehnodi 

749  e  Bel  qepetdvely  ea  need  to  Si  dwi  peanwta  to  oempea  luilMa. 

750  1001  wvMe<6i1> 

751  wilie45,*yEntordw  type  of  ptol  you  went’ 

752  wiMtH,*y  1.  Special  wMh  muMIph  Seed  tau.  enghe  ' 

753  *  urialiwtoa' 

754  wilto#>7  2.  Special  wuhe  Seed  taw.  engh  fall  eurtocee' 
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755  wfttt(6.*)‘  3.  Anfukr  with  muMpte  fbicd  wivtlcngUw  * 

756  ’  //  'for  I 

757  A.  Anfular  wMi  ■  feed  wavcten^  for  34  aurfuct' 

751  wi«lt<6.*> 

75»  iMde.')|>9P* 

7«0  tf(|itT|M^.O)aotoSO 

7(1  M(|Myp«.ltl4ir.pi]rpc.gL4)|0to  1001 

762  C 

763  c  Optfona  1  and  2  maha  aura  dura  la  al  Waal  ona  Axad  Inc  angW 

764  Hb(3-0 

765  MdMppa.IU)  than 

766  M(mi«f-k.1)liwn 

767  wi4w<6,*)'Mo  feed  lncidanlan(Wa  in  liar 

766  WTMa<6,*)^  raain  oianu  splfon  24  and  try  again' 

766  ca6  roanl 

770  gato50 

771  andlf 
m  C 

773  c  Opdona  3  and  4  maka  aura  diara  la  at  Waal  ona  Aaad  wavaWnglh 

774  aWa 

775  lf(n«rWn1.ll.1)  than 

776  inWa<6,*rNa  fiaad  wavaWnglha  In  IWT 

777  atilw(6.*yUaa  main  manu  opifon  23  and  try  again' 

776  mO  moM 

776  gofoSO 

760  amM 

711  araM 

762  C 

713  c  Cat  ranga  for  lha  a-naW  of  tha  plow 
764  1002  wTtW<6.l) 

715  l«(plypa.lU)  than 

716  aritw(6,*yinWr  lha  range  on  wavaWngih  in  mtcrxnaWra' 

717  «rflla(6,r)'Mlniinum  and  maalmum  aaparawd  by  apaoaa  on  ona  Una' 

7M  raad(5,*)ainln.aoiaa 

716  IIOnnln.ltO.O^.ainln.ga.aniaa)  goto  1002 

760  aWa 

791  arilw(6,*)'lnaar  foa  ranga  on  Inddanl  angW  In  dagraaa.' 

792  wt1W(6,*yMlnlmum  and  maafowim  aaparalad  by  apacaa  on  ona  Una' 

793  raad(S,*b<mln,amaa 

794  ll0imfn.h.0.0.orj»laa.gt90.0.or.afn4n.ge.ainaa)  goto  1002 

795  andlf 

766  c  MW^'I  — >>  TIot  alraady  dona  ona  and  only  a  change  In  a-ranga  daafrad 
797  M(MW(3aq.l)  goto  1012 

796  C 

799  C 

600  c  PiM  out  hi  taorda  what  wH  pfotwd  to  alow  gw  uaar  to  badk  out 

601  witle(6,1) 

602  wtlia<6.*)r  nOTSClUT 

603  witwfl,') 

604  If(plypa.a9.1-a.plypa.aqj)  than 

105  m-aurfO) 

106  aritwfM  106271261 1'.'Aaagn  I'.'MaWtwr.'Cerr.  hw.', 

107  'maan  tg  hgr.'maan  aq  ahpa' 

101  witw(M1063)1.m,awtnin(m)>autenin(acoda(m)).hnw9(mkalga(m) 
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« 


•W  wriM6,’) 

no  tndtf 

ni  c 

*12  «nttt(*.*10IO)n(huni 

•U  ds  100)  ('l.nfmtm 

n*  n-(fniiiii(i)-iy4ti 

*15  t2-finim(IHI1-1)*5 

n*  1003  in«lt<*,11020)l.l1,Q 

*17  11010  bmlC  Thcrt  wIB  b*  '.O.*  mb.  cicmcnti 

*1*  11030  iiMMt(llO/-P^) 

no  wi««(6,*) 

*30  C 

*21  M(ptjrp*.gt2)  Ihmi 

*22  «n«M6,11O)0><ailn,xiMji 

*23  (Iw 

*24  «n«t<6,11040>iailfi,»M]i 

*25  «fiiM 

*26  110)0  foniMlC  EftcH  mb.  «l«mcnl  %«H  be  plotted  v».  irvident  angle** *** 

*27  •  /,'  bi  the  nnge  irom  *.8.1,*  Id  *,8.1.*  degrcci*] 

*2*  11040  bematC  Eedi  omi.  dement  tdll  be  phMied  ve.  wavelength', 

*29  •  /,*  In  the  range  bom  *,17  J,'  to  *,17  J,*  micra-meiert') 

*30  C 

*31  mtlc<*,*) 

*32  tf(pt)rpe4q.l)  then 

*33  lef4le(6,11090)nang( 

*34  do  1004  l-1,nai8f 

*35  1004  wftlt<6,n052)Untfa(i) 

*3*  11050  toniiair  Bee  aadi  mb.  element  ',13,'  bed  incident  anglea', 

*37  •  'wfllbciMcdO 

•3*  11052  (ormatOlO,'  -  ',8.1) 

*39  C 

*40  dra  MIpl]rpe.agJ)  then 

*41  wdle(6,11094)nwlcid 

*42  do  100*  ••1,nwtenf 

•43  1006  aralle(6,11036)l.atlenf<(l) 

*44  11054  foemdr  Bor  aich  oih.  eleaienl ',D,' Oaed  wavdengOw', 

*45  •  '»iabet«e<n 

*46  11056  formd<l10,'  ~  ',17  J) 

•47  C 


*49  awtb(6,1105«)noii>» 

*50  <Rlle<6.*) 

*51  wHb(6,1l062)TJet  «','Aaagn  «','Malefiar,'Cocr.  Inc.', 

•s*  *  'moon  aq  hgr,'mean  aq  elope' 

*S3  do  100*  l-l,naiiif 

*54  m-eaetD) 

***  «"4Mk13063)l,ai,malran(m),ai«oniiqaeodc(m)),hmaq(m)kOlga(m) 

*56  too*  eombtiie 

*57  in«e<6,>) 

tS*  H|pl)pe.eq  J)  dten 

*59  an«t«l.11060)ant6qi) 

*60  dm 

•61  an«i8^1106l)«)c«6i<1) 

*61  oidV 
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•U  tfidU 

•*4  IIOSaiMiMir  Fc.'adiiiiti.*ltiMM'.0/<uiiKMwfll  be  ■««).') 

MS  11060  tormlf  The  And  tngl*  of  biddcncc  will  be  ’.e.l) 

M6  11061  fofiMiC  The  Ihed  wevctength  wffl  be  ',17  J) 

M7  11062  farmHea,eS,2x,el3,2x,all,2<,«13.2x,et3) 

166  11063  tocnial(l4,'  -  ',ll,2x,e13,2ii,e13.2x.n3.3.2x.n3J) 

169  C 

■70  e  If  (he  plot  eet  up  ie  eociect  continue  otherwM  beck  up 
•71  «ntle<6,’} 

173  1009«ntie<6,*TEnler1  ifllikilteoeetcf 

173  «nHe(6,*)'Enler  0  to  lutum  to  the  mein  menu* 

174  ■«oiKS.*)l 

■75  li[l,eq.1)  pMo  1010 

•76  lf(i-eq.0>  foto  SO 

•77  lololOOl 

•71  C 
•79  C 

MO  c  numph  Ie  the  numbee  of  mt«  etemenle  to  be  uee  (up  k>  4) 

Ml  e  numcur  Ie  the  number  of  curvee  per  mm  eh  dependent  upon  ploi  type  (ptype) 

•12  1010  continue 

•■3  numph- nhtum 

••4  tf(plype.eq,1)  then 

MS  numcur- nengf 

•M  dee  lf(ptype.eq  J)  then 

M7  numcur- nudenf 

•M  dee 

IM  numcur-neuif 

•90  endlf 

•91  C 

•92  c  lOegl  —1  — >  only  one  eutAcc  meteriel  et  one  roughncee  ecele 
MS  c  Iflegl  -0  — >  oomperleon  of  roughneee  peiemetere  for  one  meteriel 
M4  c  Ihigl  -1  — >  oontperteon  of  meteriele  end  roughneee  ie  eeeumed  to  be  eeme 
199  c  ifleg2--1  — >  only  one  heed  Inc  enjie  or  fhed  wevdength  h  tucd 
•M  tl(leg2-0  — >  muWIple  cumue  contuepond  to  H  (hied  wevelet^tfu 
M7  clfleg2-1  — >  muhipli  cumue  conuepund  to  1  ♦  fbied  l«u  eimlee 
■M  Mlnumcur.eq.l)  then 
■99  Megl-I 

900  iMg2-l 

901  dm 

902  M(plypc,oqa,or.plype.eq.4)  then 

903  lf(molnm(eu(f(1))'e^'meinm(eutf(2)).end. 

904  *  ecodc<tuc«ri))*4-ooode(euff(2)))  then 

905  Wegl-I 

9M  dm 

907  (ihgl-0 

9M  endh 

909  IMg2-l 

910  dm 

911  (((ptype-eq.l)  Oien 

912  Mbg2-I 

913  oho 

914  MegS-O 

915  endlf 

916  Meg1-1 
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917  cndtf 

9lt  cndtf 

919  C 

930  c  TMt  <•  Ih*  MClion  where  the  ecluel  plotting  w  celled  lor 

921  1012  cell  elptol 

922 

923  c  Me  cell  dn%ve  heeding  dieplay  In  the  middle  of  the  pege 

924  cell  heerni1(nuflyH,metnfli(aXeutonin<ecode<m)),hine^m), 

925  *  ■iCi(m^wMiiO)centfeOXlAASlcifUg2.piype 

0  926  c  tMe  eecllon  deddee  edilch,  ff  eny,  legend*  need  to  be  dmim  lo 

927  c  dietinguhh  the  curve*  from  one  ewother 

928  lf(lllegl^^lh*A 

929  ceH  lgniel(Ruiiicur.metnA.mex*ur«*urf^code^ulonm) 

*  9S0  dec  H(Mlc(1^.1)  Ihcn 

931  CCD  l•nd(nlll■nlr,hnc^•ip,ncll«uc.MlrO 

931  dec  tf(Hk(1^.0)  then 

933  cell  lgt>ln(numcur,wlen<i) 

934  dee  H(Megl.eq.l)  then 

935  cell  lten|(fiumcur^n(Ai) 

«M  cndtf 

937  c  K  c  beee  nonnelleation  ic  in  etfcct  Ihcn  five  Me  dele  In  c  Icfend 
9M  M(n2.nc.O)  then 

939  cell  ltbcce<inclnm(n2)iculMun<coDde<n])),hmcq<n2>,cigi<n2)) 

940  emM 

941  C 

942  c  TMe  cectfon  alli  Ihc  dele  nMnegcmcnl  niuMnec  to  lecd  in  dele  Alee. 

943  c  one  or  more  ccHc  omt  be  ncmcicqr  M>  Aeedx 

944  M(plnie.e9.2.or.pl]rpe.04.4)  Ihcn 

945  dolOUI-I.Muif 

944  Bi'CuH<i) 

947  mil  fmde(m,nAium,lnitfn,lneme(m},ecodc<m),nch)p(m)} 

9«  1013  CBMiflUC 

999  dec 

950  m*eaf1(1) 

951  mi  Aeeddoi,nfnum.fnum,lhemc<m).eoodc<ni),ndup(m)) 

951  cndtf 

953  C 

994  c  tfde  le  die  OHln  bop  for  ecch  mbi  ckmenl  ptol  dnw  ell  currcc  in  iienieliin 
955  c  mrre  cebccto  die  curcc  dele  Aom  etorage.  tomiioletee  ce  nccceeerr,  end 

954  c  puto  dw  veliiee  to  be  ptoded  in  eny  end  yrmj. 

957  c  Tile  Afd  Index  In  ere)r<..)  end  le  die  curve  number 

4  950  do  1030  l-l.numpM 

999  W(pl)rpe.eq  J-or.pljpc.eq.e)  then 

9M  dDl025r1,nmneur 

941  m-eadQ) 

942  ml  mne<kkoi.fna«(l)ien|l,«rtonl,nen((m),nwlcn<oi), 

4 

943  *  en(A(.«vlenh,pl7pc,nuniple,»e7,)rrep> 

944  1005  oondnue 

945  dm 

944  m-mrlTI) 

947  mil  mrvc(1>nuncur,fli,fnuni<l)^nfl.wlenl.nen^m)imvlen(m), 

911  *  entAi,wlenAt,pqppc.nttniple.en7,)rray) 

949  cndtf 

970  C 
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c  Thi*  Mclfon  Ands  min  and  mu  y  value  and  aela  up  HmHa  fee  plota 

972  c  Then  (he  phjiaieal  origin  and  aoale  of  plot  it  act 

973  c  (he  axM  arc  drawn  and  labcM 

ran  nig2d(miaciir,zra)’,xrain,iunu,yny,nump(a,mauur,muwtn. 

975  •  yinln,ymu) 

976  can  prtn2d(nuaipltl) 

977  can  axea2d(p(ype«iriuni0),xmin«xmu,ymin,yinax,n1,n2) 

976  do  1030  j-1,numcur 

979  e  for  aa<h  curve  change  (he  Miw'a  appearance  la  dwnged  and  the  curve  drawn 
910  can  l!<Hai(D 

901  can  do1t2d<],iiuanp(a(]}^ray.yray^ray1,yray1,inaxcur,inazwln) 

902  1030  eonUmic 

903  caOengrOd 

964  lOlOoDntiniie 

965  caO  enplot 

906  C 

907  1040  wrile<6,*)'En4ef  1  to  change  v*uia  range  ior  tame  plot  format* 

900  writc<6,*)'Enter  0  fo  return  to  the  rruin  rrwnu' 

909  raad<5,v)l 

990  M(l.cq.1)  goto  1002 

991  U(l  a<|.0)  goto  SO 

992  goto  1040 

993  C 

CM  e . .  Option  42  . . 

995  C 

996  C  nila  aerifon  doea  ^d  plotting 

997  C  owke  aura  there  la  a  aurtace  fo  uae 

990  1100  continue 

999  l«(naur«.H.1)  then 

1000  wrttc<6,*yNo  aurfocca  in  the  fo  uae  hat' 

1001  write(6.*)'Uae  main  menu  option  21  artd  try  again' 

1002  caHrconl 

1003  goto  so 

1004  endd 

1005  Wagl-O 

1006  C 

1007  c  get  the  deatred  mtr  elemeni 

1000  1101  wrilc<6,1) 

1009  writeiOiVOnter  the  mta  eierrwm  poaitfon  you  want  rwrng' 

1010  wrttetf.vyihc  matrta  notaden' 

1011  wrile<6.’)'e.6.  It  you  want  Pit.  P22,  arP34  theneraer*// 

1012  •  '11or22or34' 

1013  NiitalbpryEnter  0  fo  return  fo  the  owin  rrwnu* 

1014  reerl(5.’)l 

1015  Ii|l.ad.0)gofo50 

1016  4lt-M’(V10H 

1017  M(e1t.h.1  .oreh.gi.16)  goto  1 101 

1016  c  Magi -I —>  view  pi  and  haae  range  ataya  the  aamc  but  mt>  element  chat^ 

1019  e  aUp  eauwraaaary  mcraia 
1010  lll(Mlag1wg.1)gefo1l26 

1001  C 

1022  1101  MBg2-0 

MBS  wrifo«,1) 

1014  ■104(6,11110)1 
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iins 

1026 

xaa 

1020 

1026 

1030 

1091 

1032 

1033 

1034 

1035 

1036 

1037 
1030 
i(m 

1040 

1041 

1042 

1043 

1044 
1043 

1046 

1047 
1040 
1049 
1030 
103'. 

1032 

1033 

1034 

loss 

1036 

1037 
1030 
1099 
1040 
1061 
1062 

1063 

1064 
1063 
1066 
1067 
1060 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 
ton 
ton 


11110  isfimir  Thti  plot  wOl  be  isr  nbi.  clemeM  F.I2) 

C 

«n<lt<6.11062)'LM«'.'AMgnO',’liiUttri>|-/Co>T.  Inc.', 

*  'oMen  iq  hgT.'incen  tq  ilope' 

■n-iui4(1) 

Wf14e<6,11063)1.lll.si«(nin(inb*ulo<un(acode<m)),bin«q(in>.liqi(in) 

C 

c  get  nnge  hr  e-exle  which  he*  wavelength  info 
1113  wittc(6,1) 

wrilc(6.*}'En6er  the  tenge  on  wavelength  (min  max)' 
wiMt(6,*)'Eiiler  I  1  foe  aueo  ranging' 
raad(3,*paiiin.xnax 
MOuBln.eqjimax)  gMo  1120 
H(ianin.k.OJ>.or.xmin.(e.xmax)  gato  1113 
C 

c  get  range  i»r  yaxia  vrhich  hai  the  iiw  angle  info 
1120  wft4c(6.*)'Enler  the  range  on  incident  angle  (min  max)' 
atvl4i(6,*)'En>er  I  1  6»r  auto  ranging' 
l•ad(S,*))nnln,ylllax 
M(7min.cq.]rmax)  gato  1123 

H(7iiiin.h.0.0.or.]riiiax.gt.90.0.or.)rmin.ge.yinax)  goto  1120 
C 

c  get  view  poiM  In  tofina  o(  the  plat  box  tiae  and  lacatien 
1123  ant«c<6,*)'Entor  the  vu  point  (xpot,ypoa,xpna)  in  box  units' 
mthiiMTht  diapiny  box  has  oomen  at  (0.0.0)  and  0.1.1)' 
wt(to(6.T0ox  point  (0.0,0)  haa  values  (x,]r,x)-(imin,7min.xfflin)' 
wfi4e(6,’)'loa  point  (2.1,1)  hat  values  (x,y,a)-(xmax,)miax.xfliai)' 
wtiss<6,*)'x  -  wavelength,  y  -  Inc.  ang,  a  -  Pij' 
wrlie<6,*)Tnlcr  0  0  0  to  hack  up' 
wf(ae(6,')'EnteT  .3  3  3  foe  normal  viawing' 
ratd<3,')vx,vy,vl 

M(vx.eq2).04nd.vy.eq.0.0.and.vs.cq.0.)  goto  1102 
I6((0.le.vx4nd.vx.le4.>.and.(0.le.vyand.vy.le.1.).and. 

•  (0.lc.va.and.vi.lt.1.))0wn 

WTtta<6.’)1>0  not  put  the  view  point  (ntide  the  diapley  box' 

»»»tto<6.*) 
goto  1123 
endlf 

« lOegl-l  — >  keae  range  and  oux  eh  stayed  the  aame  but  the  view  pt  changed 
c  skip  unneceaaacy  operations 
M(Mat2.eq.1)  goto  1130 
C 

1109  arrtlc(6,*)'5nler  1  It  this  ia  oorrect' 

wftta<6,*)Ttn4ae  0  to  mtum  to  the  main  menu' 

"toltJ.'TI 

I6(l.eq.1)  goto  Ii20 
N(l.cq.0>  goto  SO 
goto  1109 
C 

c 

c  Ode  raakea  aiara  die  prapee  dale  It  avaOtbia 
1120  m-auttp) 
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1079  j^fmioiO) 

1000  fniun(1)'*l* 

lOil  cbD  fmdi<awl«fnitm,fnafne(in),aoode<m),nakip(m}) 

1082  fitumO)*! 

1085  an  mnil(in,c1l.Wb) 

1084  wrtlt(6,*)'ai^ll,ld)c',m.cltidx 

1085  C 

1086  e  this  dOtrmintt  %vhkh  pn  aa  naaded  lo  avar  iha  uaai'a  anga« 

1087  c  odwrwiaa  aulonngifig  lakaa  an  data  pointa. 

1088  tf(xinifi.cqjunax)  then 

1089  fauntn*! 

1090  tamax-nwlen<in) 

1091  C 

1092  c  otharwtaa  And  amaHaat  n  mnga  that  avan  iha  uaar'a  range 

1093  cbe 

1094  txmln-l 

1095  1160  lf(xfnin.gtwlanl(m<txfnin).and.b(min.H.nwlen<m))  than 

1096  lamin*iBaitn«1 

1097  goto  1160 

1098  andH 

1099  tafnax‘nwlan(fn) 

1100  1162  W()(inax.ttwlanl(fn,bcfna)().and.bifnax.gt.1)  than 

1101  fauMx-tomax-1 

1102  goto  1162 

1103  andtr 

1104  cndlf 

1105  tf0«nto.ft.1)  6nnto*licmin-l 

1106  lf(fa(inaji.ll.nwltn(en))  kxanax'-ixmaxtl 

1107  c  rraat  range  to  cocraipond  to  ptot 

1108  c  DISSPLA  ahould  aupport  an  unevenly  apoa  baae  grid  through  the  SUHTKN 

1109  €  QOtnmand  but  I  oouldn't  get  H  to  work  ao  the  xrr>in  and  xmax  range  need 

1110  c  to  be  reaat  ao  even  baae  grid  apectng  an  be  uaed. 

1111  Kinin-wlenl(in,bimin) 

1112  xorax'*wlenl(in,fannax) 

1113  C 

1114  c  mekea  aunt  there  ate  enough  pli  to  moke  a  deant  looking  plot 

1115  wTile(6.*)'brmax,b(m«n',txmaK.bimm 

1116  m  I  Ua<6,*yxtntn>xinax*,xinin,»max 

1117  N{^inax*6finln).h.6)  tocn 

1118  wTita(6,*)*Not  enough  wavetengtha  for  a  good  ptof 

1119  wiito<6,*} 

1120  lf0Kailn.eq.1^nd.fataiax.aq.nwWn(m))  goto  50 

1121  goto  1115 

1122  endif 

1123  C 

1124  e  do  the  aoie  thing  M  die  xrairta 

1125  M(yfnin.aq.yinox)  then 

1126  lymin-l 

1127  tymu-nang^) 

1128  C 

1129  etoe 

1130  lyailR-1 

1131  1164  I8tyiin.gtengl(m,*ytnln)jnd.iyinin.ll.nang(m))  then 

11X1  tyinin-lynin-tl 


-384- 


Appendix  V 


» 


1133  SMo  n«4 

1134  oidir 

1135  1)nMX''Mng(m) 

1136  1166  Ui(3rnMx.ll^ngl(iii,lyiMx)^nd.lyfnA](.gt.1)  Ihtn 

1137  l7imx'iyinAx-1 

1138  goto  1166 

1139  cndlf 

1140  tndtf 

1141  Mi(iyinln.gt1)  tymlfi-tymiA-l 

1142  tfi(f3nMX.H.Mng(m))  i)nMx*t3ffiiAX4l 

1143  7inin-anfKin,t3nnifi) 

1144  yiMX'«i^Km.tyQMx) 

1145  C 

1146  c  intkM  tut*  iheic  4(«  enough  pti  (o  mtke  e  deceni  looking  plot 

1147  li((iyiM](-lpinin).li.6)  tfkcn 

1148  wrile<6.*)'Noi  enough  tnddcnl  anglet  for  •  good  plot* 

1149  %»rile<6«*) 

1150  Mi(i3nnin.«q.1^nd.tyniex.«<).ning(m))  goto  50 

1151  goto  1120 

1152  endif 

1153  C 

1154  e  And  tfie  min  end  mex  of  Pi)  then  eet  up  limits 

1155  cin  mg3d(klx,ixmin,ixmexJymin,iynMx,xmin,xfnsx) 

1156  wriie(6«*)r*min,unsx‘,unin.xrMx 

1157  esfl  •etlim(xmln,xmsx«x1,x2<10.) 

1158  oin  ■etHin(ymin,)rmiK,y1,y2J0.) 

1159  esd  setfifln(xfnin,«fnex.x1.c2.10  ) 

1160  wrHe(6.7x1.x2,y1.y2.x1,ir 

1161  wrtle(6.>1,xZyl.y2,il,*2 

1162  C 

1163  IlSOcsnstpiot 

1164  c  draw  eenler  ciptton 

1165  all  hced3d0.melnfn(in),eulonm<acodc(m)).hmsq<m),slgs(m) 

1166  •  ^nl,n2) 

1167  tf(n2.ne.(0  tfien 

1168  an  lgbsee(mBtnm(n2),«u«onm<acodc(n2)),hmsq<n2),s«gs<n2)) 

1169  endK 

1170  e  set  up  plot  erae,  draw  the  exes,  end  then  do  the  plot 

1171  aO  pfln3d(vx,vy,vx) 

1172  an  exee33<x1,x2.y1,y2,i1,i2) 

1173  an  <lolt3d(ixmin.ixfnex«amin4l,i7fnin,iymax«lymin4l, 

1174  *  ■ngl,wtnl,m.klK,fwrk) 

1175  adef^doi 

1176  C 

1177  e  Allow  verioiis  chengcf  without  going  Id  then  mein  menu 

1178  1180wrile(6,1) 

1179  wrlie^6,*yCnfeer  1  lor  another  view  point* 

1180  wrtli(6.*yCttler  2  for  a  different  mti  clement' 

1181  wrlie<6.*)'EnlerOloraiumiotheinainownu' 

1182  raed(5,*)l 

1183  tfiOeq  1)  then 

1184  Ifhg2-1 

1185  goto  1125 

1186  ebeM(l.e9.2)llien 
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1187  lfUgl-1 

1188  goto  1101 

1188  tloc  U(I^.O)  then 

1180  goto  SO 

1181  rncHf 

1182  goto  1180 

1183  C 

1184  C . Optton43~‘ . 

1185  C 

1186  C  This  MCtton  don  contour  plaaing 

1187  c  nwW  OUR  ttwe  to  ■  Miiioe  to  un 

1188  1200  eondnuc 

1188  M<i«iiif.ll.1)  then 

1200  wftte<6,*)’No  rurtoon  in  the  to  un  Itol' 

1201  wTito<6.*)*Un  moin  menu  ofMion  21  end  try  again' 

1202  can  icont 

1203  goto  SO 

1204  tndtf 

1205  C 

1206  c  gc<  mti  element  data 

1207  1201  wTMe<6,1) 

1208  %ertte<6,*)'Enler  the  mm  element  poaitton  you  tvant  uaing' 

1208  tertle<6,*)'the  matrtx  notation' 

1210  «nlle<8>*)'*'g'  W  you  want  Pit,  F22,  or  P34  then  tnaafll 

1211  •  '11or22or34' 

1212  wrHe(6,*)'Entcr  0  to  return  to  the  main  menu* 

1213  rcad<5,*)l 

1214  l«(l.e<|.0)  goto  SO 

1215  eH-W'firtOH 

1216  lf(elt.h.1.or.eh.gt.16)  goto  1201 

1217  C 

1218  c  prim  taliat  the  plot  will  be  of 

1218  1202  continue 

1220  arrtta<6,1) 

1221  wrllc<6,12110)l 

1222  12110  formate  niete  piott  wOl  he  for  mt«,  element  F’.U) 

1223  write(6,’) 

1224  C 

122s  c  Uae  ito  more  than  the  let  four  elemenla  of  aurfacn  Hat 

1226  H(iWttifgt.4)  then 

1227  miinplt-4 

1228  etoe 

1228  numpH'neurf 

1230  endlf 

1231  C 

1232  wrtoe<6,12118)'Attgn  «  Matortol  Carr.  fnc. 

1233  *  ’  otnn  aq  hgt  ','mnn  aq  atope* 

1234  12118  formal(a84a^13.2x^13.2><^13,2a^13) 

1235  do  1203  l-1.numpH 

1236  m-tiiif(0 

1237  wrlto(6,13120)m,mataun<m),autoniTi<acode(m}),hnieq<ffl).aiga<m} 

1238  12120  fonnat(M^13A^t3A.n3J^f13J) 

1238  1203cDntlmac 

1240  wtNc#,') 
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1241  c 

1242  c  MvcbngOi  4nd  tnc  angle  langc 

1243  121Swf«ic<«,l) 

1244  wriH(6.*)*EnleT  the  mnge  on  wavelength  (min  max)* 

1243  fcad(5,*>inln,xiMx 

1246  U(xffiln.ltO.O.orj(min.ge-x]nax)  goto  1215 

1247  C 

124g  1220  wTlte(6,*)'Enler  the  nnge  on  inddeni  angle  (min  max)' 

1249  eaad(5,*)]realn,jniax 

1230  M(jnnln.lL0.0^.yinax.gl.902>.or.)rmin.ge.)rmax)  goto  1220 

1251  C 

1232  e  let  the  uaer  out  it  he  aeei  a  miatake 

1233  122S  WTite(6,*)'Enter  1  it  tfiia  ia  oorrecf 

1254  WTite(6«*}'En4ef  0  to  letum  to  the  main  menu' 

1233  ■«ed(3,*)i 

1256  i«(l4<|.1)  goto  1229 

1257  M(i.e<|.0)golo3a 

1236  goto  1226 

123)  C 

1260  c  read  in  the  dale  lor  all  tlw  plots 

1261  c  tind  the  baae  gftd  hounded  bp  the  uaeKt  range 

1262  e  Find  amax  and  sinin  over  all  the  plots 

1263  1229smax-1.c36 

1264  smln-1^ 

1263  do  1269 1-Miumplt 

1266  m*sut6(l) 

1267  |-fnumO) 

1266  fham(1)-ett 

1269  Oill  <iaads(m.l.fnum,fname(m)^sade(m).nslup(m)) 

1270  thtiin(1)-| 

1271  mO  ffind(m,elt,ldx) 

1272  witte(6,'raMll,ldx',m,ell.ldx 

1273  himln-1 

1274  1260  lf(xmtn.gl.wlenl(m.himin).and.nmin.h.nwlen(m))  then 

1273  himln-feimtntl 

1276  goto  1260 

1277  endit 

1276  htatax-nwlen(m) 

1279  1262  H(xmax.lt.wtenl(m,iimax)jnd.ixmax.gt.1)  then 

1260  hunax'temax'l 

1261  goto  1262 

1262  etidit 

1263  C 

1264  c  eontowr  plots  looli  bad  withoal  a  lot  ot  baae  points 

1263  WTtls(6,*)'6imax,h<mln',6unax.bimtn 

1266  wills(6,*)'ethvxinax*,xmin,xmax 

1367  lt((bimaxdxmln).b.10)  then 

1266  wtttt(6,*)not  enough  wavelengths  tor  a  good  ptof 

1269  wtlts(6.») 

1290  N(himln.sq.1  and.hiaiax.aq.nwlen(m))  goto  30 

1291  goto  1213 

1292  endW 

1293  C 

1294  Ipmln-I 
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IJW  12M  then 

1296  tymlA-lymin^l 

1297  S0^126« 

1296  emltf 

1299  l)niiex'fieng(m) 

1300  1266  tf(]nMx.luingl(in,tyniex)^nd.lyinax.gt.1)  then 

1301  tymex’lfinex-l 

1302  pito  1266 

1303  cndtf 

1304  C 

1305  tf((lymex-tytntn).lt10}  then 

1306  Wf<te(6,*yh<c<  enough  inctJent  angles  for  a  good  plot' 

1307  wriie<6.*) 

1306  M(lT**^*4'^-*ttd.tyfMx«).nang(m))goioS0 

1309  goto  1220 

1310  endif 

1311  C 

1312  e  iMa  afl  geta  eiin  and  max  lor  ofto  plot  only 

1313  aO  mg3d(ldK«ixmjn«iRmax«t3rmin,tymax,afnin2.emax2) 

1314  wHat(6,*)'tinto2,emaxy,em<n2,einax2 

1315  tf(Mi1n2.tttfmn)  xmin'Sinin2 

1316  tf<saiex2.gl.einax)  tiiiax-xmax2 

1317  c  aeue  bear  grid  mngea  Ibr  eech  plot  aepa/alety 

1316  tMkx(i)-kh 

1319  tacinn(I>'tea>ln 

1320  btmx(0*txtnex 

1321  lymnO)'iymtn 

1322  lynn<I)~lT’'hex 

1323  1269  amdnue 

1324  C 

1325  c  aet  up  HmNa  and  decide  what  9  common  contoura  to  uae  on  all  die  plota 

1326  a6  oedlin(xmln.xoiax,x1,x2,10.) 

1327  ag  aedl«n(yiwln,ymax,y1,y2>10.) 

1326  ag  eedifl^smkvifiiaXfil^ilflO^) 

1329  wrHe(6,*r»1^y1.y2^W 

1330  wrtlt(6/yt1  ^y  1,y2,i1  ,i2 

1331  dtU-<*1-*iyi0. 

1332  do  1270  1-1,9 

1333  Ivl(i)-detx*(l)+s1 

1334  1270a>nllfiiic 

1335  C 

1336  agaiplot 

1337  c  ame  heeding  aa  3d  ploia 

1336  ag  head3d(neuf4.inalnin(m),autonm(acode(m)),hmaq<m},aiga(m) 

1339  •  ^It,n1,n2) 

1340  c  ^  e  legend  br  the  antour  Hnea  in 

1341  ag1gcn(M| 

1342  W[n2.neXD  then 

1343  ai  %beee(inotofn(n2Xautonffi(a€ode(n2)),htneq<n2),alga(f\2)) 

1344  endff 

1345  c  do  each  plot  bi  aequenn  but  uae  a  common  wt  of  contour  Wv«la 

1346  do13iOI~t,fWMipll 

1347  rn-rnm 

13a  ai  pr«n2d(nanplt9 
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1349  c*a  Ajrl,]r2,n«iff,i»tiun<in)^utoniii(>eod«<m)) 

I3SP  *  ,ha4q(ai),ti|i<n)) 

1351  an  doMaiO)aiiii(l),ti(mx(l>teain(O^I.)y>'<>>(Q.*ymO>*yo»<(Q*1< 

1352  •  •iyl,wli«l,in,lndcxO),lvUl.x2) 

1353  anm(r2d 

1354  12aOaH«ifiui 

1355  ancnplM 

1356  •040  50 

1357  C 

13Si  C  In  tfie  Mbi  aynoM  of  IMi  pngnm  no  alU  how  btcn  aodi  diactijr 

1359  C  to  DGSPLA.  TMi  toano  onollMf  plattin(  Nbaqr  an  h*  uitd  U  Oi* 

1360  C  mbrouHna  on  niwtiton  to  ptrlotin  the  am*  lukt  a  dtoaftod 

1361  C  oltor  Ihit.  Tliaa  odbratilinn  wMh  dinci  alb  to  OSSHA  on  noltd 

1362  C 

1363  ond 

1364  End  III  MAIN . . 

1365  C 

1366  C 

1347  C . .  Subtailin*  monl  . . . . .  . . 

1365  C 

1369  outaraaln*  raoM 

1370  e  bt  the  laor  look  ot  oomothlnf  ond  pnMnpt  him  to  oontinii* 

1371  «rrllo<6,*) 

1372  »>Ttlo(6.*)*«nt»f  <IIETUIIN>  to  anttnuo' 

1373  oood(5,*) 

1374  wntHt.'l 

1375  ntuni 

1376  ond 

1377  C 
1375  C 

1379  O . SttbrouHnoo  fnodo,  hiorni2.  Inonni,  finit,  hipdt  . . 

13H  C 

1311  C 

1312  CThbmitlmlwoNODbopbalb 
13(3  C 

1314  C  Then  obbtadina  olong  wMh  Mnd  moke  op  the  dob  moa|em*nt  leclton 
1305  C  Stna  the  dob  Ma  an  be  long  thb  eectlon  eton*  only  the 

1356  C  nqaebd  tnkwmotton.  Inobod  of  eOoftng  ell  n|  lor  eoch  oufba 

1357  C  only  aloebd  mb  eho  on  olond. 

1355  C  Stonge  b  to  omy  M(toda,bngheln) 

1359  C  toda  b  5b  number  ealybd  by  hade  ond  an  he  debrmtoed  lor  o 

1350  C  given  oiifiM*  eooignmeni  nanbet  ond  o  given  mb  M  by  find 

1391  C  Up  to  mudol  todiom  *n  ovelebb.  H  bl  m*  up  then  the  otdeoi 

1392  C  toda  b  nmovod  to  obkc  mom  lor  the  mm  om. 

1393  C  la  eoch  toda  5n  ourba  oalgnment  mimber,  the  mb  eh  nan,  ond  og*  on  and 
13M  C  to  omyo  ouHl  oM,  ond  ogol. 

1395  C 

1396  bdinultoe  fnodc(m,mltfnan.lnm*,oeode,nokip) 

1397  Inbger  mooplt,moxca,moang,moowln.moaa,nbjidot 

1395  Inbyr  <lo«ode,ocnde2,dnoklp.noklp2 

1399  ponobbi<maplt-4,mo»ca-7,moang-25) 

1400  ponubbi<inMv>to-71,moeour  10,Ob»dot-20) 

1451  Iwbgot  m.todn(inapll)bn*l 

1402  Inletif  lhan(m*iipllX*ll(mapllkoeod*,noklp 
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1403  biittrr  •iiHI(iiiuulal).«HKimxdal),igeKniudal) 

1404  iMtyf  l.i^M,oldni,ldx 

1405  Immr  n1,nl,diil,&a,inl*inp 

1405  ChAiacl4f*13  lMai*.dlraiiic,1naint2 

1407  Coaiaa«/5aui<M>fl,*W 

1400  HOC 

1409  C 

1410  C 

1411  ctf«bMtn>ttf1>ll*dMif«dtli«*luMai««MmdwHh«wignintfll«99 

1412  c  40  Oic  Md  GUI  be  wad  lor  aiiblivcliona  •UoMrhort 

1413  M(n2.m.O)  Omd 

1414  Mog1-1 

1415  BMOflip'OI 

1415  01-99 

1417  tndW 

1415  2112  eonOnut 

1419  C 

1420  k-0 

1421  c  ovorr  acetM  Incrntt  dtit  to  thal  «gc  ol  an  ind«  can  be  determliMd 

1422  daaa-daiatl 

1423  c  aae  b  na^uaalad  read  alieady  caMn 

1424  do  2110  l-1,nak 

1425  Ubi-O 

1425  da2115|-1,inuda« 

1427  M(wrll(p.aq.aijnd.eM(]).a4  InumOU  ida-t 

1425  2115  eoMiniia 

1429  C 

1430  canlrraadUpeu  have  Id  and  put  data  Ink)  HwoMcallndea 

1431  c  alao  b  oMa  aWmanIa  <an  be  read  In  one  abol  ao 

1432  c  oiofa  than  one  Indaa  owy  be  available 

1433  H(Ua.a<|.0)  then 

1434  k-k«l 

1435  alt(k)-fniim(Q 

1435  oUaal-IOaOO 

1437  do2130|-1,aiaxdat 

1435  N<acel(D.k.okieal)  then 

1439  oldeal-ageKD 

1440  •ndaa(k)-| 

1441  andlf 

1442  2130  eondnuc 

1443  c  aaore  bidealng  faifarmaliuii  and  dak  H 

1444  auiilOndca(k))-ni 

1445  aM(lndax(k))-lniiin(l) 

1446  agel(lndea<k))-da>e 

1447  amW 

14a  2110eD«5mk 

14a  C 

1450  (  k  la  5ien  number  of  oibi  aha  Id  lead 
tai  N(k.|tO)llian 

1452  H(Magla9.1)llien 

1453  e  If  laadbif  baae  data  don't  do  the  baae  normaKialion  beauae  you'd  gel  0 

1454  col  aaada5(bidaa^k.fMma2.aoide2,ikklp2.nt,0) 

1455  alae 

1455  c  efhanelae  do  5»  leadbtg  wMi  die  appiopdak  wriMbaadoiu 
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1457  oiO  fMdtl(faidn,th.k.fMinc,«a>dc,fwkip,n1,fa) 

14SS  «M«r 

1499  «ndK 

1440  C 

1461  c  if  bMt  dati  i«ad  in  tticn  go  bade  and  do  the  data  for  plotting 

1462  tf(lftag1.aq.1)than 

1463  UUgl-O 

1464  ai'Bifomp 

1465  0010  3112 

1466  afdlf 

1467  RHum 
1466  C 

1469  C 

1470  C  thia  cutty  aoocpli  new  baac  normalisation  info  and  aavea  it  for  freads 

1471  entty  foorm2(dnXdfoainc,daoodc.dnakip} 

1472  n3*dn2 

1473  fnamc2*dfnamc 

1474  aoodc2*daoode 

1475  nalLip2-dnalup 

1476  ivtum 

1477  C 

1478  C 

1479  C  iMa  entry  aooepla  new  6ag  for  Pi  1  normalisation  and  aavea  it 

1460  entty  Anorra1(dn1) 

1461  nl-dnl 

1462  netiim 

1463  C 

1464  C 

1465  C  thia  entry  la  uaed  lo  ttirow  away  all  old  information  when  normalisationa 

1466  C  have  been  changed  or  at  atartup  to  ciear  the  memory 

1467  entry  6nit 

1466  ^le-0 

1469  do3140l-1,«wj(dal 

1490  aurfHi)*-1 

1491  cM(l>-*1 

1493  ageKl)’-1 

1493  2140  ONitlnue 

1494  mtuvn 

1495  C 

1496  C 

1497  C  diia  entry  ia  uaed  fo  throw  away  foformatlon  pertainir^  to  a  given 
1496  C  aaaifnment  number  that  haa  been  deleted. 

1499  entry  hipd9oi) 

1900  do2l90l'1,iiia]idBl 

1901  M(aiiHI(l).eq.iii)  Mien 

1902  ourtlCI)--! 

1909  eM(l)-1 

1904  agelOh-l 

1906  endlf 

1906  3190  eonllnM 

1907  return 

1906  end 

1909  C 

1910  C 
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1511  . . Sabipullnt  Mnd  ****** . »«niii  . . 

1511  C 

1513  CnUdDuUncliMNOOiMpbalU 

1514  C 

1515  CTMtioi«iii*M(fio|ainlndtxlii(  info  lo  And  the  index  tor  (given 
1914  C  (eeigranem  #  end  oiti  ell  oombineiion 

1517  cubmidne  ffind(m.elt>ndex) 

1511  iMefer  nejipltaiexcur,iii(xeng,in(xwln,niu(ur,inud(t 

151*  p«wnefo((inexplt-4,nexcur-7,ni(ung-25) 

1910  f>ii»nefof<aicx«rln-71,iiMxeur-10,inexdil-20) 

1931  Inligir  ■xek.Mex.k 

1921  iMeger  aurfl(iiiuidit),eW(nex^l) 

1923  Coaiinon/burfoiriteM 

1924  C 

1525  c  And  mclcti  to  leqwelid  d(M 

1526  da2130k-l.iMxde> 

1527  H((U(A<k).eq.in  jnd.ehl<k).eq.ell)  then 

152t  index-k 

1920  eetufn 

1930  endif 

1531  lllOainllnue 
1531  Index-0 

1533  return 

1934  end 

1535  C 

1536  C 

1537  . Subroutine  nmdtl  **** . . . 

1530  C 

1934  C  Thie  routine  hee  NO  Dieeple  obUi 
1940  C 

1541  CTtUeeubroullne  reede  in  dele  Into  erre)' let(.  ..)  ueing  the  given 

1942  C  todex  Net,  ell  Hit,  Ateneme,  oonclxifon  code,  end  ttormellxeliom  provided 

1943  C  Txro  reeding  kiope  ere  provided  to  reed  In  experlmenlel  end  theoreticel  dele 
1544  C 

wbrotdine  r(e(W(lndex,eH.neH,Aieme,ecode,neklp,nl,n2} 
ktleger  niexpll,atexcur,iiiexen^mexw1n,niexeur,mexdel 
pei«aietor^atexpit-4,niexcur-7.inexeng-25) 
p(r(netoi<ai(xwln-7l.iiiex(ur-IO.awxd(l-20) 
kMeger  lnd((<at(xpH),(ll(«toxpH).n(H 
iMeter  l,l(ng'xrl(ivn(klp 
kittger  nh,n(,m»l(n,n(iy 
kittger  eeod(,nl,n2,ldx2 
Aeel  fol(inexdet,oiexvrin,inBxeng) 

Acel  e.bxd.e,g.duin06).q(3) 

Chemc«fri3  foene 


1596 

C 

1557 

Cotnmonfone/tii 

1555 

C 

159* 

c  rmd  In  tfit  htdtf  Monmilon 

1560 

efin(ll.AI(-iiMn(.(l(lH(-'eldO 

1561 

reed01.’,end-511) 

1562 

r(ed(11,’,end-911)nlt,n(knvritri,nenf 

19U 

rcedO  l.*,(nd-«l  lKi.1- l.nh) 

1564 

ried(l  l,*,end-»l  lXx,i- 1  ,ne) 

1545 

1546 
1947 
1546 

194* 

1550 

1551 

1552 

1553 

1554 
1595 
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1SU  rMdOt.*^-«nKx.l*l.m>bn) 

1St6 

15t7  C 

ISM  c  lUp  em  tht  pfoptr  nmnbcr  of  doti  Unto  for  ihoaMflcil  don 
IW  lf(iwklp.gtO)thMi 

1570  do  2010  *-1.i«Up 

1571  nod01.'^-«n) 

1572  aoiOeondmit 

1573  oikW 

A  1574  C 

1575  c  Nod  in  top  dott 
1570  c  otod  ootH  Unto  (or  toptriuitiilol  dia 
1577  c  itod  In  14  vohin  on  3  Unto  for  toch  Iwttn  ond  iong 
^  1571  c  Not  only  Hit  doofood  onto  liiOo  hl(...) 

157*  lffoeDdt.t<t  J)  d«n 

1510  do20n  i-1,noUpa 

1551  Nod(1t,*,tnd-4n) 

1553  2011  oondniM 

1553  do  2030  lwkn-l,n«rltn 

15M  do  2020  loii(-1,non( 

1555  Ntd(1l.’.tnd'411Xduni(l).l-I.14) 

1554  do  2020  l-l.ntH 

1557  ltl(lndto(1)i,l«dtn.lon()'duni<tll(l)) 

1555  2020  eonalnut 
1555  C 

1510  c  Nod  In  UnonMnI  dofo. 

1551  c  for  RETKO  produood  fflit  Hicoc  5  cHo  on  ooiumcd  0. 

1552  c  Nod  In  3  Q  voKito  ond  4  ladouc  oHo  for  todi  Iwttn  ond  long. 

1553  c  for  m  normoHnilan  dit  Q  Niun  anotl  oul. 

1554  c  0  Q<0  It  oooooitd  — >  0. 

1555  c  do  511  normolfoodon. 

1554  c  tonibint  0*0  btdi  info  Iht  tht. 

1557  cMooonljrdtolNd  mbi  tMo  In  foo(...). 

1555  tfot 
1555 

1400 

1401  dwn(7)-0 

1402  dn(5)-0. 

1403  dvai(51-0. 

1404  dym(1«>*0. 

1405  diw(13)-0 

-•  1404  d«ni04>-0. 

1407  C 

1405  do  2040  lorton-l.nwWn 

5 

1405  do  2040  long-l.ntng 

^  1410  Nod01.’dnd-511)<K1)ida).5P) 

1411  C 

1412  5(n1^.l)llitn 

1413  gO)-1- 

1414  g<2)-1. 

1415  gP>*«- 

MM  tht 

W17  IOgO>->LO.)gP)-0. 

1415  l45|CZ).IL0.)g(2)-0. 
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U19 

II(<|(3).|L0.)  qO)-0 

t«30 

andtf 

1*21 

raad01,*^-*11)a,b.c.d,a,g 

1622 

c 

1623 

N(n1.aq.1)tiian 

1624 

b-M 

162S 

c-da 

1626 

d-d/h 

1627 

a-ob 

1626 

I-6* 

1626 

a-1. 

1630 

andlf 

1631 

c 

1632 

dumOha 

1633 

duin<2)-b 

1634 

diiin(5)*b 

1635 

dtifn(6)-c 

1636 

dum01)‘d 

1637 

diim(l2>-a 

1636 

duaa(1S)''« 

1639 

diifn06)*g 

1640 

c 

1641 

do20ai-1.Aab 

1642 

M<4oadt.1l.4)  than 

1643 

6M(lndax<t)ohalan,iang)-q(aooda)*dum<ali(l)) 

1644 

ataa  W(aooda.b.7)  than 

1643 

MOndaxO).  Itwian,  la  n$)~  9(acoda-3) 

1646 

flat 

1647 

ftl<lfidax(t),t«rlanalang)''dum<ali{i}) 

16a 

andW 

1649 

30a  oonMnuc 

1630 

andtf 

1651 

c 

1652 

c  do  ka«  nofmoHuHoiu 

1653 

c  Hnd  orfiM*  Ihe  bu*  doM  !•  atofcd 

1654 

c  (0  dirougli  and  do  aubnacMuna 

1655 

M(ii2.nt.O)  dian 

1656 

do  mo  l-l.ntO 

1657 

ml  Mnd(99,all(IXIdi2) 

1651 

do  IDSO  |-1,nwlan 

1699 

do  Xno  k-l.miy 

I«*0  MWi«lt»(IJ.l,k)-<hi(lndt»(l).|,kHil(id«2,|,k)yh«0n<l»»2,j,k) 

IM1  mo  tonOnm 
1M2  cndir 

Mtt  C 

MM  c  dow  and  ivwM  Mt 
IMS  ctoMOl) 

MM  mum 
IM7  C 

IMS  c  ptiM  Old  Ml  tfiw  In  iMdhif  d*M  bul  dun'l  kill  program 
IM*  *11  orfMMk.'T'M  onanth  dott  on  unM  IV 
Mn 

M3ri  «flkHI^*)rpoaMtf  at  fpitr  own  fliik' 

un  mlimi 


-394- 


Appendix  V 


4 
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1*73  rHum 

U74  md 
UTS  C 
I«7*  C 

1477  C . SubnHtkitf  Mplot,  ttpUI,  itplU,  UpH4.  sipItS.  UpH* . 

1474  C 

UTS  C  TMi  nulm  hu  D6SPLA  nutifm 
1U0  C 

1441  C  itplot  nomimtw  the  ItfmifMt  Mtt  p*4c^  iMfty  plot  iMIum 

1442  C  iIfMI,  MpIO,  iliilM,  MpMS,  uid  piu  Info  fo  tlpkit 

1443  •ubnuUn*  i^ilM 

1444  hltgtr  Mniii.dHtnn.Mckx,dntck>,nlcky,dntcfcy,dndnw,ndnw 

1445  Infoftr  llddt,dihldt 

1444  ImI  nc.7K.i<ieilt.7iOilt 

1447  MW 

1444  C 

1444  c  noadMte  1  of  thfw  ItniiifHl  lypw 

1440  M(lfoRn.«q.1)  dim 

1441  <anih41<4115) 

1442  dM  W(ifofin.«q.2)  then 

1443  on  1441(4107) 

1444  dw  tf(Htfin.«q4)  dim 

1445  MS  vOW 

14W  mdd 

1*47  C 

1*4*  CM*  n*w  page,  amd  dlaapta  oiilpiil  fo  fort.7.  ad  up  page,  aeda  foe  hcadinga 
1444  e  and  laganda,  adiip  ddfoiMcra  for  embedded  commanda  for  meaaag  , 

1700  e  ad  up  maerw  fo  ds  oiaan  aqiiai*  bdghi  and  mean  aduarn  alope  aymbola 

1701  e  ad  dek  01*1%*,  curw  drickncaa,  and  ael  hidden  Hne  removal  aiaiiia 

1702  c 

1703  cad  bgnpl(0) 

1704  cad  a*«d*v(7.7) 

1705  cad  p*g*02.*ii*c,10.5*7*c) 

1704  cad  baeal*<aac.7ac) 

1707  cad  noctiak 

1704  adcamph 

1704  cad  baMdrSTANDAdDO 

17W  ad  adaaMrWSntVTCnON') 

1711  adc1a**fM11)’/7chaiq7yr(M1)H(EH.5)3(EXHXM11)‘// 

1712  *  c1fo>OSVr(MX',24) 

ins  ad  *2u**fM7)S(MXH.5U25)S<B1LXHXEH.5)2(EXHXMy43) 

1714  ad  Micka(nfobi) 

1715  ad  yttcMnacky) 

1714  ad  8ilcrv(ndmw) 

1717  IKdildc,*q.O)  ad  luMdc 

1714  raaum 

1714  C 

1710  C 

1711  c  paa  In  focmlnnl  code 

1722  mUiy  a»pll2(dllann) 

1713  Uaia-dllarm 

1714  faaum 

1715  C 
171*  C 
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Wn  c  p*M  in  lick  oiaik  demUy 
ns  entry  Mpll3(Snkkx,dntcky) 
ns  MdB-dnlcIa 

no  Mcky-dntcfcy 

m  mum 

m  C 

733  C 

734  c  pu*  in  plot  raNni 

735  entry  >tph4(xecile.yeaW) 

736  xec-xecele 

737  yec-yacele 

73S  mum 

73»  C 

740  C 

741  c  peee  In  curve  Ihickneee  perametcr 

742  entry  elphS<dndnw) 

743  ndrewdndmvr 

744  return 

745  C 
744  C 

747  c  pete  in  hidden  Hnc  rcfflovel  eiaiui 
740  entry  elpll6<dihide) 

749  Oilde-dihide 

750  return 

751  end 

752  C 

753  C 

754  C '  "  ‘  "  Subroutine  enplot . . . 

755  C 

756  C  Hilt  routine  hti  MSSPLA  celb 

757  C 

750  C  Me  routine  end  the  current  pege  leyoui 
759  eubrouline  enplot 

40  ceO  endpWO 

61  cloee(7) 

762  oill  touru 

63  return 

764  end 

65  C 

66  C 

y»7  C~ . Subroutine  heecOd  . 

40  C 

49  CnUtioullneheiDISSPLAoilb 
C 

f  Hui  routine  puli  the  ceruer  heeding  on  the  pege 
cm  end  IQ  ceneepond  to  Nhgt  end  illig2  In  option  41 
C 

eubrouline  heed2d(nunipll.inetnm.euisiun.hmti|.ilgi. 
•  r»ienAno,in,M2,piype) 

Integer  nunipll.tH.IO.plype 
■eel  huii^tlfi.«rleivent 
aiiroctcr*13  meinm 
Cheioclei*13  euwnm 
Cherectet*!  icher 
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17»1  c 
ITKt  c 

17(3  ((niiiiipiLaq.l)  (wn 

171«  • 

1715  «Im 

1716  wh*r-‘S' 

17(7  «n<M 

ITM  C 

17W  c  Mt  up  plot  UM  and  location  to  be  laady  for  -iiirf  oooitnanda 
17W  ciB  eooipbc 

1791  can  ph)noit0.,0.) 

1792  caB  aiaa2il00J,92)} 

1793  C 

1794  c  pul  In  let  and  2nd  Unea  uainf  the  aelf  oantcring  headin  roubnaa 

1795  c  lot  Bne  la  oubi  dlla 

1796  oanhaadinrBAaCSCATiatMUELLEKMAT1UXELEMENT//acturJ5.I.6.4) 

1797  c  2nd  Una  la  the  matarial  uaad  hna 
ITW  e  lndicalin(  a  ootnpariaon 

1799  M(in  a().0)  dun 

1(00  afl  haadinfConipanoon  of  Materials*',  100,1 ,3,4) 

1(01  c  or  the  actual  one  used 
1(02  else 

1(03  caB  haadln<inatnm/7  '//autonin/r*',100,1.3,4) 

1(04  andlf 

1(05  caB  haadinf  •',100,1.3,4) 

1(06  ciB  haadinr  •‘.100,1  J,4) 

1(07  C 

1(0(  c  put  In  a  Hna  daacrtMng  K>u(b  paramalan  for  Ihia  pa(a 
1(09  c  aMhar  a  laatafnanl  of  ompariaon  or 
1(10  If<lf1.as.1)than 

1(11  oaB  maaaagC(H1 .3)Coaiparlaon  of  Roi^hnaaa  Paiamatars*', 

1(12  •  IOOJ.0,9.5) 

1(13  c  actual  aahiaa  used 
1(14  aha 

1(15  caB  oiaaaaprCHI  JMXZ1)  *  -,100J.7.9.5) 

1(16  caB  rcalno<bina9,l04.'A(irr.'ABUT) 

1(17  caB  iiicaaa(C(HXM7)M(MI)M(EH.S)2(EXHXMXr.100.'ABUT.'ABUT) 

1(1(  csBoiaaaairiHIJ)  (22)  -  (HXMXr.lOO.'Adrr.'ABUT) 

1(19  caB  i«alno(slga,104.'ABUr,'ABUT^ 

1(30  andlf 

1(21  C 

1(22  c  the  4th  Mna  provldea  Info  about  the  fhad  Inc  an(  or  fixed  wavelength 
1(23  W()l2.oq.t)dian 

1(14  csB  imaii(r(H1  J)Cemparlaon  of  Incidani  Ang laC*',  1004  J,9.2) 

1(15  c 

1(36  dac  l(lia.aq.0)  (ten 

1(27  caB  aicaaagr(Hl  4)Coniparisen  of  Wavclangtha’'.1004.7.9.2) 

KX  c 

1(29  c  pul  In  the  Inc  ang  If  only  one  used 

1(30  dac 

1(31  MQdTpa  114)  dan 

Mil  aa  ■iaoaa(r(H14M7)Q(M1H4L)0(tJ(HXMX)  -  ’',IO0,4J.94) 

1(13  cdl  iudnofon^104,‘AlUT,'A(un 

1(36  aB  ancaatr(M1EH.5)0(MXE)(HXr400,'Aa(n’.'A(ur) 
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1S3S  C 

1136  c  pitt  In  the  weveWngth  if  only  om  ueed 
1S37  elM 

canineMsr(Hl.3M7)L^lH.5L)0(1JCHXMX)-*',100.4.S,9.2) 
an  i«elno<wten,104/A8ljr/ABirr) 

1S40  an  incMegr(HJM7)M(Ml)M<HXMX)*M00,'ABUr/ABm*> 

1M1  endif 

180  endtf 

1^0  c  fteet  eo  thet  next  rouhne  an  have  Hi  own  Mib  pk>i  eoe 

1844  an  efftdgr^ 

1845  ivtum 

1848  end 

1847  C 

1848  C 

1849  Subroutine  IgAet  . . . — . 

1850  C 

1851  C  TKle  routine  hee  DGSPLA  aH# 

1833  C 

1®®^  C  Thli  routine  printi  the  hit  of  niiteriiU/ooiT.  fnc  uicd  in  e  comperieon 
1854  C 

mbroutine  Ignietfnuoicur.niiinrn.miiiur.iurf^icode.iutonm) 

1856  Hile^r  nufne\ir«l<iurf(nufncur).mixiur,icocle(miJitur) 

1857  Chira<ter*U  VMtnmfmixiur) 

1838  Chirmaer*13  iutonmfS) 

1859  C 

1880  c  define  t  uibplot  efte  end  diepUy  the  Info,  changing  color  or  line  type 
1861  an  phyaQr0.,O.} 

1883  an  at«a3d00.5,9  0) 

1883  an  meaMgr(Hl4)Matenab*'.100,9  9.9.85) 

1884  do  3010  i'l.nuntcur 

1883  an  Hneaxff) 

1888  an  atrtp«(B.8,9.9>.7*l) 

1887  an  oonnpt(9.3,9.9-.r0 

1888  an  reaetCOASH') 

1889  an  meeMg((nalnfn(nrf(OVr  V/aufonm<aGode(turf(())y/ 

1870  •  *^.100.9J.9>.ri) 

1871  3010  oontlmie 

1872  an  reectrSETCUt') 

1873  c  end  iMa  aubplot 

1874  an  endgrtO) 

1875  return 

1878  end 

1877  C 

1878  C 

1879  . . Subroutine  Igruf  . . . . . . 

1800  C 

1881  C  'n«fo  routine  hea  DSSPlA  alia 

1883  C 

^883  C  T3iia  routine  printi  dw  roughneti  aalea  H  a  oomparlaon  b  being  made 

1884  C 

^885  Mbroutlna  l8tuf[numcur,hmaq,alga,fnaxaur,aurf) 

1888  bUtfer  nwnnir.8iexaur,aurf|mumeur),l 

1887  ieal  hfnaq(awnur)^alga(inexaur) 

1181  C 
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IIW  c  Mt  up  Mibptol  anfl  and  dl^lty  info  while  changing  color  or  line  lype 
law  ad  phjnoKO.J).) 

1891  cad  •rttUOO  J,9.0) 

1892  cad  inMHgr(HI^1),  (Z2r,100.10.2,10,15) 

1893  do  3020  i'l.nuinair 

1894  cadHncaiO) 

1895  ad  milled  J.  10  J-^0 

1896  ad  oonnp^d.d.lOJ-jrO 

1897  ad  mctCDASH-) 

1898  r^d  ■aalfai<hiiHq(nrf(0).103,10.,ia.l-.2*i) 

1899  ad  nMatgr(H4M7)M(M1)M(MXHXEH.S)2(EXHX), 

1900  •  100,'ABur/ABirr) 

1901  ad  i«lfla(ttga(Mirf(Q),104,'ABUr,‘ABUD 

1902  3020a)<iliniK 

1903  ad  meirSETCUt') 

1904  ad  andgttP) 

1905  niuni 

1906  and 

1907  C 

1908  C 

1909  C . .  Subaoudna  Igwtn  . . . . 

1910  C 

1911  C 

1912  C  Thia  fouMnt  liaa  OISSPIA  ada 

1913  C 

1914  C  TWa  ffoudna  pdnta  tha  muldpla  dxad  vvavalangtha  W  neadad 

1915  C  Vafy  aloidar  formal  Id  Mhar  lagand  makara 

1916  C 

1917  aubfoutina  lgwln(nuincur,wlanf<) 

1918  fnfegar  numnirj 

1919  Raal  wlan6(<nunicur) 

1920  C 

1921  ad  piijraoKO.^.) 

1922  ad  araa2d00.5.9.0) 

1923  admaaMgr(H1JM7)L(M1H.SL)0(LXHXr,100,10.2.10.15) 

1924  do3030l~1,niinicur 

1925  adHnaat(l) 

1926  ad  airtpl(9J,10.2-.2*l) 

1927  ad  oonn(il(9.9,10.2-.ri) 

1928  ad  laaafCDASHO 

1929  ad  nab)o<wlanfc(l),104,10.,10.l-.2’i) 

1930  ad  maaacTCH  JM7)M(M1)M<HXMX)*',100.'ABUr.'ABUT) 

1931  dOOOoondnua 

1932  ad  ■aaairSEraJt') 

1933  ad  andfitO) 

1934  Miiin 

1935  and 

1936  C 

1937  C 

1938  C  . . ■  ■  ■  SubrouHna  Igang  ***** . . . . . . 

1939  C 

1940  CTMarauHMhaaDGSnAada 

1941  C 

1942  C  Tbla  laiHna  pdnm  aal  lha  oniMpla  Axad  Inc.  anglaa  if  eomparlng 
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1943  C  v*fy  timihr  k>  other  legend  mekert 
19U  C 

eidMoutlne  lpng(nuinciir^ngh() 

1946  tMeger  nuoKurJ 

1947  Reel  ang6c<nuinair) 

1948  C 

1949  cen  phyeof<D.^.} 

1950  cen  aeMldOO  3,9.0) 

.951  oill  mcaaagC(H1  JM7)Q<MlH.5t.)0(tXHXr.100,10.2,10.1S) 

1952  do  3040  i*1,muncur 

1953  all  Hnctt(l) 

1954  an  •lilpt(93,103*3*0 

1955  an  oofinp«(9.9,l03-.2*0 

1956  an  KactCDASHO 

1957  n?l  reelno<«i^(i),104,10.,10.1*.2*i) 

1958  an  meeeagr(MlEH.5)O(MXEXHXrM00/ABUr/ABUr) 

1959  3040  OMitlnue 

1940  an  fMttrSETCUl'} 

1961  an  cndgr(0) 

1962  i«lum 

1963  end 

1964  C 

1965  C 

1966  . Sobrouline  Hneee,  eetlin  . . . . . 

1967  C 


1968 

MbmuOn*  llnni(0 

1969 

lMiS>r  l,J,Mksl,dflopt 

1970 

RmI  r1(4),r2(6),r3(3),f«<») 

1971 

Dill  rt/II.J.4.47 

1972 

Oill 

1973 

Dm  rM.,IO.,5-/ 

1974 

Dm  14/4.44 .3.,J.J.,4..37 

1975 

C 

1976 

1977 

l-HI/TTT 

1978 

l«Q.c<|.t)allttklrrBUJF} 

1979 

all  wIcIrrCREEN') 

1980 

MQ.«|.4)  an  wtcKCYAN-) 

1981 

N0.<q4)  an  mdifllED^ 

1982 

MQ.«q4i)  an  •MdffMACENTA') 

1983 

NQ.«|.«)  an  mcK’SETCUt') 

1984 

NQ.«|.0)  an  •MdifYEIXOW^ 

1985 

fMum 

1986 

dH 

1987 

C 

1988 

1989 

HQ..q.0)  an  doh 

1990 

MQ.«|.I)  an  imorDASHO 

1991 

MQ.tq4)  an  inna>d(.4,4,r1) 

1992 

MQ.«q4)  an  mfio>id(.44,r2) 

1993 

MQ.«|.4)  an  mraoad|.44,i9) 

1994 

W|).«q.5)  an  aiiii»d(.4(.8,f4) 

1995 

•Man) 

1996 

tndK 
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c 

c 

•nby  M<iln(dflool) 

Mool-daaol 


C 

c 

. . .  . . 

C 

C  TM*  loudne  hM  NO  diMpI*  alli 
C 

CIM*  midM  icturm  jrmln  «nd  ymui  which  thould  bt  better  Umila  ior 
C  eetting  up  en  exit  then  the  ebeolute  vehaet  y1  ei^  y2  peeeed  in. 

C  mind  oMitiole  how  neny  eig  Age  ymln  end  ymex  will  contein. 

C  mind- 10  ->  1  eig  Age,  nund-taoo  ->  4  eig  Age 
C 

eubmiHne  eediai(yl.y2,yinin.ymei,faund) 

Integer  I1,t2,ieemp 
Reel  yl,y2,yinln,yinex,muid 
Reel  y1p.y2p.y1pp,y2pp,ylcinp 
C 

c  And  true  min  end  men  H  vehiee  ewitched  emind 
M(yl.gt.y2)  then 
ytemp-yl 
yl-y2 
y2-yttmp 


C 

c  epeciel  ceeee  extet  A  y1-y2 
M<yl,eq.y2)  then 
W(y1.es.0)  then 


ymex-1. 

elee  MIyl.lLO.)  then 
ymln-U*y1 
ymex-J^l 

elee 

ymin- J*yl 
yme*-U>1 


C 

c  etherwiee  bieek  the  numbere  down 
Mtyl4q.0.)  y1-l«^ 
M(y2.eq.O.)y2-1.»OA 
n  -Hhi(elog10(ebe(yl))e40H0 
a-Mii(elaglO(ebe(y2))r40)-tO 
Mill  .gLQ)  then 


M  8  H  9  H  S  3  M  3  I  3  I  H  H  g  §  S  §  S  I  g  I  n  i  S  M  :  I  H  i  I  S  S  E  i  H  H  i 
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c 

c  jrip  and  ylf  have  a  maximum  of  1  placa  lafi  of  (he  dac  p«  axetpt 
c  In  Iht  apcdal  circumalanoa  adian  that  pbca  It  iwl  a  trua  tig  Rg 
3500  ylp-yl/(10.“(loal(Q» 

)f2p-y2/no.~«oat02)) 

H((lfix(]r1p).cq.0.and.ifix(y2p).t<).  1  ).or. 

•  0Rx(]'1p)^.-1^nd.iax(y2p).aq.O))  than 

D-D-1 
goto  3500 
andir 
C 

c  mind  the  numbeia  off  on  a  oommon  batit 
c  lat  plot  HmHa  fill  Inalda  abaohila  vahiat  ptti  tlightly  If  naad  be 
p1pp-lflx(]r1pPioundynund 

H(]rl.lL04>jnd.7lpp.gl.p1p».01/faund)ytpp-ytpp-(1JnMind) 

y2pp-lfbt(y2p*rDiindymind 

lf(yl.gt0.0^nd.y2pp.lt.y2p-.01/fDund)  y2pp-y2ppt(I7round) 
C 

c  famova  the  nocmallaailon  factor 
ymln-ylpp*(I0.~l2) 
ymax-y2pp*(10-U) 
andlf 


C 
C 

C****'**'*'  Subroutine  otrva  . . * . . . . . . 

C 

C  Thia  RMibne  baa  NO  DIaapla  alia 
C 

C  Ibla  routine  takaa  Info  out  of  data  ttorage  and  putt  H  into  arrayt 
C  lor  plotting.  The  data  la  atorad  In  2-d  format,  arva  pulla  the  data  out 

C  aa  a  fnc  of  wlrn  at  a  fbad  Inc  ang  or  It  pulla  data  out  aa  a  fiK  of  iiK  aiy 

C  at  a  Ibiad  wavalinglh.  The  lixad  Inc  ang  or  aravelangth  need  not  lie  directly 
C  on  a  gild  baauae  Ihla  raullna  bncacly  Intaipolalaa  the  betuaeii  grlda 
C 

C  Thta  routina  flllt  curve  numbart  b1  to  k2  of  arrayt  tray  and  yay 
CaWiar  k1‘l  and  k2'numeuror  k1*k2 
C 

nbroubne  arva(k1,k2,in,fnuml.angl,wlcnl,fung1,nwlenl, 

•  angfx,adenhi,plypa.nuinpia,xiay,yiay) 

fntager  maxpll,maxcur,mnxang,maxwln,maxiur,nuxdal 
huamater  (maxph-4,maxcur-7,mnxang-25) 

Fanowter  (maxarln-n.maxaur-10,niaidal-20) 

•"••gar  k.k1.k2.m,fhum1,nang1,nwlanl,numplafmaxcur),piype 
IlealfMlI 

Kaal  angl(maxaur,maiiang).artenl(maiaur,niax«fln) 

Real  angbifBiaxcur),irtanfx(maxcur) 

Real  anyfmnxcur.maxwlnhyiayimaxcur.maxwln) 

2100  Real  fn(inaxdai,maxwln.maxang) 

2101  C 

2102  Commonfene/m 

2103  C 

210t  cgatbufexofdata  atomgi 
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* 


« 


210S 

not 

2107 

2100 

2109 

2110 
2111 
2112 

2113 

2114 
2119 
2114 
2117 
2110 

2119 
21X 
2121 
2122 

2123 

2124 
2129 
2124 
2127 

2120 

2129 

2130 

2131 

2132 

2133 

2134 
2139 
2134 
2137 
2130 

2139 

2140 

2141 

2142 

2143 

2144 
2149 
2144 
2147 
2140 
2149 

2190 

2191 
2152 

2193 

2194 
2190 
2194 
2157 
2190 


aO  Mndliiwfnuail.lAi) 
c  oM  dak  44  4  hincUon  of  mwakncth  ior 
MdNjrpc.lU)  Ihtn 
di>4000k-k1,k2 
c  dalaniilm  fliMd  Inc  anok 
M(pl]rpc^.1)  than 

46c-aiicOi(k) 

abc 

ah-anokiO) 

-  - 

•non 

niiBipl4(k>*nwlcn1 

c  And  wtwl  odd  eomaponda  k>  the  Inc  angle  or  And  gride  far  Inteipolallon 

MfengKowD-gl-alic)  goto  4040 
400  |-|t1 

H(anol(<n.D-0*^k)  goto  4030 
ll<ai«Kni.D-e<|-4h)  pDo  4040 
MQ-aq.nangl)  goto  4040 
goto  4020 
C 

c  do  the  Interpolation  to  get  date  aa  a  hinction  of  eravelengih 
4030  j-H 

factl-(af«-engl(ai,Dy(angl(in,|*1>ongl(ni,0) 
do  4090 1-I.nwlen1 
anp<k.i>-<<rienl(n,l) 

7iajr(k,l)-<<et(lch.l,|*IHae(id»,l,Or*ecil*ltl(ldx,l,0 
4090  eonOnm 
goto  4000 
C 

c  Inc  angle  Mt  grid  Hne  exactly  or  retpieeted  Inc  ang  tell  oulalde  grid  nnge 
4040  do  4040  i-l.nwieni 
xia]r(k,0-wlcnl(nt,l) 

)my<k.O-*M(id«,I.D 
4040  oonNnuc 
4000  eondniie 
C 

c  get  data  aa  a  hinctlon  o4  Inc  angle 

elec 

do  4100  k-kl,k2 

c  determtna  Ate  Axed  eravelengih  to  tiee 
W(ptype.eq  J)  dien 
t»4c-arien4i(k) 


arik-arienfcn) 


niimple<k)*nang1 


1-1 

ll(arienl(ai,0.gt«fhr)  goto  4140 
4120  |-|«l 

m»rienl(aa,0-gl-t»fc)  goto  4130 
ll(teltnl(ae,|>.ag.«efx)  goto  4140 
Ii].aqj«elen1)  goto  4140 
goto  4120 
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iiw  c 

21«0  c  do  the  kmrpokbon 

2Ut  4130 

2162 

2163  do4150l*1,nof«1 

2164  Mra)r(k,l>-ai^l(m,0 

2165  ]riir(k,0-(M(kfci,)+1,f>^idx,i,i))*bcti*f>t(idx,|,i) 

2166  4150  wMnm 

2167  ^  4100 
2166  C 

2169  c  iMtfpobtlon  wl  Mtdod 

2170  4140  do4160f‘1.Mf^1 

2171  xm7<k,0~«ntkn,Q 

2172  ym7(k,l>-iM(idx,t,0 

2173  4140  oonMmat 

2174  4100  ODAtiniit 

2175  endif 

2176  (Vtum 

2177  «nd 
2176  C 
2179  C 

21(0  5||l|*outtn»  nigld 

2161  C 

2162  C  T>da  rouHnt  hu  NO  ditepte  cilit 

2163  C 

2164  C  iMt  fouHne  dturmlnot  di*  obooHil*  oitu  and  mio  dx  y  value 

21tf  C  on  •  (Ivtn  2^  plol  for  •  mix  olemcnl  In  (he  epproprfott  x<«xfo  range 

2166  C 

2167  aubroullne  mg2d(nunKur.xfiy,vmin«xmix.yray.numpl». 

2166  *  aiAxoir,moxwln.ymin,ymax) 

2169  Integer  minKiir,maxcur.maxwln.Rumpu(maxoir) 

2190  Integer  l,j 

2191  ImI  xray<fnoxcur.atexwln).)rr«y(maxcur,ntexwln).ycniiv7fnax,xminrXiiwx 

2192  C 

2193  c  norvtel  odn  max  March  atrategy 

2194  7adn'1«37 

2195  yw-1.a37 

2196  do4200l-l,nufflcur 

2197  do4200j-1«nwnpte0) 

2196  N<xfay<l,0.ge.xadnuind.xray(i.0.la.xmax)  than 

2199  6(yva7O*0-6lT"*>)  finax-7riy(i.0 

2200  tf(yrByO«0.ll.yinfo)  fmln*yiiy(i>0 

2201  andd 

2202  4200cDndniH 

23i»  fvhtfii 

2204 

2206  C 
2306  C 

C . StfotBudnaa  prtn2d,  . . — . . . . 

2206  C 

2309  C  llila  nMdne  Itea  IM55PLA  aRa 

2310  C 

2211  C  TMa  rwidna  aate  die  anbplol  aiaa  for  3-d  and  contour  pfota  by  dividing 

2212  C  dit  poga  bdo  1  or  4  aactfon.  9or  each  pb  nuenbar  a  ddforant  aacifon 
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22U  CliMtapiMiat 
2114  C 

221S  •ubnuHn*  piln2d(nui»|ih.pl«) 

2214  IWtgitr  numpltplt 

2217  ImI  acTicxM>lc,]PKalt 

2214  C 

2219  c  Kilinf  OHIO  h«  done  on  phyitcal  origin 

2220  M(miinplLoq.1)  Dion 

2221  eon  phyiofO-S'xoc.l-S'yK) 

2222  an  hcigN-ll) 

2223  otat 

2224  li(|riLoq.1)  al  phjrwrO  .•xocj  JS*yK) 

2225  M(plLos.l)  aO  pti)wM<4.9hiacS  J5>K) 

2226  M(plLoqJ)aBplijfOOtO''uc1-*lrK) 

2227  H(P<Loq.4)  al  pl«]rM>f<6.9^uc1  •yc) 

2221  c  Iw  talng  oiuot  bo  rooct  ogoin  for  owhiple  oubploio 
2129  al  boalt<xoc*3J».S.70C*4.S».) 

1230  al  boighK  JS) 

2231  ondl 

1232  al  oaold(9.5,6.5) 

2233  abim 
2134  C 

2235  C 

2234  c  Mo  oniry  poooa  ibo  pnpor  oalc  in  from  Iho  nioin  pragnm 

2237  ontry  ad2d(xoalo,yoak) 

2131  ooc-xoaW 

2211  yoc-yoalo 

2140  xMuin 

2141  ond 

2242  C 

2243  C 

2244  O' . SubnaMnoo  oaoold,  ogrdld  . . 

2245  C 

1344  CTtOoroaHwlMoOISSFLAalk 
2247  C 

2341  C  TMo  loaino  daw*  and  kbali  Iho  ooot  ter  3-d  ptelo 

2249  C 

2250  nbtotdbio  aaoo2d(plypo.teuail,«niin,>na>.yinitvyniox,n1,n2) 

2251  Integir  ptypo,teia»1.lro<»,teol,nl.iO 

2251  Integir  Mtrd,dllgi<d,ngrd(.ngrdy.dngrd>,dngtdy 

2253  loal  oaibua<iii,o1,x2,yniMym«,y1,y2 

2254  C 

2255  c  chooa  prapor  nim  ter  o-ixio 

2254  H(p«ypo.lJ)«ian 

2257  al  mmo<’(P4)Worolongth  in  (M7)M(M1)M'',iaa) 

2251  oteo 

2359  al  »nooioC<l4)Anglo  o4  Incidona  te  dogaoi''.100) 

2340  ondl 

2241  C 

2242  al  yawigD.) 

1343  al  yiaaor  ".lOO) 

2244  c  pa  poxte  hbol  an  tep  of  gaph 
2145  al  — nogf  •*,ia0i-.3l4.7) 

1144  aril  ■oho4||i«a1,n1,n2) 
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c 

c  chooM  koiiii  and  wi  up  dnw  axM 
al  •t<ila(>iiiiln,Miiiu,xl,u2,lo.) 
aR  M<hm(]nnln,)rBm,)rl,]r2,2.) 
aR  ulinpRt 

aR  gmf(>1.(x24tyi0  .x2.T>.(y2-r1VS.,y2) 
aRaaph 

c  put  in  (ltd  Nna  if  Indkaud 
iKIR(>d.«q.1)  then 
aRduh 

aR  ■fid(ii(cdx,ntf<ly) 
aR  lUMlfDASHO 


C 

C 

c  pua  in  the  oonuct  numbtr  ot  grid  lint*  toe  th«  k  and  y  aia 
antry  ■grd2d(dllgrd,dngfdx<dngrdy) 

Mgrd-dtlgfd 

ngfAt'dngfda 

ngfdy-dngRly 

mum 


C 

c 


makat 


C 

C  T>iia  rauUna  haa  DISSRLA  aRa 
C 

C  'Oiia  rouHna  prints  Wj,  FipPn,  Pii/FiKtaaM>-l.  or  (Fii/f>I1)iIFii/PI1(baw)H 
C  dapandtni  upon  wtwt  normaNaations  tn  H  attact 
C 


aulwanina  a<akaa[att.nl.n2) 

Imaptr  afe,n1.n2 
Chaacia<*1  ctM(4) 

Oaa  cinirr,'r.T,'4V 
i(vw-(all-ty4«1 
tasl-alH)row-ir4 
e  print  nj 

aR  inaaa|C(R4)P(H.$r/ilc<nl(imwy/cintriea(y^ 

•  .lOO.’AIur.'ARUT) 
c  print  Pit 

W(nl.aq.l)  than 

aR  aaaaagr(F4yP(H.S)ll*',100.'ARUT,-ARUr) 

2311  andW 

2312  cprinthaaPli 

2313  Ill(n2.r«.0)  dtan 

2314  aR  aiaaa|r-<M)W'5r/»clnl0n>wytcitu()a(yi 

UW  •  •(■2HXEJM.»)haaa<R2r.100,AIirr.’ARUT) 

231*  e  paint  haa  P11 
2317  M(n1^.1)Nian 

231*  aR  uiaaatr(R«yR(H.5)1t(«2HXE.gH.*)haa- 

231*  •  ,iao.'A*ur.'Aiur) 

2330  andtf 
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2»1  mW 

rm  ntum 

1313  end 

1324  C 
131S  C 

2336  £'  '  ■  SubrauUn*  Igbu*  . . 

1317  C 

HI*  CnitoRMHnthuDesnAal* 

13»  C 

1330  CTtdiinnIlne  prWieulllie  Infceboidihe  bMt  Iniippef  Mlconwr 

1331  C  k  pttali  nemt,  can.  fnc,  tnlglw,  and  alap  Mb 
1331  C 

1331  aubnuHna  l(haaa<aiataiawaulonm,tinia^wg>) 

1334  laal  haiaq,alia 

1335  Cliaractaf*13  awtnm^utonai 

1336  C 

1337  c  aa<  up  aubple<  am 

1330  al  ph3rBaitS.,0.) 

113*  eilaraald0 1.5,10.5) 

1140  al  lw«ilM(.14) 

1141  al  omagTIaaa  oialtfial  -*‘,10a..2.9.7) 

XMl  al  atmg(maiiun/7^,100,.2.*.5) 

1143  al  aiaaa|(aaanni/^,100,.3,*J) 

1344  al  amaiTCZI)  -  -,100,J.«.1) 

1343  al  aahia<IUM4,1(M,'AI(7r.'A8Ur) 

1146  al  a>Baatr(M7)M(M1)M(EH.5)2*',100,'ABUr,‘AaU1*) 

1347  al  maaa|r(Zl)  -  •■,100..14.«) 

ZMI  al  iMlno<ilgi,104,'Alur,'AIUr) 

n**  alandpfO) 

1350  non 

2331  aM 

2352  C 
135)  C 

2364  C~ . SubaulM  dobld  . . . 

1355  C 

2136  C'nuaiadbwIiaaDBsnAah 

2357  C 

2151  C  nua  aauHnt  actual^  ala  dia  cuna  drawtnp  rauHnaa. 

135*  C  Variabla  dIawnabMng  of  mayl  and  yayl  aa  uaad  bacaua  curaaO 
1340  C  onip  annli  Ola  awatOy  dlinanalnnad  aiitpula. 

2341  C 

1342  MbrMHna  da02d(lcttr,nunipia,xay,7riy,»a)r1,yay1.inaxcur,niaxarbi) 

1343  buaiar  tcur.  nanptfcniaacMr.aiaxwIn 

23*4  Raal  myfeMxcur.aianidnjkyrayIniaxcur.nwnaIn) 

1143  laal  iay1(nHaipaa),jnray1(nHRip«a) 

1344  C 

1347  e  aapjr  buo  aariaWy  dhnenaianad  anaya 
2341  da4400l-1,naap« 

111*  na)n(l)-a>Bnicar,0 

HI®  yafl(l>-yay<leur,l) 

1371  4400eanibwa 

2372  a  ai*pW  aat  up  by  pMnld 

1373  al  faaat.l) 

S74  aal  ciiraa<aiay1.yiay1.nuapw.(g 
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an  ■Mt«CSETClJt') 
cinmMrDASH') 

rttMm 

c 

c 

c  iNt  Cifl  it  yttd  to  fMth  off  t  mtc  plot  when  ell  curvet  dmvm 
ontryenfrSd 
toO  cndgffD) 


C 

C 

Qmmammmnm  Subroutine  doiCd  . . . 

c 

C  iMt  fDitofie  het  D6SPLA  otlU 

C 

C  iMt  lOuMriet  puli  rtw  dtlt  for  the  M  plot  In  a  variably  4imenatoned 
C  2-d  arfty  to  Midi  the  nquhomentt  of  turmalO 

C 

oubfoutinc  4olt3d(faimlA,tarpti.lymin.lypttrangl,wlent.m,klx,f%Mlt) 
Intogtr  fiiexpll,aMacttr,(naxan^maxwln.maxtur,maidat 
Hraoietor  (niaxph*4«fnaxcur'7,maxang-25) 

Faraototer  <rnax%iHn'71,maxaur*10«maxdai'20) 

Intofer  taifnin.bcinax<lymln.lyfnai,tepta.iypta.fn.idK 
intogtr  hvcKk(3*(fiiaK«Hn*maaang}«4} 
toil  antKatoxaiir«fnaxanf}.wlcnl(maiaur,maiwln) 
tool  fol(tMudal,maicwln.toexanf).fwrt(fapta.lypta} 
ioal  x33aMit.y39oial,act(3,at«y3,tetup 
Extomal  a33«nal,y33mat 
Coawnonfoneffot 
C 

bcmi-tofl»fo»htpto  I 
lyiajc-tyBifo»l|p>  1 
typH'tyotox^tymki  ♦! 
c  ethip  "aahf3(m,wWwl.hcmln) 

c  attop  atty3(nM«^>ty»wln) 

C 

c  copy  dan  foocn  atovape  Into  amaller  array 
do  4400 1'bmlivbimax 
do  4400  k*lymto,ty«nax 
fwff^J-dnntn  f  1  ,k-lyniln  « 1 )- ftlOdx ,  t  k) 


cdopfol 

aal  aynnat(>wTk,i,bipia,1,iypah*work) 

latom 


4 


« 


c 

c 


^  Aincllsm  x39iMt.  . . . . . . . . 

C 

C  IMi  fnaiM  Dm  NO  «Mph  ah 

C 

C  TM  laiNn  wlam  Mw  tor  ■  given  x  Index  a  aontonr  gtoHing 
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C  loulin*.  TMs  funcllon  ww  to  be  Odmal  and  be  uMd  wHh  eurtmO  but 
C  tftot  MbfDuHne  does  not  eeem  to  %itork  in  dieeph  on  the  cny2. 

C 

hinctloA  xSaoMlQ 
bttofu  mjQur^BMxwfatawi 
p«to«etot<gimur-10,oie»wln*71) 
bitogei  taonbvdliifliin 

leal  wlenn<aiaxwln>,d«idenl(aiaxaur,inavwln) 

aewe 

C 

c  ifmpte  tan*t  tt 

x33aiat'«dcnl1Q4faunin*1) 

wbifw 

C 

c 

e  ddi  entry  eoptoa  In  the  Mai  of  «m¥elenftha  for  the  (iven  aurtoce  aa^n  # 
entry  eeta3(in«dwlenl«dtafnln) 
taunin-dtamto 
do  4700 1'l^maewbi 
arlenll  (l)*dwlenl(nw  I) 

4700<Bnltnue 

•etoj-l. 
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103  c 

104  CThitfDuUwhuNOdiMpkcilb 
MIS  C 

1416  C  iMt  !•  ■  nonml  min  oimi  acarch  praccm  in  the  dcaired  nnge  tor  the  plot 

1417  C 

MM  aubaotaHn*  in|3d(tti,iianln,l«inaji,iymin.lymax,xmin,ui*x) 

MM  Inaagar  mupM,aNuciir,mBxan(,muwln,nia<aur,inaadai 

1410  PammOaf  (raaxpH*4,inaticiir~7,iiiaxang-15) 

1491  ParaaMatr(aianiin-71,Dinwir-10,inuulal-10) 

1492  Inlagar  kb^bimin,tnMX,l]rBiln.l]nnaii,l,i 

1493  ImI  iiiiln,xninx,liM(maxdal.inax«>ln,aia>an() 

1494  C 

1495  Coamonton«/fal 

1496  C 

1497  imln-1.«36 

MM  aiMji-I.t36 

1499  do  5000  1-hmln.iunai 

2500  do  5000  i-lymin,iymaji 

2501  ii(hl(ldi,l,D.|<*<nu)  imax-«al(id>,t.D 

2502  il(<aa(Ui,l,D'll'*"b<)  in<in-lal(id>,l,D 

2503  5000  eondnua 

1504  fthim 

2505  and 

2506  C 

2507  C 

230,  C . SubaauMna  haad3d  . . 

2509  C 

1510  C  n*  Rwilna  haa  DI5SPLA  mlk 
2511  C 

2511  C  Oda  midna  palnaa  lha  eanarr  haading  far  3d  plola  and  contour  phMa 

2513  C 

2514  aubaaudna  haad3d(naiirf,matnin^uaonm,hfnaq,alga,aH,n1,n2} 

2515  Mmir  altnatiif 

1516  laal  hoia^alp 

2517  aiaf«ctar*13  malmiuiilorun 

2511  C 

1519  c  aahip  aiibploi  aaaa 

2510  aR  phyaarf0..0.) 

2521  caRai«a2d(12..10J) 

2522  caR  liclghl(.M) 

2523  ml  maaaagCladMcatlaf  Mueflar  Matrb  Elatnant  ''.100,0.9.10.) 

2SM  aR  maM(cH.n1,n2) 

1525  ml  halghl(.21) 

2516  c  R  Otar*  la  only  ana  matarlal  on  a  confour  or  for  aR  3-d  plola,  prltH  M 

2527  M[naurf.a4.l)  Dtan 

2SM  cal  awamMoiolnm^  'Oaomnnyr'.  100 J.2.9.75) 

2529  oaR  hal^.17) 

1530  ert  maaaa|r(Z1)  -  *-,100.3.1.9.45) 

2531  caR  fMlna<limag,104.'AK)T.'AIUT) 

2532  cbR  tncaMfr(H.7M7)M<M1)M(EH.5)2(EXHXMXr.10a.'Aaur.'ARl7r) 

2533  ml  maaaagf  (Z2)  -  MOO.-AKrr.'AKm 

BM  ml  aaalnoMiabllM.’Allir.'AKn') 

2535  alaa 

2536  c  oahOHrlaa  print  caanpariaon 
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OiD  mMMgfCompariaon  of  Maltn>b*‘.i00,3.O-75) 
ofldif 

an  aalCHElCHr) 

antndgKP) 

laum 


c 

c 

. . . .  SutaouliM*  prtnSd.  . . . . 

C 

C  na  vMrtlng  hM  06&Ft>  aO* 

c 

C  TM«  rouUn*  mI>  up  the  page  am  Ibr  diapiaying  iha  3-d  flat 
C 

•ubfaidiia  prtn3d(VK,vy,vi) 
laal  vx,vy,vi,xae,yacaaala,j>aak 
C 

c  aaHng  of  phpafal  ott|tn  ia  UnponaM 
c  attMng  vtaw  p(  ia  alao  dona  htat 
an  ptiyaofd  Mat  lS^) 
an  lM3dC  *‘.I00.1I.,9.S) 
an  volm3d(2.,1.,l.) 
an  vuaba<vii,vy,n) 


C 

C 

c  IMa  antry  paataa  in  ttw  aaHng  factor  lo  UM 
amry  aacOdfaaaic.yiaW) 
or-naaW 
y»c-r«»w 

lulucn 

and 

C 

C 

C* . SubreuUna  amaSS  . . 

C 

C  T>Ma  fouHna  haa  DG5PLA  alb 
C 

C  TMa  roainc  aafupa  for  and  ptob  the  3  u«  on  3-d  pMa 
C 

abhroalna  aBca33<ii1.al,y1,y2,al.al) 

■Ual  al^yl.yXal^ 

C 

an  aan((-90.) 
an  yaaangd).) 
aniH«|hl(J1) 
c  namo  than 

an  a3naniaf(n4)Waaabngth  a  (M7)M(MI)lkr'.iao> 
an  ]r3namaC(M)bicM(n(  Angh  in  deg.*',  100) 
ca  aSnaaaC  *’,100) 


at  gaOdpil,«a«1)A.,jar1,(]rl-riy5  .p2,a1,(a3-c1)S..i2) 

an  ampb 
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2591 

2992 

2995 

2994 

2595 

2596 
2997 
259S 
2999 
2600 
2601 
2602 

2603 

2604 
2609 
2606 

2607 

2608 

2609 

2610 
2611 
2612 
2613 

2614 

2615 

2616 

2617 

2618 

2619 

2620 
2621 
2622 

2623 

2624 

2625 

2626 

2627 

2628 
2629 


ftiuni 

end 

C 

C 

. Si^coulifie  %cn  . . . . . . . . 

C 

C  This  toutint  hu  DI55PLA  alto 
C 

C  this  routine  printo  the  lefend  of  the  contour  toveU  in  the  oppor  right  comer 
C 

•ubroutlne  l|icn<M) 

ReelMOl) 

C 

an  phpeor(0.A) 
an  ei««2d01>5,10.5) 
do  9900  1-1,5 
an  Nne«i<l) 
an  •trtpt<9.7.lo.2-.2*i) 
an  CDnnpt(10.2.10.2>.2*i) 
an  metCDASH') 

alt  roelnoOvKr2-l),-3.10.3.10.1-.ri> 

9900  continue 

an  roeetCSETCLKO 
an  endgffO) 


C 

c 

C"'  -i  i--  Subroutine* exeecn,  tgrden  . . . . . . 

C 

C  Thto  routine  hee  DfSSPLA  alto 

C 

C  thto  routine  necnee  end  ploti  the  exee  for  contour  plot* 

C 

•ubrotdine  yi , rmorf  mernm,  ■utffnm.hmeq^iip) 

fotoger  neurf.Hlgrd.dflgrd.ngrdx.ngrdy.dngrdR.dngrdy 
Reel  ■l,K2ry1,y2.hnieq,eigt 
Clieractirr*13  meimn^eulonm 
C 


2620  cnemethetn 

2631  an  yexengfO.) 

2632  an  ynemer(P4)lncidenl  Angle  in  deg  *'.100) 

2633  anxneiner(n4)We¥elenglhin(M7)M(Ml>M*',100) 

2634  aR  elaipbc 

2635  epfottheen 

2636  an  grel(xl,()i2itiyiO.,K2,7l,0r2-yiy5.,72) 

2637  an  complK 

2638  an  hcighH^l) 

2639  C 

2640  c  ff  outterieto  ere  being  compered  write  meteriel  date  over  each  plot 

2641  W(naurf.gl.1)lhen 

2642  al  aieoag(matnaVr  Vtoutonnvr  *',100.0..6.6) 

2643  an  meeagrgl)  -  •'.lOO/ABUT/ABUT) 

2644  ai  roelno<hwe^104/ABUr/AWjr) 
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an  iiinMsr(M7)M(M1)M(EH.S)rM00.‘ABUr.'ABirr) 
an  maagr  (Z2)  -  *',100/ ABUT.' ABUT) 

an  i««lno(tigs«104/ABUT/ABin*) 
ctH  rmtCHEICHr) 
cfidtf 

c  dmw  grid  Hnca  derired 
tf  (ll^rd.«q.1)  dim 
an  dwh 

an  grid<ngfdx«ngfdy) 
an  itMifDASHO 


C 

C 

e  this  entry  peoa  grid  line  info  in 

entry  egrdenCdAgfd^dngr^^dngrdy) 
illgrd''dflgrd 
ngfdx-’dngrdx 
ngfdy-dfigrdy 
return 
end 
C 
C 

C***'”*“‘  Subroutine  . . . . ilBBBBBBB.-.nntnilBBBBMUB 

C 

C  TMe  rauline  hee  NO  dii^ib  an« 

C 

C  ‘Hiie  routine  determinef  the  point  on  eech  of  9  contour  level*  of  the 
C  oorreeponding  >d  plot 
C 

•ttbroutine  dollcn(farinln.dixptf,iymirvdiypti,engtwWnl,inturf, 

*  ldK,lvl,z1,z2) 

Ifrieger  inexpltawxcur,fnexertg,mexwln,mexeur,mexdet 

pereineler^inexplt-4>inexcur-7,m>xeng'"2$) 

petefnelertinexwln’71,mexeuf-10.m*xdel-20) 

Irdeger  taRnlivbipt*.dtxpli.biinex,lyniin,di]^ni.lypti«tyfnex 

Integer  insurf.klx.ftvl 

Integer  kn(<4).id)(4) 

integer  hk(1000},hl(1000).hd<1000).n 

Reel  «ngKinexsttr.tnsx8ng).wlenK(nex*ur.mexwln) 

Reel  fortk<wexwlrvinexsng) 

Reel  fot(tnexdot.fnBxwlrt.nisxar(g) 

Reel  lvl01V«1,«2.leve1 
Reel  xtey0000).yriyn000) 

C 

CdsmoAfone/fot 

Ceininori/Wvs/Wvil.ftiits.hk,hl.hd.heTk.ixpt^iypte 
Deti  ldk,ldM).1.0.-1.1A*1.0f 
C 

c  Bwet  proper  range  of  date  from  storage  foto  the  woHUng  2^1  array 


‘UmlnUipti  1 


Appendix  V 


2W»  ••tup-wtO<inMirf,w<enl,faioiin) 

1700  Mtup-wlr3<i»>u<^n(l,lyinin) 

1701  do  6100 1'buntevlxino 

1702  do  6100  k'tymiivlyaiax 

1703  1wtk(j-6iinin'f1,k-1)nnini1)'f>t(idx,j,k) 

1704  6100  oofidnuc 

1705  C 

1706  c  klop  through  toch  of  9  kvtia 

1707  c  mtgning  colon  or  dHhcd  Nnc*  to  Mch 

1700  do  6110  Ovl-  9,1,-1 

1709  IhMi-O 

1710  Wvcl-lvl(HvO 

1711  M(nvl«,.r(nvV2))thcn 

1712  loolar~10 

2713  *lM 

2714  loolor-nvVltl 

271$  tndlf 

1716  C 

1717  e  find  all  picocc  when  the  contour  line  peu  between  adiacent  wavelengtha 

2716  do  6112  k-l.lapta-l 

2719  do6112l-l.lypta 

1710  can  hltiiie<k,U1) 

2721  nO  hHotefktl.U) 

2722  6112  continue 

2723  C 

2724  c  Ond  a6  place  when  the  contmir  Hne  pace  between  adjacent  Inc  anglea 

272$  do6ll4l-t,l7p«a-l 

2726  do6l14k-l,btpta 

2727  can  hltine<k.l,0) 

2728  all  hltine<k,lt1,2) 

2729  6114  continue 
27X  C 

2731  C 

2732  clflagl-o—>  working  on  edge  to  edge  conioun 

2733  c  lflagl-1  — >  working  on  doaed  eonioura 

2734  Magl-O 

273$  kav-0 

2736  6130  WphMa.eq.O)  goto  6110 

2737  kav-1 

2738  lpn-0 

2739  lflMlag1ug.1)geao6133 

2740  c  And  an  edge  entry  point 

2741  n-1 

2742  6131  lf(hd(n).eq.0.and.hk(n).eq.1)  goto  613$ 

2743  lf(hd(n).eq.1  und.hl(n).eq.l7ptt)  goto  613$ 

2744  lf(hd(n).eq.2und.hk<n).eq.taplt)  goto  613$ 

274$  ••(iMlfnVcq.lJnd.hKnl.cd.l)  goto  613$ 

1746  W(n.eq.lMtt)  goto  6133 

2747  n-nti 

2748  goto  6131 
1749  C 

2790  c  pick  a  hit  aaetartlngfercloee  contour,  nve  hand  copy  M 

2731  6133  Mhgl-I 

2732  ka*-hk(1) 
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♦ 


2753  ltv-M(1) 

2754  Umr-hdO) 

2755 

2756  lik<IMli)-kiv 

2757  hl(RiHi)-tav 

2758  hd(aito)-iikv 

2759  B-I 

2760  C 

2761  c  Mvc  liuerpotaled  x  «nd  y  valuM  in  the  plotting  emy 

2762  613Sid-lKKn) 

2763  k-hk<n) 

2764  l-M(n) 

2765  kp>k«tdli<ldtl) 

2766  Ip-UidKIdtl) 

2767  Ipli-lplitl 

2768  xl-x33a«t(k) 

2769  y1-y33iMt(q 

2770  dcW-(leveWink(k,Qy(fwrk<k«ldk(ki«1).l»klt<id<1))-<wik(k.O) 

2771  Xiiy(lpti)-(x33in<t(ktl<lk<ldt1))-xl)*<teir«x1 

2772  yny(ipli>-(y33iMtO»idKklt1)>y1)*<ielftyl 

2773  c  icoiove  Mt  fran  Met 

2774  hd(n}-lMKniMe) 

2775  hk(n)-hk(IMti) 

2776  hl(n)-hlOMM) 

2777  OiHa-IMti.l 

2778  ceMtf  you  Meet  the  end  of  edge  to  edge 

2779  M(Meg1.e<(.01  then 

2780  M((td.eq.0^nd.k.eq.ixpte).or.(ld.e<|.2.and.k.e<|.1).er. 

2781  *  (ld.eq.1jnd  l^.1)^.(ld.eg.3and.l.eq.iypt*))then 

2782  cell  cwvcnfxiey.yny.icolor.lple) 

2783  goto  6130 

2784  OKlif 

2785  c  ece  If  you  eio  et  the  end  of  e  doeed  oonkwr 

2786  elw 

2787  lf(lMq.kevond.l^.lcv^nd.ld.eg.ldev)  then 

2788  M(lpt>.gL1)  then 

2789  cell  cuncnfxray.yny.loolor.ipli) 

2780  §040  61» 

2791  ondH 

2782  endif 

2783  endtf 

2784  C 

2789  c  detftntine  tdiet  the  next  hit  ehould  be 

2796  e  Ihle  le  Ihe  meet  of  the  code  but  H  le  not  reoNy  poeelble  to  decument  here 
2787  c  ttw  bed  way  lo  undanHand  H  la  lo  do  a  peiKlI  and  paper  ran 
2798  Idp-lradOd) 

2789  kpp-kprIdkOdptI) 

2800  lpp-lp4ldl(ldprt) 

2801  lf(h*rk(kpp,lpp).fLlaval)  than 

2802  knew  kpp 

2803  kiew-lpp 

2804  tdnawmcdOraxKldpa 

2808  aha 

2808  kmrkrIdkQdpri) 
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IpFp-UldlOdptl) 

li(f«nk(kppp>lppp)|t  >*«*>) 

kncw'^lpp 
k»w-l|i|ip 
Untw-ld 

tiM 

kntw-k 
bww-l 
Mntw-idp 
cncHf 
tmM 

2819  c  Ond  the  new  Ml  In  Ml  Net 

2820  n-1 

2821  8138  M(hli(n).e<i.luMWAnd.hl(n).e<].lncw  jnd.hd<n).cq.ldnew)  gok>  813S 

2822  M(n.tq.lMl>)  then 

2823  •DM  8110 

2824  cndU 

2823  n'n41 

2828  (010  8138 

2827  8110oonllnue 

2828  mum 

2829  end 

2830  C 

2831  C 

jg32  1""  SubnMidnc  hlime . . . . . 

2833  C 

2834  C  TMe  nnillne  hot  NO  dieepb  cells 

2835  c 

2838  c  iMs  RMrttne  delenntnei  d  o  beoe  pi  and  ■  direction  oonstilulea  e  hit  for 

2837  c  the  (twin  contour  level 

2838  c 

2839  eobnoutine  Mlne<k,l,m) 

2840  Inlefir  ownrlivaHuiy 

2841  h(eniettt<oianrln-71,ouuien(-2S) 

■>>M8erk.l.ai.hkpoaO).hlOOOO),hdOOaa}.ispts.irpfo 

2843  lMe(er  ldk(4Xkn(4) 

2844  Heel  Wvel.twTfc<nvurwln.msKen() 

2845  C 


2807 

2808 

2809 

2810 
2811 
2812 

2813 

2814 

2815 
2818 

2817 

2818  C 


2848 

2847 

28a 


klMlfchk,hl,hd,hvTk,i»pli,iypli 
Dale  ldli.lAlD,1A-M,0,-1  A 


28a  M(hnh(k.l)-(C.level)  then 

2850  lip-k«ldMait1) 

2851  lp-lrldl(a<*l) 

2852  M|hnk(kp,lp).ll.level)  then 

2851  OiNa-IMlsrl 

2854  hk(8<«e)-k 

2855  hlOMla)'l 

2858  hd(lhlte)-ni 

2857  endM 

2858  endW 


m 
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c 

c 


kncMon  tnedOdd) 
iMifcrtdd 

lncd-ldd>1-4*(0ddM)M) 


C 

C  TM*  fouHnt  liM  OBSFLA  alb 
C 

C  Thb  iDudfitt  plob  the  cDAloun  u  any  ohar  2-d  cufvc 

C  *  apacbl  coIot  handUng  aacNon  makaa  avafy  olliar  eoMoura  daahad  Nm 

C 

aohreuHna  curvcn^amy.yray.ieolor.lpM) 

■ibtgar  tolor.lpM 
>aal  an]r<ipb),yfi]r(lpb) 

Hfleolor^.lO)  than 

aldaah 

aha 

a>  llMaa(iailo<) 
andV 

al  wvaOiniy.jnBy.ipaLO) 
al  matrsercut') 
al  aaaatrOASHO 
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APPENDIX  VI:  DETECT/DECIDE2  USER  GUIDES  AND  SOURCE  CODES. 


AVI. 1.1  Introduction  to  DETECT. 

Program  DETECT,  written  by  Mark  Haugland,  analyzes  backscatter  Mueller  matrices 
calculated  by  RETRO.  Both  DETECT  and  RETRO  are  written  in  FORTRAN  77  and  set  up  to 
run  on  a  Cray  2  under  the  UNICOS  operating  system.  The  program  serves  two  purposes: 
(1)  it  locates  optimum  angles  of  incidence  and  wavelengths  for  use  in  discriminating 
between  a  contaminated  and  a  dry  surface;  (2)  it  then  identifies  those  Mueller  matrix  ele¬ 
ments  that  can  be  used  to  discriminate  between  contaminated  and  dry  surfaces  at  optimum 
beams  angles  of  incidence  and  beam  wavelengths. 


AVI. 1.1.1  Outline  of  DETECT s  functions. 

DETECT  functions  in  the  following  maimer: 

1.  Read  in  two  output  files  from  RETRO. 

a)  Either  normalize  all  matrix  elements  to  /n  or  use  the  selected  auto-correlation 
function. 

2.  Write  a  heading  block  to  the  output  file  (unit  9). 

3.  Compute  Equations  (37)  and  (39).  llie  program  does  not  enforce  the  condition  that 

these  values  must  be  larger  than  I  x  I  1  y  I  max-  user  must  decide  what 

these  values  are  and  make  judgements  accordingly. 

a)  Sort  the  terms  in  Equations  (37)  and  (39)  so  that  they  are  in  decreasing  order  of 
magnitude. 

4.  Write  to  unit  9. 

a)  The  subscripts  of  non-zero  terms  in  Equation  (39)  in  the  order  of  largest  to  smal¬ 
lest  terms.  The  subscript  of  the  largest  term  is  followed  by  the  sutecript  of  the 
next  largest  term  and  so  on, 

b)  the  subscripts  of  all  non-zero  terms  in  (37)  in  the  order  of  largest  to  smallest 

term.  The  subscript  of  the  largest  term  is  followed  by  the  subscript  of  the  next 

largest  term  and  so  on, 

c)  Equation  (37),  largest  term,  subscript  of  largest  term, 

d)  Equation  (39),  largest  term,  subscript  of  largest  term, 

e)  the  angle  and  wavelength  at  which  (37)  took  on  its  maximum  value  over  die 
range  of  wavelengths  and  angles  in  the  RETRO  output  files  and  the  maximum 
value, 

f)  the  angle  and  wavelength  at  which  (39)  took  on  its  maximum  value  over  the 
range  of  wavelengths  and  angles  in  the  RETRO  output  files  and  the  maximum 
value, 

g)  the  largest  value  assumed  by  any  term  in  (37),  the  subscript  of  that  term,  the 
angle  and  wavelength  at  whidi  that  value  occurred, 

h)  the  largest  value  assumed  by  any  term  in  (39),  the  subscript  of  that  term,  the 
angle  and  wavelength  at  which  that  value  occurred. 

5.  Find  all  local  maxima  and  minima  in  k  (imagiruuy  refractive  index)  for  both  materials, 

6.  write  all  local  maxima  and  minima  in  k  for  each  material  to  unit  9. 


AVI.1.1.2  Input  Files. 
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DETECT  needs  five  input  files.  The  first  file  is  'FILENAMES/  which  is  used  in  every 
run  and  contains  names  of  the  four  other  files  required  by  DETECT.  In  addition  to  names  of 
die  other  input  files,  'FILENAMES'  contains  code  numbers  that  determine  which  auto¬ 
correlation  function  the  program  accesses  for  the  background  material,  which  auto-correlation 
function  the  program  uses  for  the  target  material,  or  whether  to  normalize  all  Mueller  matrix 
elements  to  fu 

AVI.1.1.2.1  FILENAMES. 

An  example  of  a  correctly  edited  file  is  given  at  the  end  of  this  section.  The  line-by-line 
format  is  as  follows: 

A-  filename  containing  RETRO  output  for  the  background  (base)  material  (up  to  15  diarac- 
ters); 

B-  filename  containing  RETRO  output  for  the  target  material  (up  to  15  characters); 

C-  filename  for  data  output,  uiut  9  (15  characters  max); 

D-  filename  for  commentary  output,  unit  8  (15  characters  max); 

E-  filename  containing  the  background  material's  index  of  refraction  as  a  function  of 
wavelength  (15  characters  or  less); 

F-  filetuune  containing  the  target  material's  index  of  refraction  as  a  function  of  wavelength 
(15  characters  or  less); 

G-  The  code  number  (IBCOR)  determines  whether  the  auto-correlation  function  for  the 
background  material  is  Gaussian  (IBCOR^l),  N»8  (IBCOR»2),  or  N«6  (IBCOR«3) 
(integer); 

H-  The  code  number  ITCOR  determines  whether  the  auto-correlation  function  for  the  target 
material  is  Gaussian  (n'COR=l),  N=8  (n'COR=2),  or  N“6  (ITCOR*3)  (integer); 

I-  The  code  number  NORM  equals  zero  for  no  normalization  and  1  for  normalizing  all 
Mueller  matrix  elements  to  / n.  That  is,  a  value  of  1  on  this  line  causes  the  program  to 

analyze  rather  than  /j,  (integer). 

Ill 


AVI.1.1.2.2  Accessing  RETRO  output  files. 

Program  DETECT  analyzes  RETRO's  output  data  as  a  function  of  beam  wavelength  and 
incident  angle.  The  wavelengths  and  incident  angles  in  RETRO's  output  file  for  background 
and  target  materials  must  be  identical.  If  not  the  same,  DETECT  will  quit  and  write  an  error 
message  to  unit  8.  For  more  information  regarding  files  generated  by  RETRO,  see  Appendix 
V. 


AVI.  1.1. 2.3  Index  of  refraction  files. 

These  files  are  the  same  files  RETRO  accesses  to  compute  the  dielectric  constant  for  eadr 
material. 


AVI.1.1.3  Output  files. 
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DETECT  creates  two  output  tiles.  The  tirst  tile  is  for  commentary  output  should  some¬ 
thing  go  wrong,  the  second  is  the  DETECT  data  tile.  The  names  for  these  tiles  are  tiie  inputs 
to  program  DETECT  found  on  lines  C  and  D  of  'FILENAMES.' 


AVI.1.1.3.1  Commentary  output  file. 

This  tile  is  opened  as  unit  8.  Unit  8  is  sent  various  values  for  debugging  the  program  if 
smnething  should  go  wrong  during  the  computer  run.  With  normal  operations  the  only  writ¬ 
ten  input  to  unit  8  are  error  messages  indicating  if  wavelengths  and  angles  of  incidence  in 
each  RETRO  output  tile  are  not  equal  or  if  the  number  on  line  I  of  'FILENAMES'  is  not  0  or  1. 
In  DETECT,  several  write  statements  to  unit  8  have  been  commented  out.  They  may  be  rein¬ 
stated  by  removing  "C"  in  the  leftmost  column  on  the  line  where  the  write  statement 
appears. 


AVI.l. 1.3.2  Data  output  file. 

This  tile  (written  to  unit  9)  contains  four  distinct  sections.  The  header  block  appears  at 
the  beginning  of  the  tile.  The  second  section  contains  data  from  the  analysis  of  RETRO's  out¬ 
put.  The  third  section  contains  maximum  quantities  contained  in  the  second  section.  The 
fiital  section  contains  local  maxima  and  minima  of  k-values  for  both  materials.  The  format  of 
the  heading  block  is  as  follows. 

A-  A  description  of  the  base  material, 

B-  and  the  target  material. 

C-  Present  if  line  I  in  'FILENAMES'  is  1.  This  line  is  a  comment  to  remind  the  user  that 
RETRO  output  was  normalized  to  f  n. 

D-  Present  if  line  I  in  'FILENAMES'  is  0.  This  line  has  the  same  value  as  that  of  line  G  of 
'FILENAMES,'  to  remind  the  user  which  auto-correlation  function  for  the  background 
material  DETECT  used  in  its  analysis. 

E-  This  line  is  the  same  as  that  of  line  D,  for  the  target  material. 

F-  The  number  of  <h^>'s,  a/'s,  X's,  and  Oq's  by  RETRO.  If  the  number  of  <fc*>'s  or 

o’/'s  is  greater  than  1,  the  second  and  ^ird  sections  of  this  tile  are  repeated  in  a  nested 
loop  where  o-/  varies  more  rapidly  than  <h^>. 

G-  A  comment  that  the  next  line  is  the  <h^>'s  for  the  background  material. 

H-  <h^>'s  for  the  background  material. 

I-  A  comment  that  the  next  line  is  the  c/'s  for  the  background  material. 

J-  <r/'s  for  the  background  material. 

K- 

L- 

M- 

N-  Lines  K,  L,  M,  and  N  are  the  same  as  lines  G,  H,  I,  and  J,  for  the  target  material. 

O-  A  comment  that  the  next  line(s)  list  the  wavelengths, 

P-  and  those  wavelengths  used. 

Q-  A  oMnment  that  the  next  line(s)  list  the  incident  angles, 

R-  and  those  incident  angles  used. 
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The  second  section  of  the  data  output  hie  is  program  DETECT's  output  of  the  Mueller 
matrices.  These  data  are  generated  in  a  nested  loop  where  Oq  varies  more  rapidly  than  X.  In 
this  section,  there  are  three  lines  of  data  for  each  pair  of  Mueller  matrices  read  in.  In  addi¬ 
tion,  every  time  the  wavelength  is  incremented,  a  line  'WAVELENGTH  string'  is  written  with 
wavelength  value  as  the  string  in  nm .  The  format  of  this  section  is  as  follows: 

A2-  Wavelength  is  written  here  each  time  it  changes. 

B2-  The  subscripts  of  all  non-zero  components  of  y  Equation  (39)  are  listed  in  decreasing 
order  of  the  magnitude  of  the  component.  As  an  example,  suppose  ys  >  yi  >  and 
yr  ■  Va  *  y6  “  0-  y  described  above,  this  line  woidd  read  514. 

C2-  This  line  is  the  same  as  B2,  except  it  is  associated  with  x  of  Equation  (37). 

D2-  Values;  \x  I,  »y  I,  j,  (Xj)^,  i,  and  (y,)m„ 
where; 

I X  I  is  calculated  from  Equation  (37), 
ly  I  is  calculated  from  Equation  (39), 
is  the  largest  component  of  x, 
and  (yJmia  is  the  largest  component  of  y. 

The  third  section  in  the  data  output  file  is  repeated  once  for  each  combination  of  <h^> 
and  a/  read  in.  This  section  gives  the  user  a  general  idea  where  to  rind  the  most  interesting 
information  in  the  second  section.  There  are  four  lines  of  data  in  this  section. 

A3-  Values  Oq,  X,  (xt)m,„  k. 

(xt)mu  is  the  largest  value  any  component  of  x  assumed  over  all  combinations  of  the 
incident  angles  and  wavelengths  examined. 

6o  and  X  are  the  incident  angle  and  wavelength  at  which  (x^)^,  occurred. 

B3-  Values  Oq,  X,  (yJn^,,  k. 

Same  as  A3  except  for  y . 

C3-  Values  Oq/  X,  I  x  I 

8o  and  X  are  the  angle  of  incidence  and  wavelength  values  for  which  I  x  I  was  maximum 
over  all  combinations  of  the  incident  angles  and  wavelengths  examined. 

D3-  Values  Oq,  X,  I  y  I 

Same  as  C3  except  for  y . 

The  fourth  and  Bnal  section  of  this  file  lists  iirformation  regarding  the  indices  of  refrac¬ 
tion  for  the  background  and  target  materials.  The  purpose  of  ^is  section  is  to  identify  the 
correlation  between  resonant  wavelengths  and  interesting  behavior  in  each  material's  Mueller 
matrices.  Four  subsections  are  ordered  as  follows: 

A4-  Wavelengths  and  values  for  local  maxima  of  k  for  the  base  (background)  material. 

B4-  Wavelengths  and  values  for  local  minima  of  K  for  the  base  material. 

C4-  Wavelengths  and  values  for  local  maxima  of  k  for  the  target  material. 

D4-  Wavelengths  and  values  for  local  minima  of  k  for  the  target  material. 

AVI.1.2  Instructions  for  running  the  program. 


-422- 


Appendix  VI 


The  steps  required  to  run  DETECT  are  now  presented.  DETECT  can  be  executed  after 
input  file  'FILENAMES'  has  been  properly  edited  and  all  of  the  other  input  hies  are  loaded. 
Execution  time  is  short,  thus  there  is  no  need  to  run  DETECT  in  the  batch  mode.  Typing 
"detect-run"  after  the  UNICOS  prompt  "bob>"  will  compile,  link,  and  execute  the  program 
accessing  data  stored  in  'FILENAMES.'  The  executable  code  is  stored  in  "detect.xqt."  To  run 
die  progTcun  again  during  the  same  login  after  changing  'FILENAMES,'  simply  type 
"detect.xqt."  Do  this  rather  than  typing  "detect.run"  to  avoid  recompilation  and  linking. 
Before  logging  off,  remove  'detect.xqt,'  for  it  is  a  very  large  file.  The  object  file  'detect.o'  was 
%  removed  by  'detect.run'  immediately  following  linkage. 


I 
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AVI. 1.3  DETECT  SOURCE  CODE. 


1  C  TMt  iwerk  wu  4ont  for  Ih*  CU>EC  on  the  AbtrdMn  Proving  Grounds 

2  C  Edftwood  Aim. 

3  C  Htto  woA  WM  docK  by  S.  Msrk  Haugfaind  under  oontrmct  DAAD0SS9FD427. 

4  C 

5  C  Tilt  purpott  ct  iMt  pcogitm  it  to  aid  Iht  user  in  locating  oombinaliont 
4  C  of  htckaCBMtr  angle  and  tttvtltngtfi  of  optimal  uac  tai  diacrioUnadng 

7  C  bttioetn  a  btdtground  (hate)  aurface  and  die  auiiMt  with 
t  CanopdcillylMdiltytrofconliaiinaniontopof  it<targttalateHal)• 

9  C  Tilt  term  optictRy  thick  rotiricta  die 

10  C  MutAtr  natrte  ahmenia  which  a«a  of  any  uae  to  thoaa  dial  aro 

11  C  laiytr  toi  oiagfiltuda  for  tha  contaminani  than  for  dw  background. 

12  C 

13  C  UklVCT  funettom  b\  tha  following  ownnar 

14  Cl.  Open  the  flla  FILENAMES  and  road  the  following  input  vaiiablea  In: 

15  C  M1NM- tha  name  of  ftETHO  output  die  for  tha  background  matanal 

14  C  M2NM>  tha  nama  of  RETHO  output  Ale  for  the  target  matariai 

17  C  OUTNM*  tha  nama  of  tha  Ale  thla  program  wrttea  reauHa  to. 

14  C  COMNM>  tha  nama  of  tha  Ala  diia  program  wriiaa  commentary 

19  C  output  to 

30  C  SAS&1K>  tha  nama  of  tha  Ate  containing  dw  background  materfora 

31  C  bidax  of  roffactfon  aa  a  function  of  vravelength 

22  C  TARCNK-  the  name  of  tha  Ala  containing  the  target  matariara 

23  C  bidai  of  rofractlon  aa  a  hmetton  of  vravelangth 

34  C  0COR-  code  number  that  aalecta  tha  autooorrebtion  function 

2S  C  to  uae  in  oonatnicting  the  MualWr  malrioef  for  the 

34  C  background  material 

27  C  rreOA-  coda  number  that  aatccta  the  autocorrelation  function 
30  C  to  uae  In  oonatructing  the  Mueller  matricea  for  die 

29  C  target  material 

30  C  NOU4-  code  number  to  determine  whether  DETECT  will  proceea 

31  C  Mueller  matricea  or  Mueller  matricea  nonnailaad  lo 

33  C  P11. 

33  C  2.  Open  and  raad  2  output  Alea  from  RCTKO.  Theae  Alea  contain 

34  C  biformalfon  neaded  lo  conacrucl  a  aet  of  MueAer  matrloea 

39  C  for  the  target  and  die  background  materiala. 

34  C  a)aldtar  norwahaa  toPlI  or  conatruct  unnormaliaad  MuePar 

37  C  aaatrtoaa  uaing  the  autocorrelation  functlona  ra^ueatad 

30  C  by  KOft  aiM  TTCOK. 

39  C  3.  Write  a  heading  block  to  dw  data  output  Ala  (urdi  9) 

40  C  4.  Compute  data  diacuaaed  bi  the  DETECT  uaa<a  manual- 

41  C  S.  Wide  data  to  unN  9. 

42  C  4.  Open  tha  Alea  oontainlrtg  the  litdaa  of  rahuctlon  aa  a 

43  C  hmctlen  of  waralangth  for  dw  baaa  owtarlal  and  And 

44  C  aR  locil  waarluw  and  minima  of  k  In  dwi  Ala.  Write 

45  C  dwaa  wihwa  and  dw  corroapoitding  wivalengtha  to  unH  9. 

44  C  7.  Open  ttw  Afoa  eontolnlng  dw  bidn  of  rafroetton  aa  a 

47  C  hmrtton  of  waealartgdi  for  dw  target  malarial  and  And 

40  C  aR  focal  mirtma  and  aiMaw  of  k  bi  that  Ala.  Write 
49  C  dwaarahaea  and  dw  carroapanrllng  warafongdw  to  unit  9. 

90  C 

91  FKOCIUMDCTGCT 
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*■ 


52  UAL  HMSQLTnSLHMSQLB(1I).WLENBa00),WLENT(10a),ANCL<(100) 

»  UAL  ANCLTn00LSICSLBO5).SICSLT(15Lra(«.100.l0O) 

54  UALPr(».IOO,l(IO).m»),nn(«),QB(3),QfrOLD<l^).KATUX^«) 

55  UAL  ANiaU4<40LAMCMAX(40),WLNMIN(40),WLNMX90) 

56  UALWLNMN<KILANCLMN(S0).ANClMX(50),n4AX(5O),PMIN(SOLAU(6) 

57  MTECU  IBCOILnCOILNOitMJ4HMSQe.NSICSBJXWLENB.NANCB,NHMSOT 

5B  MTECEKNSICSTjgWLENT>IANCT.NMIN,NMAX,ICICA(6) 

59  CHARACTEKM5  IN1NM,IN2NM,(XrTNM,COMNM.BASENK.TARCNK.nMAME 

60  CHARACTtK*13  BASEMAT.TARCMAT 

61  C 

62  C  TM*  Mock  i«ad*  In  taipuit  Bom  FILENAMES  nnd  open*  tB  o(  Ihtm  txctpl 

63  C  Bw  Bln  oMiuMng  th*  indlon  ol  fttmcMon  toe  ihc  and 

64  C  bndIgiDiind  oumflala  whldi  art  opanad  in  lha  lubroudna  SOitlNK. 

65  C 

66  OrEN(UNTr-7,nLE-‘PILENAMES') 

67  ■EAO(7/(An>N1NM 

M  orEN<UNrr-io,nu-iNiNM) 

69  UAO(7/(A)')iN2NM 

7Q  OrQ4<UNrr-11,nLE-INlNM) 

71  UAD(7/(A)')OinNM 

72  orEN<uNrr-9,nLE-oinNM) 

73  BEAOT/CAnCOMNM 

74  OrEN<UNrr-S,niE-COMNM) 

75  ltEAD(7,'(AnaASENK 

76  REAO(7.'(A)7TAItCNK 

77  C 

7B  CTNiblcidifaadalnaiMTOlva(lablta<ioinunH7whlcKda«innlna 
79  C  aiMch  amncawalalion  fmclion  to  UH  tor  tha  bata  malatltl  and  wMch 

10  C  aotootnalalton  funclton  to  uaa  Ibr  tha  itrgtt  mticria).  IBCOR  datonninaa 

51  C  adilch  tutoontr  funclton  to  uaa  tor  lha  bata.  IBCOR-1,2,3  tor  Caiiatian,N'5 

53  C  .and  N~6  rtapadlvtlp.  ITCOR  ptrtorma  lha  taoia  hinchon  at  IBCOR  axotpl  tor 
B3  C  lha  Itrfal  maltflal.  Tliari  ai«  loo  opitoni  tor  normalixlnf  tha  Muallar  mahti 

54  C  altmanto.  NORM-0  na  nomialiaaiton  it  uttd,  NORM-1  an  Mutllar  matrix  alamanlt 

55  Cart  nemaHaad  toPII. 

•6  C 

S7  REA0(7.’)IBC0R 

IS  READ(7,*)rrcOR 

m  UADr.')NOItM 

90  C 

91  CTMa  btodb  rtarit  Bra  htadbif  btodi  hum  ufMi  lOand  11.  UmH  lOand  II  art 

92  C  lha  milpul  horn  Iwd  tapartit  runt  of  RETRO.  UnM  10  eamaliv  lha  dalt  on 

92  Cthabaaamalatlalandunllll  eanlalnalhadtlaonlhalarialiMltrlal. 

93  C 

94  READ00.’<AnBASEMAT 

95  READ(11.'(AnrARCMAT 

96  READOO.10a0)NHheQBJ4SIC5a^NWUNBJ4ANCB 

97  UADO1,10a0)NHMS<7r.NSICSTjmLENT,NANCT 

95  1000K)RMATt4l10.4) 

99  READOai010KHMSQLB(IILIL-ljmMSQQ 

100  REAI>(10.1010KSKSU(ILLIL-1.NSICSB| 

Ml  REAO(iai(niQ(WUNB(llJblL-1JBmENB) 

KB  REAO00.10iaKANCIJ(ILLIL-1J4ANCB) 

MS  nUOni.WlOXmiSQL'nilXlL-I.NHhlSQI) 

104  «BAI)ni,Hn0)(SICSlT(llLIL-1J4SICS1) 
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105  «EAD01,^0^0)(WU^rT(^.),IL-1.NWLENT) 

106  «EAD(ll,1010XANCl.T(n.),n.-I,NANCrO 

107  1010  POItMAT(5EU.4> 

lot  C 

lot  C  Thii  block  cHccko  W  Ihc  wivolengtha  and  the  anglee  of  icKfdence  for  the 

110  C  bate  and  the  tar^  materiala  are  the  aamc.  If  the  waveiengtha  and  the  anglea 

111  C  are  not  the  aaote  lor  bo«h  acta  of  data,  the  prograoi  atopa  aial  writer  an  error 

112  C  meaaage  to  urtft  t. 

113  C 

114  V(NANCBJ4EJ4ANCnCOTO490 

115  BKNWfNTJ^EJIWUNt^COTOttO 

116  DO  77  a*l,NWl£NB 

117  D-WLENB(IL>-WLENT(n.) 

lit  IF<ABS(D).CE..001)CO  TO  490 

119  77  CONTINUE 

120  D0  7ta.-1.NANCB 

121  D-ANCtB(IL).ANCLT(n.) 

122  ll>(AaS(D).CE..00l)COTO990 

123  7t  CONTINUE 

124  C 

125  C  Thta  aactlon  pula  a  heading  In  the  output  Ok  ao  that  the  uaer  can  index 

126  C  dte  dak. 

127  C 

lit  WBnE(9.4000)8ASEMAT 

129  9000  tOKMATCBASE  MATERIAL',  A13) 

130  VnirrE(9,9001)TARCMAT 

131  9001  ROIlMATrTARCfT  MATERIAL',  A13) 

132  IP<NORM.EQ.1)T«EN 

133  WRITE(9,40I0) 

134  9010  RORMATfALL  MATRIX  ELEMENTS  ANALYZED  ARE  NORMALIZED  TO  ini') 

135  ELSE  IRfNORM.EQ.OITHEN 

136  IVRnE(9,90II)IBCOR 

137  WIRORMATTCODE  FOR  AUTX>CORR.  FUNCTION  FOR  THE  BACKGROUND 

13B  *  MATERIAL',IS) 

139  WRrrE(9,9011)ITCOR 

140  9012  FORMATfCODE  FOR  AITTOCORR  FUNCTION  FOR  THE  TARGET 

141  •  MATERfAL'.B) 

142  ELSE 

143  WRnE<t4222) 

144  B222  FORMATTILLECAL  NORM-) 

145  GOT0992 

146  ENDB 

147  WRnE(9,1000)NHMS<3B,NSIGSB,NWLENBJ0ANGB 

14t  WRTTE(9,»y<h~2>farlhebaaeinaierkr 

149  WRnE(9,1010)(Hk«SQU(IL).IL-1,NHMSQB) 

150  WRTTE(9,*Ta>aan  aRtaaft  alopaa  for  the  baae  maleriar 

151  WRnE<9,1010X5IGSLB(a),Il-1,NSlCSB) 

152  WRnE<9,*)'<h-2>  for  the  krget  malerkr 

l»  WRnE(9.l010)(HMSQLT(ILLIL-1,NHMSQB) 

154  WRITE(9,*)‘oacan  aguaro  alopaa  6>r  the  krget  meaeriar 

155  WRnE(9,1010)(SICn.'F(llLn--IJ4SIGSB) 

156  WRITE(9,*)*i»a»elangiha  taaod* 

157  WlinE(9,1O10KWlENa|a)ilL-lJ0WLENB) 

ISB  WRnE(9,’rtncidtMai«laa' 
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1M  Wltnr9<1010KANCIJB(IL).IL-I.NANCB) 

1*0  c 

Ml  C  TM(  btodi  md*  In  the  aclual  dan  needed  lo  osnelnicl  the  Mueller  melrlce* 

162  C  tor  both  die  taeee  erul  teiset  meleritle.  Eedi  melriii  eleneiu  le  MMcd  tor 
162  C  ei^le  end  iwmveWngdi  mponeee.  Tlie  mean  equare  lieifHt  and  alope  are  lield 

164  C  oenetani  tor  all  leala.  The  meaning  of  die  autaacrl|Na  tor  die  arraya 

165  C  n(K,D.M)  and  Pr(K,D,U)  are  aa  tollowt:  K  la  die  matrix  elemeni 

166  C  <K-l->P1l,K-2->P12,  K-3->P22,  K-4->P33,  K-5->F34,  K-6->1>44. 

167  C  D  ratotta  to  dw  wavelei«di  and  U  relaica  to  the  IncidenI  ai^. 

166  C  The  dam  la  nad  In  tor  each  mean  aquare  height  and  alope  aa  a  (iiiKlton  of 

169  C  ai^  and  uiavelength.  The  laata  are  performed  on  die  data  6>r  each  wavelength 

170  Candai^le. 

171  C 

172  DO90I1-1>IHMSQB 

173  0091  B-IXSieSa 

174  'nSIMX'Q- 

175  DIFFMX'O. 

176  KADMXH). 

177  D092  0-1.NWLEN6 

17g  WRnE(9.9l00)WLENB(O) 

179  9100l>OBMATrWAVELENCrrH',E12.4) 

160  D093M-I^ANCB 

161  2aaOPORMAT(6E12.4) 

162  IEAD(IO<2000XQa(n.).IL-l4) 

163  ltEAI>00.2000)(F8l(n.),n.-1,6) 

164  t£AD01.2(MOXQfr(n.),n.-U) 

165  IIEADOI.20aaxm(IL),IL-1.6) 

166  C 

167  C  TMa  acedon  oompulee  and  nomialliea  the  Mueller  matrix  elemenia 
166  C  and  doea  aome  analyaea. 

189  C 

190  D094K-I4 

191  IP(NCNIM.EQ.0)THEN 

192  ra(K.D.i4)-QB(mcoRrni(ic) 

193  Fr<K,o,i4)-Qfr(rTco«rm<K) 

194  ELSE 

195  F8(K.O.|4)-FBI(KyFBI(1) 

196  ni(K,D,l4)-Fn(KyPT10) 

197  ENDV 
196  C 

199  C  Carahil  *ridi  putting  a  aero  In  die  denomlnetor.  Should  one  of  die 

100  C  omtihi  elamawla  be  aetu,  aeaign  a  value  of  aero  to  the  term  Out  It 

101  C  belof^  In  and  proceed  aa  uaual.  Alao,  act  all  lernia  which  have 

102  C  PB>Pr  equal  to  aero  baeauae  the  laiget  la  aeaumed  optically  thick. 

203  C 

104  ■KAlS(Pr(K.O,l4)).CT.AB5<ra(K.D,M)))THEN 

108  DIPP(K)-PT(K.aH)n(K.O,l4) 

106  »(™(K.0,M).NEU)..ANO.Fr(K.D.I4).NE.O.)THEN 

107  l1AT-SO«T(ABS(rr(IC.D,Mr™<'C.D,l4))) 

100  «ATU)C<IC)-DIFP(ICV*AT 

109  ELSE 

210  tATUXXKH). 

211  END* 

212  ELSE 
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113  DinK>9*0. 

IM  KAnOCOChO. 

213  CNDIP 

21*  C  W>Tre(S^1)ABS<FB(K,D,H)).AB5<PT(K,D,U)).DIFF(IC) 

212  C  ■KD.EQJ4Wl£NB.Ahn>.HXQJ4ANCB)WRITC(tJ001)OIFP(K).ILAUOC(K) 

21*  aooi  FORMATpEIX*) 

219  9«  CONTINUE 

220  C 

221  CTMtMockaacumtnapcraliomtlialartdofwonlheinbi.  •lemcna 

222  C  hoUtiif  the  angle  and  mvcWngOi  eonttaiu.  Thia  type  of  leal  ahould 

223  C  glw  one  an  Idea  which  wavdengih  and  angle  of  inc'daiKe  to  uae,  and 

12*  C  which  Mueller  nalrto  alemenla  are  of  nual  uae. 

223  C 

22*  CAU  AKfTXELE(llAnoC.AItll.KKA,NOP) 

227  WltnEp,9019)(KKA(MMXMM-1jgOF) 

22*  C  WlinE(S,9019)KKA 

229  C  WRrrE(g,g777]itATU)C 

230  CALL  AMTXELE(DfFP.AIULiaCA,NOF) 

231  WRnE(9,90l9XKKA(MM).MM-t,NOP) 

232  S777FOItMAT(6E11.4) 

233  C  WlinE(*,9019)KICA 

234  C  WlinE<34777)I>IFF 

233  *014PORMAT(tO) 

23*  CAU  TlSTAT(DIFP,RA'TLOC.LMAX.DIFFMAX,RADMAX.LIIMAX,llADIUS,ltLOC) 

237  WUTE(9,9022)RADIUS,RLOC,LMAX.DIFFMAX,UtMAX,RAOMAX 

23*  9022  l>0«MAT(3Etl.4.no.4,El2.4,no.4.EI2.4) 

**  ^  •'nda  the  maximuni  difitrtnc*  between  any  two  matilx  elementt 

140  C  and  aavea  Ihe  wavelength  and  incideni  angle  at  which  the  maaimum  difference 
2*1  C  occurred.  The  matrix  element  aubacripi  la  alao  raved. 

2*2  ■F<AB5<DIFFMAX).CT.AB5<Din>MX))THEN 

2*3  OIFFMX-Dli>FMAX 

244  IMX-LMAX 

143  t3MX-0 

24*  I4MX-H 

2*7  ENDV 

**•  C  ThI*  H  bioefc  Unde  the  ierfeat  lerm  In  Ihe  eney  RETAOC  that  occurred. 

^44  C  the  waveicngih,  Incideni  angle,  and  eubaertpt  arc  alao  raved. 

ISO  V(AaS<IIADMAX).CT.Aa5<llADMX))THEN 

231  RADMX-RAOMAX 

2S2  UMX-IJIMAX 

233  miMX-O 

234  URMX-I* 

133  ENDIP 

^^144  *4  SloA  Unde  the  Incident  angle  and  wavelength  at  vfhich  dw  Euclidean 

^  c  dManoe  ie  at  a  maximum  between  the  eel  of  dale  for  the  largel  malerfol  and 

23*  C  the  baae  material. 

23*  V(ltADIlK.CT.T25TMX)niEN 

liO  TSTMX-IIADIUS 

2*1  mOMX-O 

1*1  MUDMX-H 

1*3  ENDIP 

1**  CTTile  block  Rnda  the  lncldeniai«li  and  wevdenglh  at  which 
1(3  C  BLOC  took  on  IM  maximum  vehae. 

m  El|IIUX:.CT.IILOCMXrrHEN 
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367  RLOCMX-BLOC 
3M  DSLMX-D 

369  UUMX-U 

370  ENDV 

37t  93CON11NUE 

373  93  CONTINUE 

373  WRnt(9,91(n)ANCUHMMX).WUNB(DMX}.Dim«X,LMX 

374  VmiE(9,9101)ANCU(HIU4X),Wt£NB<OltMX),IUDI^ 

375  WKnEp,9101)ANCU(l4U>MX).Wl£NB(I3ltDMX).T3STMX 

376  Wiin^,9l01)ANCU(l4IUMX).Wt£NB(DMMX).IUjOCI.OC 

377  9101  PORMAT(3E13.4,n0.4) 

370  91  CONTINUE 

379  90CONTTNUE 

200  C 

301  C  TMt  McHeo  Rnd*  *0  loal  ouxiiiM  tiid  tnlnimt  in  the  ImaoiMT  P*>1  of 

202  C  tndex  of  fefmctlon  of  both  metertole  being  compered.  The  purpoee  for  Ihie 

203  C  <0  to  IdenUfjr  neeoneni  wivelengthe  and  to  inveeligale  the  rrlalfonehip 

204  C  between  the  Index  of  refraction  and  the  depertdencc  of  the  Mueller  matrix 

305  C  on  araveWngth. 

206  C 

207  9NAME-0ASENK 

300  CALL  SOKINK(PN  AME.NMIN  JfMAX.WLNMX.WLNMlN.  ANKM1N,  ANKM  AX) 

209  1ininE(9,91l0) 

390  9110  POSMATntfavelenotha  and  vahiea  of  maxima  in  k  for  the  baee 

391  *matoriar) 

292  DO170n-1,NMAX 

293  WIUTE9.9111)WlNMX(n),ANICMAX(n) 

294  170  CONTINUE 

295  9111  POItMATaE12.4) 

296  WltnE(9.9112) 

297  91l2POKMATrWavclenothaandvaliieeofmlnimatnkfortbebaae 

290  ’matoriar) 

399  D0 171 1-1 J4MIN 

300  W0nE<9,911l)WlNMIN(n),ANKMIN(n) 

301  171  CONTINUE 

302  ENAME-TAKCNK 

303  CALLSOKTNK(FNAME,NMIN,NMAX,WLNMX,WLNMaM,ANKM1N,ANKMAX) 

304  WII1TE(9,9113) 

305  9113  OOKMATCWaxelenotha  and  vahiea  of  maxima  in  k  for  the  target 

306  •mnlcifol-) 

307  D0 173  n-1^AX 

300  172  Wllin(9.9111)WLNMX(n).ANKMAX(ll) 

309  WltfTE(9,9114) 

310  *1 19  OOKMATTWavelenglha  and  vahMa  of  minima  to  k  for  tlw  forget 

311  *mifotfor) 

313  D0173l-1Jfk4Vf 

313  1731WlinE(9.9111)WLNMIN<ll),ANKMIN<n) 

314  C0T0991 

315  990  WOnEfOJOOO) 

314  0000  KOMATTINCOWKECT  KEUT  DATA  CHECK  UNITS  10  AND  11  AND  MAKE"/ 

317  1*5URE  THAT  THE  OASE  AND  target  ARE  OEDfCCOMTAIIED  POO  THT/ 

310  2-SAME  WAVELENGTHS  AND  RfODENT  ANCLES') 

319  992CLO$E(7) 

320  CLOSBIO) 
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321  aOSBf)) 

322  CIOSEOO) 

323  CLO5E01) 

324  «9t  STOP 

325  END 

326  C 

327  C~~*SUBROUT1NEMnCELE~~~~ 

328  C 

329  C  TWi  toulinc  tortt  the  containing  the  tanna  in  the  diacrimtnalion 

330  CicMtefTlSTATinotdcroflaigcallatiiialleatThepufpoacottMala 

331  C  to  And  out  arMch  natria  aWmanIa  afo  moat  uaahil  at  a  particular 

332  C  angla  of  IncMcnca  and  amvcWnglh. 

333  C 

334  SUKOUTWE  AMTXELE(X.y,ICN) 

335  »nECEXK(6).KK(6) 

336  REAL  X(6LY(6) 

337  DATA  KKn.2J.4,S.61 

338  Y-X 

339  K-KK 

340  C  WRnE(84888)Y 

341  C  WRnE(8,8888)X 

342  8888PORMAT(6E12.4) 

3U  D0 100  M-1 J 

344  D0 100  L-1,6dd 

345  IP(AB5(Y(L))  LE-ABSOratOn-mEN 

346  T-Y(t) 

347  Y(l)-Y(lrl) 

3a  Y<L*1)-T 
3a  fT-KO) 

330  K(L)-K(L>t) 

351  K<Lt1)-rr 

352  ENOIP 

353  100CONTWUE 

354  N-0 

355  DO  101  J-U 

356  VCYm-NE^-Nfl 

357  t01CONTR4UE 

358  RETURN 

359  END 

380  C 

361  C~“SUBROOT1NET2STAT— *— 

362  C  TWa  touMna  tha  matnlMda  o(  the  aacton  (aniTt)  DOT  and  RATLOC. 

363  C  R  alao  8nda  the  hrgcal  anliy  and  (he  autaaertpt  o<  that  entry  toe 

364  C  aadi  amy. 

365  C 

3a  SURROUTWE  T2STAT(DOT.RATUX:.IMAX.DOTMAX.RADMAX, 

367  *UadAX,tADIUS,UOC) 

3a  DRtlENSION  DOT(6LRATUX:<6) 

3a  RAD-0. 

370  RADMAX-O. 

371  RADRAT-O. 

323  ORVMAX-O. 

323  D03HL-14 

324  RAD-RADtOOTTLrOOTTW 


-430- 


Appendix  VI 


375  >ADftAT-RAOItAT«ltAnOC(trKAnOC(U 

37t  *CAK<IUTUC(L)).CT.AaS<l(ADMAX))THEN 

377  lADMAX-RATlOCa) 

375  UMAX-L 

379  ENDIF 

350  P(Aa6<I)aT(L».CT.AB6(DaVMAX))'mEN 

351  nmiAX-DVFO) 

352  IMAX-L 

353  DOT 

35«  330CON1MUE 

359  IADIU5-SQirr(ltAD) 

355  ILOC-SQKT(ltADIlA'T) 

3r  c  wnriDMaoiqitAniiAX 

355  1500  POItMATriADMAr,E12.4) 

359  IIETU5N 

3M>  DID 

351  C 

m  C~*~SU5500nNES05TNie-~" 

353  C 

3*5  C  nui  lOuHiw  opm  Ih*  n*  eanl*iiiifi(  Ow  whiM  ol  Ih*  index  ol  nfmclieii 
315  Cm*  Aincllon  o(  wvxlxwgiK.  nw«  Iht  knaginify  put  ol  th<  Mix  ind  Ihi 
3*5  C  —oiliinlli  ItMt  eofiMpondi  la  5  in  md  In  ind  Mond  In  iimjn.  Hn  ml 
3*7  C  put  of  tfn  Mix  Ii  not  Mx«d.  Tin  ml  of  tin  itnilini  utti  Ihiough  On 
315  C  imp  aoMiMnf  thi  Imglmty  pul  ol  On  Mix  and  Andi  i5  mxlm  and 
3*9  C  oiMm.  V  than  la  an  Inuml  om  wtilcli  than  an  local  ixinm  and 

400  C  aawml  polnai  ahan  On  oxtnim  vahia.  than  Ihi  pra^in  wOl  tnlii  Mn 

401  C  iMinm  valiu  al  Hn  Iwo  uidpolnla  at  Ihi  Inliml,  and  5  la  loipMcWy 

401  C  iMinlood  that  k  la  oannani  ovir  that  Mirval.  Alao  On  t  m  and  laai 

402  C  yikiaa  In  On  Mi  oonnlnlng  On  Max  of  ninctlon  aa  a  function  of 

403  C  tnaalangtli  la  counnd  aa  a  onxlnnifn  oa  minimum  dapandinf  on  winlinf 

404  C  k  la  Incmalog  or  dacmalnf  ai  Hnw  poInM- 

405  C 

40*  SU05OUT*fESOinNK(PNA5fEJ9Mm.NMAX.WlNMX.WLNMM,ANKMIN,ANKMAX) 
407  CHAKACmno  5NAME 

405  5EALWLNMM<40kWlN5D((40kANKMIN(40),AN(MAX(40k>nM(300U<IK(SOO) 

409  *nBCEKf4MM,NI4AX 

410  onN<uNrr-i2,ra£-i9iAMC) 

411  IEAD(1X*lNm 

412  00  300M-13fm 

413  IEADnX*)WUf(M),ANK.NK(kl) 

414  C  WIOTte.l*55)WU4(M)>ANII.NK<M) 

415  l***K)ltMATpE12.4) 

41*  300CONTWUE 

417  NMW-0 

415  NMAX-0 

419  D|NK0>-CTJ0K(2)|nHDI 

420  NMAX-NMAXtl 

421  WLNMX(NMAX>-1Wt3^) 

422  ANniAX(N»5AX>-NK(l) 

413  sue 

414  NkON-NkONM 

435  WLN»a«0<IM»l)-1«lNO) 

41*  AN5MM<NMM)-NK<1) 

417  DOT 
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42S  M-2 

41f  WDO30l|-M,Nm-1 

430  V(NK0)CTJ4K(|-l).ANDm(D.CTmatl))THEN 

431  NMAX-NMAXtl 

432  WLNMX(NMAX)-WLN(D 

433  ANKMAX(NMAX)-NKO) 

434  E15E  B’OOKOl.LTmo-II.ANDXKO)  LTjglCattHTHEN 

435  NMlN-NMINtI 

436  WLNMIN<NMIN)-WLNO) 

437  ANIMIN<KMIN)-NICa> 

435  C 

430  C  CiivM  about  dnwln|  a  falaa  oonehuion  If  two  nelghbocfnf  cntrlet  In 

440  C  Die  data  fDa  aic  aqual. 

441  C 

442  ElSEIP(N1C()).CTj4KO-1).ANDj4ICa).EQ.NKait))'IHEN 

443  NMAX-NMAX41 

444  WLNMX(NMAX)-WLNa) 

445  ANKMAX(NMAX)-NKa) 

444  B-l 

447  MM-1 

4tt  DO302MMM-l4l^PIV1 

440  ldM-MM«1 

450  V(NK(MMM).CTJ4K0dMM»l))Tm 

451  NMAX-NMAX»1 

452  WU04X(NMAX)-WIN(MMM) 

453  ANKMAX(NMAX)-NIC(MMM) 

454  COTO303 

455  ENDa> 

456  V(NK(MMM).LTJ4K(MMMt1))NMAX>NMAX-l 

457  V(NK(MMM).LT.NK(MMM«l))CO  TO  303 

455  302  CONTWUE 

4S»  EISE  V(NKa).LTj4K0-1).ANO24K0).EQ.NKa«l))TOEN 

460  NMM-NMm*1 

461  WIMMV4<NMM)-WIM0) 

462  ANIMm<NMM)-NICO) 

443  D-I 

464  MM-1 

465  00305  MMM-|«1J4m-l 

466  MM-MM*I 

467  *^NK(MMM).LTJ4K(klMM-»1))THCN 

465  NM1N-NMW»1 

45*  WINMM(NM»I)-WIN<MMM) 

470  ANKMM<NM»Q-NIC<MMM) 

471  COTO303 

472  CNCNP 

473  M|NKOtlMM).Cr>IKfMMM*IBNMM-NMM'l 

474  *9JK(blMM).CT>IK(MM>lt1BCOTO303 

475  305  CXINIWUC 

474  iXOV 

477  301  CONTWUE 

475  *04K(Nm).CTJ4IC<Nm-1)Iin«N 

47*  NMAX-NMAXM 

m  WlMMX»IMAX)-WU504m) 

401  AM(MAX94MAX>-NK04m) 
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m  EUE 
m  nmm-nmm«i 
4M  WlMMM<NM»l)-WlM<NnS) 
m  ANKMM<NMW)-NK(NrTS) 

m  mom 

m  COTO304 
«■  30SM-0«MM 

m  COTOM 
m  SMCLOSEOl) 

«n  REnnN 

4(2  CND 
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AVI.1.4  SAMPLE  CALCULATIONS:  P ARAMS  AND  FILENAMES  INPUTS,  DATA  OUTPUT 
FILES. 


AVI. 1.4.1  This  is  the  "params"  file  for  the  composite  (soil)  surface. 

1  TestClc.c 

2  TestClcd 

3  composite 

4  -1  0.  0. 

5  .3 

6  -1  0.  0. 

7  .5 

8  71  9.0  .05 

9  22  0.  4. 

10  0 

11  compos.nk 

12  .000001  .00001 

13  .0001  .0051 


AVI.1.4.2  This  is  the  “params"  file  for  the  SF96-contaminated  surface. 


1  TestSlc.c 

2  TestSlcd 

3  8f96 

4  -1  0.  0. 

5  .3 

6  -1  0.  0. 

7  .5 

8  71  9.0  .05 

9  22  0.  4. 

10  0 

11  sf96.nk 

12  .000001  .00001 

13  .0001  .005 


AVI. 1.4. 3  This  is  an  example  of  a  correctly  edited  Xfersion  of  FILENAMES. 

TestClc.d 

TestSla.d  T 

testdetect.out 
cooundetect.out 
compos.nk 
sf96.nk 
1 
1 
0 
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AVI.2  DECIDE2 


AVI. 2.1  Running  DECIDE!. 

This  section  contains  a  general  outline  of  program  DECIDE2.  Input  and  output  files  are 
presented  on  a  line-by-line  basis.  Irutructions  for  running  the  program  and  its  access  to  sam¬ 
ple  input  and  output  files  are  given  at  the  end  of  this  section. 


AVI. 2.1.1  Functional  outline  of  DECIDE!. 

Program  DECIDE2  functions  in  the  following  manner. 

1.  Read  the  input  variables. 

a)  Quit  and  write  a  message  to  unit  8  if  there  is  a  conflict. 

2.  Write  a  heading  block  to  the  output  file  (unit  9). 

3.  Open  and  read  files  containing  the  indices  of  refraction  for  the  target  and  background 
materials. 

a)  Compute  the  relative  permittivity  e^  ■  (n-ik)^  for  each  material  as  a  function  of 
wavelength. 

b)  Locate  and  save  all  resonant  wavelengths  of  the  target  material. 

c)  Locate  and  save  all  resonant  wavelengths  of  the  background  material. 

d)  Locate  and  save  all  wavelengths  corresponding  to  local  maxima  on  the  function 
k*  -  k*,  where  k*  and  it*  are  the  imagirury  parts  of  the  indices  of  refraction  for  fire 
target  and  background  materials,  respectively. 

4.  Locate  initial  wavelengths  and  examine. 

a)  The  first  two  are  the  primary  resonant  wavelengths  for  each  material. 

b)  The  third  wavelength  corresponds  to  (k'  -  k*  )^.  If  this  wavelength  is  equal  to 
either  of  the  first  two,  the  program  uses  that  wavelength  that  corresponds  to  the 
second  largest  value  for  a  local  maximum  on  k'  -k*. 

5.  For  both  materials,  compute  the  Mueller  matrices  as  functions  of  incident  angle  for 
given  wavelength  selections  in  (4).  The  following  procedure  is  executed  each  time  a  pair 
of  Mueller  matrices  is  computed. 

a)  Interpolate  to  find  e,  for  each  material  (do  this  only  once  per  wavelength). 

b)  Calculate  Equations  (37)  and  (39). 

c)  Arrange  the  terms  in  Equations  (37)  and  (39)  in  decreasing  order  of  magnitude. 

d)  Write  to  urut  9: 

1)  die  subscripts  of  all  non-zero  terms  in  Equation  (39); 

2)  the  subscripts  of  all  non-zero  terms  in  Equation  (37); 

3)  Equation  (39),  largest  term  in  Equation  (39),  and  die  subscript  of  diat  tenn; 

4)  and  Equation  (37),  largest  term  in  Equation  (37),  and  the  subscript  of  that 
term. 

e)  A  check  diat  the  user  specified  limit  on  the  number  of  Mueller  matrices  die  pro¬ 
gram  is  allowed  to  compute  has  not  been  exceeded. 

f)  A  dieck  whedier  the  values  of  Equations  (37)  or  (39)  have  increased  over  their  pre¬ 
vious  maximum  value. 
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6.  Examine  the  Mueller  elements  at  adjacent  wavelengths  and  angles  computed  in  (5)  for 

the  largest  value  in  Equation  (37)  or  Equation  (39).  The  user  must  decide  which  Equation 
the  program  bases  its  decisions  on.  Adjacent  wavelengths  and  angles  are  all  possible 
onnbinations  of  Xq  +  i^$ttp  Oq  +  h  =  -1/0,1. 

a)  Qieck  to  make  sure  that  calculations  are  not  being  repeated.  That  is,  do  not  com¬ 
pute  data  for  the  same  angie/wavelength  pair  twice.  If  data  has  already  been  com¬ 
puted  for  the  wavelength/angle  pair  in  question,  go  on  to  the  next  pair. 

b)  Compute  e,  for  each  material  (do  this  once  per  wavelength). 

c)  Compute  the  Mueller  matrices. 

1)  If  the  maximum  number  of  Mueller  matrices  has  been  exceeded,  quit  pro¬ 
gram.  ' 

d)  Calculate  Equadotu  (37)  and  (39). 

e)  Sort  terms  in  Equations  (37)  and  (39). 

f)  Write  to  unit  (9): 

1)  the  subscripts  of  all  non-zero  terms  in  Equation  (39); 

2)  the  subscripts  of  all  non-zero  terms  in  Equation  (37); 

3)  Equation  (39),  largest  term  in  Equation  (39),  and  the  subscript  of  that  term; 

4)  and  Equation  (37),  largest  term  in  Equation  (37),  and  the  subscript  of  that 
term. 

g)  Check  if  the  values  of  Equations  (37)  and  (39)  are  improved. 

7.  If  after  completing  step  6  an  improvement  in  the  results  of  Equation's  (37)  or  (39)  are 
detected,  go  back  to  step  6.  If  not,  proceed  to  step  8. 

8.  Write: 

a)  to  unit  8  'THE  PROGRAM  STOPPED  BECAUSE  NO  IMPROVEMENT  IN  THE 
RESULTS  OF  ROUTINE  T2STAT  HAS  BEEN  DETECTED'; 

b)  and  to  unit  9  'THE  MOST  PROMISING  ANGLE  AND  WAVELENGTH  PAIR  IS' 

(the  wavelength  and  angle  are  written  next  to  the  statement). 

9.  The  Mueller  matrices,  at  this  point,  for  each  material  have  been  stored  in  arrays.  To 
organize  this  output,  its  data  is  sorted  then  written  in  a  nested  loop  where 

Xi  <  X2  < . <  X„  and  0i  <  62  < . <  ®»i.  The  sorted  Mueller  elements  are  written  to 

unit  9  in  a  nested  loop  where  6  varies  more  rapidly  than  X. 

10.  Once  an  optimrun  angle/wavelength  pair  Xq,  6q  is  found,  the  program  computes  and 
aitalyzes  121  additional  Mueller  matrices  for  the  target  and  background  materials.  These 
computations  are  made  for  every  combination  of  11  wavelengths  and  11  incident  angles. 

The  wavelengths  are  given  by  Xg  +  ;  xO.05,  j  =  -5, -4,. ..,5.  The  incident  angles  are  given  ^ 

by  Bq  ^-  /  X4,  j  “  -5, -4,... ,5.  That  is,  the  wavelength  is  incremented  11  times  in  .05  ftm 
steps  centered  about  Xq,  and  the  incident  angle  is  incremented  11  times  in  4  degree  steps 
centered  about  Oq.  The  results  of  this  part  of  the  program  are  written  to  units  10,  11, 
and  12  in  a  format  that  is  readable  by  the  plotting  package  DI5SPLAY. 

a)  Write  the  Mueller  matrices  for  the  target  material  to  unit  10. 

b)  Write  the  Mueller  matrices  for  the  background  material  to  unit  11. 

c)  Write  the  results  of  the  Mueller  matrix  elements  analyses  to  uiut  12. 

11.  Quit  the  program. 


AVI.2.2  Input  Files. 
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Program  DECiDE2  needs  three  input  files.  The  first  file,  'DATAIN2,'  is  used  in 
every  run  and  contains  all  information  needed  to  control  the  program.  The  remaining 
input  files  contain  indices  of  refraction  of  target  and  background  materials  as  functions 
of  wavelength. 


f 


AVI.2.2.1  DATAIN2. 

An  example  of  a  correctly  edited  file  is  given  at  the  end  of  this  section.  The  line- 

by-line  format  is  as  follows  (for  multiple  entries  per  line,  separate  eadi  entry  by  spaces): 

A-  filename  contaiiung  the  background  materiJ's  index  of  refraction  as  a  function  of 
wavelength  (up  to  15  characters); 

B-  fileiuune  containing  the  target  material's  index  of  refraction  as  a  function  of 
wavelength  (up  to  15  characters); 

C-  filename  for  data  output,  unit  9  (15  characters  max); 

D-  filename  for  commentary  output,  unit  8  (IS  characters  max); 

E-  a  descriptive  name  of  the  background  material  (13  characters  and  no  more); 

F-  and  a  descriptive  name  of  the  target  material  (13  characters  and  no  more). 

G-  Values  of  <h^  >  and  o/.  These  are  the  mean  square  height  in  ((xm^)  and  mean 

square  slope,  respectively,  for  the  background  material,  (real,  real) 

H-  Values  of  <h*  >  and  o/.  These  are  the  mean  square  height  in 

(ixm^)  and  the  mean  square  slope,  respectively,  for  the  target  material,  (real,  real) 

I-  The  number  of  6's,  with  ttien  0^^ .  These  values  must  be  in  degrees.  The 
program  uses  this  information  to  fill  an  array  with  all  incident  angles  used  in  the 
computations.  These  angles  are  given  by  0*  «  0mi„  +  k*0,l,...,  #o/0's  -1. 

(integer,  real,  real) 

J-  The  parameters  X^^i,  X,^,  X^^  These  values  must  be  in  p.m .  The  program  does 
not  consider  wavelengths  which  are  <  X„i„  or  >  X„^  in  any  of  its  operations, 
(real,  real,  real) 

K-  The  code  number  RCODEB.  It  determines  which  auto-correlation  function  fi\e  pro¬ 
gram  will  use  for  the  background  material,  or  to  normalize  the  Mueller  matrices  to 
/ii.  RCODEB=0  (normalize  to  /n),  RCODEB®  1  (Gaussian),  RCODEB*2  (N*8), 
RCODEB«3  (N«6).  (integer) 

L-  The  code  number,  RCODET.  It  determines  which  auto-correlation  function  frie  pro¬ 
gram  will  use  for  the  target  material,  or  to  normalize  the  Mueller  matrices  to  /jt. 
RCODET«0  (normalize  to  /n),  RCODET*  1  (Gaussian),  RCODET*2  (N*8), 
RCODET*3  (N“6).  (integer) 

M-  Values  AERRl  and  RERRl.  These  values  are  the  error  requests  for  the  IMSL  rou¬ 
tine  QDAG.  AERRl  is  the  absolute  error,  and  RERRl  is  the  relative  error.  The 
IMSL  routine  QDAG  computes  the  full  wave  quantity  Q.  (real,  real) 

N-  Values  AERR2  and  RERR2.  These  values  are  the  error  requests  for  the  IMSL  rou¬ 
tine  TWODQ.  AERR2  is  the  absolute  error,  and  RERR2  is  the  relative  error.  The 
IMSL  routine  TWODQ  computes  the  full  wave  quantity  [1].  (real,  real) 

O-  Value  NQUIT.  The  program  will  compute  no  more  than  NQUIT  Mueller  matrices, 
(integer) 

P-  Value  NCRTT.  If  NCRTT*!,  the  program  bases  its  decisions  on  Equation  (37).  If 
NCRIT-0,  the  program  bases  its  decisions  on  Equation  (39).  (integer) 
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Q-  A  file  given  on  this  line  is  open  to  unit  10.  121  Mueller  matrices  for  the  target 
material  are  written  to  this  file  in  a  format  that  is  readable  by  the  plotting  package 
DISPLAY,  (character  15) 

R-  A  file  given  on  this  line  is  open  to  unit  11.  121  Mueller  matrices  for  the  back¬ 
ground  material  are  written  to  this  file  in  a  format  that  is  readable  by  the  plotting 

package  DISPLAY,  (character  15) 

S-  A  file  given  on  this  line  is  open  to  unit  12.  The  results  this  analyses  of  121  Mueller 

matrices,  units  10  and  11,  are  written  to  this  file  in  a  format  that  is  readable  by 

DISPLAY,  (character  15). 


AVI.2.2.2  Index  of  refraction  files. 

For  each  run.  DECIDE2  reads  two  files  of  refractive  index  data.  The  names  of  these  files 
are  passed  to  lines  A  and  B  of  the  file  DATAIN2.  They  are  required  for  two  reasons:  (1)  rela¬ 
tive  permittivity  c,  «  (n-ik)^  is  computed  by  interpolation  at  every  wavelength  the  program 
computes  Mueller  matrices  (both  X  and  c,  are  passed  to  the  subroutine  RETRO);  and  (2)  the 
index  of  refraction  specifies  where  resonant  wavelengths  occur. 

The  index  of  refraction  files  have  the  following  format: 

A-  number  of  wavelengths  in  the  list  (integer); 

B-  X|,  Hi,  jfci  (real,  real,  real); 


Z-  and  (real,  real,  real), 

where  \j  <  Xy^,.  Also,  for  the  interpolation  routine  to  work,  m>6.  A  sample  file  is  shown  at 
the  end  of  this  guide. 


AVI.2.3  Output  Files. 


Program  DECIDE2  creates  five  output  files.  The  first  containing  Mueller  elements  and 
the  second  contains  commentary  remarks.  Data  written  to  the  third,  fourth,  and  fifth  files  is 
in  a  format  readable  by  the  plotting  program  DISPLAY.  The  names  for  these  files  are  the 
inputs  to  DECIDE2,  found  on  lines  C  and  D  of  'DATAIN2.' 


AVI.2.3.1  Commentary  output  file. 

This  file  resides  on  unit  8.  Its  name  is  passed  on  line  D  of  'DATAIN2.'  Unit  8  receives 
various  values  for  debugging  the  program  in  the  event  of  its  failure.  Several  write  statements 
to  unit  8  exist  in  this  program,  most  have  been  commented  out.  If  necessary,  they  may  be 
reinstated  by  removing  the  C  in  the  leftmost  column  of  the  line  the  write  statement  appears. 
During  normal  operation  DECIDE2  writes  descriptive  messages  to  unit  8  for  the  following  rea¬ 
sons. 

1.  The  input  variable  NCRTT  appearing  on  line  P  of  'DATAIN2'  is  <0  or  >2,  the  program 
writes  'ILLEGAL  NCRTT  and  then  stops. 


Appendix  VI 


► 


« 


2.  The  program  will  write  'THE  PROGRAM  STOPPED  BECAUSE  NO  IMPROVEMENT  IN 
THE  RESULTS  OF  THE  ROUTINE  T2STAT  HAS  BEEN  DEIECIEU'  once  it  had  deter¬ 
mined  the  optimum  angle/wavelength  pair.  When  this  message  is  written  to  unit  8  the 
run  has  been  successful  and  the  program  should  quit. 

3.  In  the  event  that  one  of  the  input  variables  RCODEB  or  RCODET  (lines  K  and  L  of 
'DATAIN2')  is  0  and  the  other  is  non-zero  the  program  writes  'ILLEGAL  COMBINA¬ 
TION  FOR  RCODEB  AND  RCODET'  then  quits. 

4.  If  either  RCODEB  or  RCODET  are  negative  or  greater  than  3  the  subroutine  RETRO  will 
write  'ILLEGAL  RCODE'  and  kill  the  program. 

5.  Should  the  number  of  Mueller  matrices  calculated  exceed  NQUIT  (line  O  of  DATAIN2) 
the  program  will  write  'IF  YOU  WANT  TO  COMPUTE  MORE  MUELLER  MATRICES, 
YOU  WILL  HAVE  TO  INCREASE  THE  INPUT  VARIABLE  NQUIT'  and  quits. 


AVI.2.3.2  Data  output  file. 

This  file  (unit  9)  contains  3  distinct  sections;  the  header  block,  the  analysis  of  the 
Mueller  matrices,  and  the  Mueller  matrix  elements  as  computed  by  subroutine  RETRO.  The 
format  of  the  header  block  is  as  follows: 

A-  a  description  of  the  background  and  target  materials; 

B-  <h^>,  a}  of  the  background  material; 

C-  <h^>,  <T,*  of  the  target  material; 

^  ^nd  .  The  program  does  not  initially  compute  all  wavelengths  between 

X„(„  and  X^  in  increments  of  X„^ .  It  first  selects  three  wavelengths  between  X^^  and 
Anu*-  These  wavelengths  are  those  for  which  it',  it*,  and  k*  -  it*  are  maximum  over  the 
interval  (  X„j„,X^,  1  (the  k's  are  the  imaginary  parts  of  the  index  of  refraction  for  the  t- 
target  and  ^background  materials). 

E-  A  list  of  all  incident  angles  used  by  the  program.  This  program  computes  and  analyzes 
Mueller  matrices  for  both  materials  at  each  of  these  incident  angles  for  the  first  duee 
wavelengths  it  selects.  The  program  finds  the  wavelength  Xg  and  angle  Og  that  resulted 
in  the  largest  value  for  the  discrimination  criterion  (see  line  P  of  'DATAIN2').  From 
there,  the  program  computes  data  at  angles  and  wavelengths  near  Xg  and  Og  until  it 
finds  the  optimum  angleAvavelength  pair  (Section  AVI.l). 

F-  Values  RCODEB  and  RCODET.  These  values  are  input  on  lines  K  and  L  of  'DATAIN2.' 
G-  Value  NCRTT.  This  value  is  input  on  line  P  of  'DATAIN2.' 

The  second  section  in  this  file  contains  two  similar  subsections.  Both  subsections  con¬ 
tain  data  resulting  from  the  analysis  of  Mueller  matrices.  The  difference  between  each  sub¬ 
section  is  the  way  the  program  chooses  the  wavelengths  and  incident  angles  used  in  subse¬ 
quent  analyses. 

In  d\e  first  subsection  of  this  file  data  is  written  in  a  nested  loop  where  6  varies  more  rapidly 
dian  X.  The  inner  loop  is  repeated  once  for  each  incident  angle  written  on  line  E  of  the 
header  block.  The  outer  loop  is  repeated  three  times.  First,  the  wavelength  of  primary  reso¬ 
nance  for  the  background  material  is  determined.  Second,  the  wavelength  of  primary  reso¬ 
nance  for  die  target  material  is  obtained.  Finally,  the  third  and  final  time  through  the  outer 
loop  selects  the  optimum  wavelengths  as  discussed  in  the  previous  sections.  (See  also  line  D 
ci  Ae  header  Node). 
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In  the  second  subsection  of  this  file,  the  program  looks  for  angles  and  wavelengths  near  the 
angle  and  wavelength  in  the  previous  subsection  that  produced  the  largest  value  for  Equation 
(37)  (NCRIT=1)  or  Equarion  (39)  (NCRIT=0  see  line  P  of  'DATAIN2').  If  the  program  finds  an 
angleAvavelength  pair  that  results  in  a  larger  value  for  Equation  (37)  or  (39)  it  further  searches 
angles  and  wavelengths  in  the  neighbc.hood  of  that  pair.  This  search  goes  on  until  the  pro¬ 
gram  notices  no  improvement  in  the  alue  of  Equation  (37)  or  (39). 

The  format  for  both  subs^tions  is  given  below. 

A2-  Both  incident  angle  and  the  wavelength  are  written.  This  line  reads:  >4 

'TVAVELENGTH*"X  "INCIDENT  ANGLE*  "6. 

B2-  The  subscripts  of  all  non-zero  components  of  y  Equation  (39)  are  listed  in  decreasing 
order  of  the  magrutude  of  the  component  they  represent.  As  an  example,  suppose 
Vs  >  yi  ^  y*  and  y2  =  Vs  “  y6  =  O-  For  the  y  described  above,  this  line  would  read  514. 

C2-  This  line  is  the  same  as  B2,  except  it  is  associated  with  x  Equation  (37). 
iX  \ ,  I  y  I ,  j,  (Xj  )n,j],,  i,  (y,  )mjx 
where; 

I  z  I  is  calculated  from  Equation  (37), 

I  y  I  is  calculated  from  Equation  (39), 

(^/)iiu*  is  the  largest  component  of  z, 
and  (yi)m*x  is  the  largest  component  of  y, 

E2-  This  program  tells  the  user  which  incident  angle  and  wavelength  resulted  in  the  best 
discrimination  between  the  background  and  target  materials.  The  line  reads  THE 
MOST  PROMISING  ANGLE  AND  WAVELENGTH  PAIR  IS'  X,  6. 

DECIDE2  writes  all  of  the  Mueller  elements  computed  to  the  third  data  block.  They  are  writ¬ 
ten  in  a  nested  loop  where  6  varies  more  rapidly  than  X.  Both  6  and  X  increase  monotonically 
from  their  minimum  to  their  maximum  value.  The  format  is  as  follows: 

A3-  values  X  and  0; 

B3-  values  ,i»i  ,r^  ,v\  .v'^ ,  and 
C3-  values  uj  ,p§  ,vl  ,vl ,  and  u J . 


AVI.2.3.3  Mueller  matrix  output  files. 


The  third  and  fourth  output  files  are  opened  as  units  10  and  11,  respectively.  Units  10 
and  11  are  also  used  by  the  program  as  the  index  of  refraction  files  for  both  materials.  The 
program  closes  units  10  and  11  after  indices  of  refraction  data  files  are  read  in,  and  reopens 
them  according  to  the  names  on  lines  Q  and  R  of  DATAIN2.  The  purpose  of  these  files  is  to 
make  selections  of  Mueller  elements  read  by  the  plot  program  DISPLAY.  The  third  output  file 
contains  Mueller  elements  for  the  target  material,  while  the  fourth  output  file  contains  ele¬ 
ments  for  the  background  material.  Both  files  have  121  Mueller  matrices  that  are  formatted  in 
a  way  identical  to  RETRO's  output.  The  wavelengths  and  incident  angles  used  to  compute 
these  data  are  chosen  as  described  in  Section  AVI.2.1.1. 


When  using  DISPLAY  to  plot  data  in  either  of  these  files  be  aware  that  only  one  auto¬ 
correlation  function  was  computed,  selected  by  input  variables  on  lines  K  and  L  of  DATAIN2. 
Also,  be  aware  here  that  inputs  on  lines  K  and  L  of  DATAIN2  determine  if  DECIDE2  com¬ 
putes  and  analyzes  or  . 

f  11 
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AVI.2.3.4  Analysis  output  file. 

This  output  file  contains  results  of  analyses  of  data  in  the  third  and  fourth  output  files. 
These  data  are  in  a  format  readable  by  DISPLAY.  When  DISPLAY  asks  which  matrix  element 
analysis  to  plot  enter  1  1  for  a  plot  of  Equation  (37)  relating  to  element  /n  and  enter  2  1  for  a 
plot  of  Equation  (39),  element  /21,  and  so  on. 


AVl.2.4  Instructions  for  running  DEC1DE2. 

The  steps  required  to  run  program  DECIDE2  are  presented  in  fiiis  section.  After  the 
input  file  'DATAIN2'  has  been  properly  edited  and  all  other  input  files  are  loaded,  DECIDE2 
is  ready  for  execution.  DECIDE2  may  be  run  in  either  batch  mode  or  interactively.  The 
number  of  6  (line  I  of  'DATAIN2')  and  (line  J  of  'DATAIN2')  parameters  determine  run 
time.  As  a  rule  of  thumb  run  the  program  in  the  batch  mode  if  the  number  of  6's  >  30  or  if 
^tup  -02  over  the  normal  9-12  y.m  band  of  wavelengths. 

AVI.2.4.1  Interactive  runs. 

Typing  "decide2.run"  after  the  prompt  will  compile,  link,  and  execute  the  program 
using  data  stored  in  'DATAIN2.'  Executable  code  becomes  stored  in  "decide2.xqt";  simple 
type  this  command  to  iterate  a  program  run  during  the  same  login  after  changing  'DATAIN2.' 
Before  logging  off,  remove  'dedde2.xqt'  for  it  is  a  rather  large  file.  The  object  file  'decide2.o' 
was  removed  by  'decide2.run'  immediately  following  linking. 


AVI.2.4.2  Batch  runs. 

Typing  "examp2dec"  after  the  prompt  runs  this  program  in  the  batch  mode  using  the 
data  stored  in  'DATAIN2.'  The  file  "examp2dec"  submits  the  file  "decide2.bat"  to  the  batch 
que.  For  this  reason,  the  user  must  make  sure  that  the  file  "decide2.bat"  is  in  storage  on 
More  typing  "examp2dec." 
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AVI.2.5  DECIDE!  SOURCE  CODE. 


1  C  HUt  %»oflL  WM  done  for  the  CROEC  on  the  Aberdeen  Proving  Croundc 

2  C  Edgewood  Area. 

2  C  'Ihie  work  wm  done  bf  S.  Mark  HaugUnd  under  contract  CAADOS-d^-P-Oil?. 

4  C 

5  C  TWt  purpoee  of  this  progracn  ia  to  locate  optimum  combinatfona  of 

6  C  aravelength  and  todderti  angle  for  uae  In  dtaUngulahing  behveen 

7  C  a  cowtotninatod  and  a  dry  aurface.  T>da  pcogram  aaaumea  die 

•  Ccontomdiantfonna  an  optically  thidi  layer  on  the  badtgroundauffoCK- 

9  C 

10  C  DECIDE2  coenputoa  and  analyica  Mueller  matrioea  every  time  it  ealla 

11  C  the  aubroudne  RETUO.  Iheae  data  are  uacd  to  diaUnguiah  betvreen 

12  C  the  background  <baae)  material  and  the  target  (contaminant)  material- 
12  C  Each  materiaPa  Mueller  matrix  la  a  funetkm  of  incident  angle 

14  C ,  wavelength^  mean  aquare  height,  and  mean  aquare  afope. 

15  C  DECIDE2  locatea  the  primary  reaonant  vravelength  for  each  material 

16  C  and  the  aravelength  at  which  dw  imaginary  part  of  the  index  of  refraction 

17  C  for  each  material  differ  by  the  greateat  amount.  At  each  of  theae 

10  C  araaelengtha,  OECIDEl  computet  Mueller  matricea  for  each  material  aa 

19  C  a  function  of  incident  angle.  Immediately  folloaring  computation, 

20  C  each  pair  of  Mueller  matricea  la  arulyxed  (ace  the  uaer  manual  for 

21  C  detaila).  The  program  idendfiea  the  combination  of  theae  tvavelengtha 

22  C  and  Incident  artglea  diat  reaulted  In  die  beat  diacrimination  betvreen  die 

23  C  two  aurfocea.  Next,  angic/wavelength  paira  near  the  one  that  reaulted  In  the 

24  C  beat  diacrimination  are  examined.  If  there  ia  an  increaae  in  the 

29  C  diaeriminotion  at  aome  of  theae  anglea,  the  program  remembera  the  one 

26  C  that  reaulted  In  the  greateat  increaae.  Anglea  near  that  one  are  examined 

27  C  next  thia  proceaa  ia  repeated  until  there  ia  rto  further  itteteeae  in 
29  C  diacrlmlrtallon. 

29  C 

30  C  TMa  program  uaea  aooie  IMSL  loudnea.  For  more  information  about 

31  C  die  M5L  loulinea,  aee  the  aidwoudnc  RETRO. 

32  C 

33  PROGRAM  DECIDE! 

34  REAL  ANC(1O0),ANB(SOO),Ahrr(SO0),AKlHSOO),AICr(5O0).ia3IPF(5OO) 

35  REAL  WLNB(500}.WLNT(500),HMSQ8.SICSB.HMSQT,$ICST,WLN(100,100), 

36  *ANC1,ANCINC,WIMAX.WLMIN,WISTEP,WLNMA3CT(40),WLNMZNT(40) 

37  REAL  PFr(6LPPB(6)tDIPP<6),RATLOC(6).WLNWLN(100),Fr(6,100.100) 

30  REAL  AfCMAXB(40},WLNMAXD(40).WLNMIND(40),AKMlND(40).AKMAXD(40) 

39  REAL  AKMINT(40),AVCMAXT(40),WLNMAXB(40),WLNMIN8(40),AKMINB(40) 

40  REALFB(6,100,100),ARR(6) 

41  RfTECER  RC0DEB,RC0DET,NP15B,NPT5T,NANCMX,ICKA(6> 

42  COMPLEX  ERa(SOOLERT(S0O>.ERESTr,CRE5TV,CNT(5OO),CN8(3O0) 

43  COMPLEX  NICTEST,N1CBEST 

44  CHARACTEX*15  0UTNM,C0MNM,  BACKNK,TARCNK.TARCMTX,BACKMTX,  ANALMTX 

45  CHARACTERM3  BACKMATJARCMAT 

46  COMMON/mOAVU4Bg,WLMAX 

47  C 

40  C  Road  namea  of  input  and  output  Olea  artd  open  them 
49  C 

90  OPEN(imrr-7,PILE-l>ATAOf20 

$1  READ(7/(A)0BAaCNR 
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52  OPEN<UNIT-IO,nLE-BACICNIC) 

53  HEADTAAnTARCNK 

54  orEN(UNrr-n,pa£-TAiiCNio 

55  IIEAD(7/(AnOinNM 

56  OI>EN(UNrr-9,I>IU-OUTNM) 

57  ■EAD(7/(Ar)COMNM 

56  OrEN(UNrr-6,nU-CX}MNM) 

55  C 

60  n-AIS<ATAN}«).,-1.» 

61  C 

55  CRMdmiiiMa(BMltf<al«tofa*«««nJMd.*ndliifonMlionM«dtdlD 

63  C  dMiacttflM  ttiMi. 

64  C 

65  IIEAI>(7/(AnBAaCMAT 

66  IIEAD<7.-(AnrAIICMAT 

67  ■EAD(7.')HMSQB,SICSB 

66  K£AD<7.*)HMSQfT.SICST 

66  IIEA0<7,«)NANCMX,ANC1.ANCINC 

70  «(NANCVIX.LTO)'n4EN 

71  NANCMX-^ANCMX 

72  ■EAOr.'XANCfll.J.a.-IJ^ANCMX) 

73  ELSE 

74  OO40n.-1^ANCMX 

75  40ANC<n.)-ANC1*<ll^irANCINC 

76  ENDIP 

77  EEAD(7.*)VVLMIN.WLMAX,WLSTEP 

76  WltfTE(9.6002)aAaCMAT.TARCMAT 

76  6003  K)itMAT(3A15) 

60  WI(nE(9,’)HMS<}B.SK:S6 

61  WltnE(6,*)HM5QT.SICST 

62  WltfrE(9,9000)WlMIN.WLMAX.WLS7EP 

63  6aOOPOIIMAT(3E12.4) 

64  WlinE(6.6000XANC(ILXIL-1J4ANCMX) 

65  C 

66  C  tCOOEB  «nd  KCOOET  «i»  6<t  eodt  nriahitt  Ihu  mt  tht  tuto  conwhUtin  tiWKlIon 

67  Cfer6whKkci«Hndindta>|tliMlrriaWmpK1tvcl]r.  htoalhmcdforllK 

•6  C  kfgM  and  backgraund  oialartala  to  ha*a  diffmnt  auKMnn'  fiiiwltoito.ltCODEB, 

6*  C  T-1— >CaMaalan.  -3— >N-6.  -3— >N-6.  Thare  la  an  aption  to  normaliaa 
66  CaRmai.alaiiwnlitoPII  INaw«balhacaaatfbo«iRCODEBandllCODeT-0 

60  C^lMabolbRCOOEBandECODETaqiiaHngOcauaatthapragnnitoaiialyaaFIVI'll 

61  C  lUlwr  Hton  PI). 

63  C 

63  REAIX7.’)RC00EB 

64  READ(7.>)RC0C)ET 

65  V(RCXX>EB.EQO.ANO.IlCOOET.NE.a)COT0661 

66  V(ltCODer.EQ4).AND.ItCODEB.NE.0)COTO661 

67  WinE(6,6a03)RCODEa.RCODET 

66  6003  PORMATTCODE  PO«  AUTDCOU  FUNCTIONS  AND  NORMAUZATION',  215) 

66  C 

100  ClaadlhaataareoMniliiarilialMatraitonRmilnaa.  AEMlafamEMU 

101  C  ana  tor  QOaC  and  AEMU  and  REKIU  ana  tor  TWODQ. 

HD  C 

108  ■EAD(7.*)AEiai,ltEI«1 

104  IIEAD(7,*)AEnaitEltU 
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105  c 

106  CNOTT-I ->  dtcWonafc  awde  bucdon  the 

107  C  Eudldcu  dletenae  between  the  Mueller  mctrii  for  the  tafget  end  die  Muller 
***  c  anM>  for  the  hKkgeound  nwletlel.  NCItn'-0->  decieiofM  ere  mede  beecd  on 

C  •  teet  whieh  le  Independent  of  the  eiee  verieiione  in  Muller  nulrfat  elemente 
no  C  In  the  eeoie  Mueller  metitx.  NQUIT  ie  the  auxioium  number  of  Muller  otetrkee 

111  C  you  wOl  thie  ptogiun  to  compute  in  e  eingle  run. 

112  C 

113  >£AI>(7,*)NQUTr 

114  KEADr.^X^OtlT 

115  wsrTE(»,mi)Ncur 

116  9001  POItMATrNCRrr,B) 

117  »(NCIirr.LT2».OILNClin’.CT.2)TOEN 

110  WIUnC(5J767) 

11*  0767  (ORMATriLLECAL  SCUT) 

120  STOP 

121  CNDIP 

122  C 

123  C  The  Olee  TARCMTX  end  BAOCMTX  ere  written  Mueller  metrloee  for  the 
C  terfet  end  beeh^round  meterlele.  There  metrloee  ere  written  in  e 

C  wey  OI5SPLAY  mn  plot  them.  Once  the  optimum  engle  end  travelength 
C  her  been  Identified,  the  progrem  oompulee  e  reclengle  of  Mueller  oieirioee 
127  C  centered  et  thel  poliu.  The  rectengle  conteine  e  renge  of  40  degreee  In  « 

120  C  degtec  Intervele  for  thete.  end  .5  mkrone  in  .05  mienn  inlervele  for 

120  Climbde.  There  metrloee  ere  enelyied  by  the  routine  T2STAT  end  there 

130  CreeuMeerewiltienANAlMncineformthettheycinbeplolledby 

131  CDSSPUY. 

132  C 

133  C  Open  TAKCMTX,  end  BAOCMTX  ei  unite  10  end  11  reepeclively.  Do  tWe  elter 

134  C  lOend  11  heve  beendoeedby  the  perlof  the  progrtm  thet  rcede 

135  C  the  Indloee  of  reflection  in.  Open  ANALMTXet  unit  12. 

136  READCT/fAnTAIlCMTX 

137  BEAOr/lAlTOACKMTX 

130  KEAIX7.'(AnANALMTX 

130  C 

140  C  Bred  In  the  Indee  of  reflection  for  the  beckground  irulerlel  erul  compute  the 

141  C  leleltee  petmlttl»lt|r. 

142  C 

143  lEADOO.'lNPTSB 

144  tX)  41  IL-lJ4Prsa 

145  «EAD00,*)WINB(IL).ANB(IL).AKB(1L) 

146  X-ANB(a) 

147  Y-AKBOD 

140  a4B(IL)-0.2).rx«(D.,.1.rY 

140  E«B(Il)-0..0.r(X*X-Y*YMB.,l.rAB8(2.*X»Y) 

150  C  WnTE(l,0001)WLNB(n.).CNB(ll3 

151  41 CONIMUE 

152  CU>5E(10) 

153  C 

154  C  Beed  In  the  Indee  of  reflection  for  the  lerget  metertel  end  compute  the 

155  C  releliee  permittivity. 

156  C 

157  BEAD0l,*)NPrsT 

151  D042IL-1J4PIST 
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13*  ■EADOI.')WLNT(IL)bANT(IUAICT(IL) 

1*0  X-AKT(IL) 

1*1  Y-AKTdD 

1*1  SlT(Il>-0  ,O  r(*^-1'’YHO.,1.rA«S<l.*X^ 

1*3  2121  POItMAT(3E12.4) 

1«*  CNT(ll)-0  ArXHO-.-i  rY 

1*5  C  WltnE(SJ001)WLNT{(IL),CNT(tL) 

1**  42CONTmUE 
1*7  aX3SE(11) 

1«S  C 

1*0  C  Find  Iral  amim  and  mMoia  In  Hit  abaohiM  valu*  ol  <ha  ina|lnaiy 
C  part  of  lha  Maa  of  lahacMoo  for  aach  inalarlal. 

170  C 

171  CALL  SOriNKfNMINT.  NMAXT,  WLNMAXT.  WLNMINT,  AKMINT,  AKMAXT,  NF1ST, 

172  •AKT.WLNT) 

173  CALL  SO>1NK<NMINB.NMAXB.WLNMAXB,WLNMINB.  AKMINB.AKMAXB,NmB. 

174  *AKB,WLNB) 

175  C 

17*  C  PInd  all  local  maxinw  and  imnlfna  In  lha  diffeionoe  of  k  for  lha  toipal 
177  C  OHlaflal  and  k  for  tha  hack(niund  maleflal.  Thara  la  a  technical 

17B  C  prohfom  If  lha  optical  conatania  of  aach  material  are  not  known  at  the 

175  C  aama  wavalamiha.  Thio  le  handled  by  interpolalini  the  funclkMi  dial 
1*0  C  la  known  at  fewer  wawlanflha  al  all  Mvalcn(tha  for  which  lha  other  tat 
tSI  C  of  optical  ooiwtanti  la  known. 

1*2  C 

1B3  c  wiirre<B.iNrrss 

1*4  V(MrrSB.CTJfnST)THEN 

IBS  D043t-I>ima 

IB*  WLEN-WLNB(I) 

117  P(WUN.CT,WLNT(NPr5T))CO  TO  43 

1IB  CALLE>CMP(W124T,CNT,WLEN,NKT^ 

IB*  KDVP(l)-AaS(ABdAC<NirrEST)>-AKB(l> 

150  C  P(AK<NICTEST).CT.ABS(CNB(I)))KDIPP(I)-ABS(NKTIST-CNB(I» 

151  C  WUreejB12)I.Wl£N.KDIPP(ILNICT£5T 

152  C  WKnC(MB12)I.WUNJ4ICIIST 

153  BB12  POIIh«AT(D^L4) 

154  43  CONTINUE 

155  CALL  SOItTNK<NMa>IO.  NMAXD.  WLNMAXD,  WLNMIND.  AKMIND.  AKMAXD,  NFTSB, 

15*  ICDIPP.VflNB) 

157  ELSE 

15B  D044l-1LfPTST 

155  WLEN-WLNT(I) 

200  P(WLB4.CT.WlNa<NPTSB))COT0  44 

201  CALLE>CMP(WLNB.OIB.WLEN,NKBEST) 

202  KMPP(I)-AICT(I)-ABS(AMAC<NKBEST)) 

209  C  P(AI5<NnEST).LrABS(Cm(l)))KD<PP(l)-A95<NKBEST<Trni)) 

204  C  1W1inE<B4B12)I.WlIN,nHPP(l),NKBEST 

205  4*CONnNUE 

20*  CALL  SORTNKfNMMD,  NhfAXD,  WLNMAXD,  WLNMIND,  AKMIND,  AKMAXD,  NPTST, 

207  <110*5,110017) 

20*  END* 

205  C  D0444NN-1LfMAXD 

210  C  1imiEM00*)NN,WlNMMD(NN).AKM»IO<NN) 

211  C444  00NTWUE 
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112  C  D044SNN-1,NMINT 

213  C  «mriE(S4009)WUgMINT(NN)>KMINT(NN) 

214  C44SCONnNUE 

215  C 

214  C  Sait  eonpulinf  MutOer  mcMon.  San  wiih  Mw  wavckiigtlw  th*l  conctpoml 
217  C  a  Ha  priaarjr  moianot  for  ««ch  oMfoital.  Alto  fook  4t  Ihc  wsvcicngih 

215  C  for  wMch  lii*  difference  beffiaen  Ihe  inwginery  pen  of  da  index  of  affecdon 
219  C  for  da  aifct  maarfol  and  dat  for  da  baa  maforfo!  ta  al  a  naxiinuffi. 

230  C 

211  WlNWLNOhWLNMAXSO) 

122  V(imMWU40)J4E.WLNMA)rit1))mEN 

223  WLNWlNahWLNMAXTO) 

224  ELSE 

225  WLNWLNa)-WLNMAXT(2) 

124  ENDIP 

227  IK-2 

225  D0  4Sin-1J4MAXD 

J»  I-ID 

230  P(WLNMAXDa).LT.1  .E-05)CO  TO  45 

231  P(AKMA)(DO).LT.O.)COT04S 

232  1IVn3WU40)JJE.WlNMAXD<n.AND.WLNWLN(1). 

133  •NE.WLNMAXDOUIHEN 

234  IK-3 

135  WINWLNPI-WINMAXDO) 

234  C0T044 

137  ENDIP 

235  43  CONTINUE 

239  44MWtN-0 

240  MATCNT-0 

141  T2STMX-0. 

242  RADMX-O. 

243  D0  59I-I.IK 

244  MWlN-MWLNrl 

245  WLN<I.1)-WLnWIN<I) 

144  CAU.EXCMP(WLNB,EU,WLNO.I),ERES'n) 

247  C  PRINT  l111,WLN0.1).EKESn 

245  1111  POItMATpE12.4) 

249  CAU.EKCMP(WlNT,EltT.1VLN<|.1).EIlE5TT) 

ISO  C  WUIE(5jaoi)WlN0.1).EI(ESTr,ERESTB 
251  5001  POUMATrmvdcnfdi  Index  '^12.4) 

152  D059I-1XANCMX 

253  WLNO.I)-WIN0.1) 

254  C  1W1IIIE(5,’)WIN0,I),ANC<I) 

255  WKnE(9,9549)WlNa.I).ANC<l) 

254  9549  POUMATfWAVELENCTH-  ’.EM  fo’  INCIDENT  ANCLE-  '.EMA) 

2S7  CALLItEntO(EIIESTT,HM5aT,SICST,VnN<|.l).ANC<l),AEIWI.ItEIUtl.AERR2 

255  MIEiaaRCODET.PPT,PI) 

259  CAU.RETKCXEItE5TB.HM5QB.SICS8.WLN<|.l).ANC(l).AERK1.IIEItKI,AEItlU 

liO  MIEItialtCODEB,PPB,PI) 

141  9200  PORMATTPPT  OVER  PPTAEIOA) 

142  MATCNT-MATCNT«2 

243  C 

244  C  Save  and  analyac  laauHi  foea  lalra. 

145  C 
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m  D0  7»K-U 
Mr  ntK.i,i)-m(ic) 

IM  nCONTWUE 

270  CAli.T2STAT(DVP.KATU>C,lMAX,DIFFMAX,RADMAX, 

271  ’UlMAX.IlADIUS.RLOC.nn'.PPB) 

272  CAU.  AMTXELE(RA'njOC.AIUt.KKA.NOF) 

273  Wirra(9,90»9)(iaCA(NNB)J4NB-l,NOI0 

274  CAU.  AMTXELE(DIPP,AMLICICA.NOi>) 

275  WirTE(?,«099)(KKA(NNB).NNB-t>IOP) 

27t  WKnC(9,90N)ltAI>IUS,UXX:,Ui4AX,Dnmi(AX,UtMAX,ltAI)MAX 

277  «OIOK>KMATt2El2.4.no.4,El2.4,no.4,El2.4) 

270  «0MK)IIMAT(6tl) 

279  •0I9K)IMATC2E11.4) 

210  1003  PO«MA'nW,E13.4) 

211  CAU$AVE(NCUT,T2STMX.>ADMX.l,l,l3MX.UMX.t3ltOMX,l4iU>MX, 

212  1WLSET,RAOIUS,IUOC) 

3(3  V(MA104T.CE>IQUrT)COT099) 

214  HCONTMUE 

3(5  777  VfNCirr.EQiQOSET-oaOMX 

31»  V(NCI(n'.EQ.I)OSET-DMX 

3(7  PCNatrr.EQaiMSET-MUIMX 

P(NCItrrEQ.1)l4SET-l4MX 

2^1  C  WKnE(l4121)DSET,MSET.WLN<l3SCT,USET),ANC<MSEn 
IM  1121  KMMATrQSET.USET  Jlt.2EI3.4) 

291  C  WBnt((4l22{n5TMX.(ADMX 
291  •122(0«MATr«AWUSIttOC-,3E13.4) 

241  C 

294  C  look  «  MvcWngOw  and  anflta  o<  taicidanm  doaa  to  rtnaa  hr  which 
3°5  C  Mnfi  look  owal  ptonkiky. 

-»  C 

2»T  nu-1 

391  DO  79 1-1,1 

.99  W-WLNWlM<OSET)<rWlS1Er 

'••0  P(W.LTWUil*4)W-WUiaN 

1P1  »(W.CTWLMAX)W-WLMAX 

303  CAUEIICM9(WLNB.EU.W,EIIEST() 

303  CAU.EBCMnWLrfr,Err.W.EKESTT) 

304  DOlOK-1,1 

5  V(|.EQi>.ANOXEQ.«0COTO10 

>«  lOac-KtMSET 

A  9  V(KKIC.U.O.OK.KXK.CTAIANCMX)CO  TO  10 

CAUWLAI4CSETtW.MWU4.WLNWU9.WU4.J,K.I3SET.I45ETJ4CAlC,D. 
>9  c  W1inE<l,*)NCAIjC 
3<  «|NCALC«1  J)CO  TO  40 

31-  C  WBnt(l.>T3int«-'.WlN<O.M).ANC<M) 

312  WUrE(9,9919)WLN<D.kXANC<l4} 

313  CAU.  RETTO(EaESTT,HMSQT,SICST,WLN(D.H).ANC<HkAElllll.ltEltJtl, 

314  •AEMaiEUM.tCODET.TW.W) 

315  CAU.«ETRO(EaESTl,HM5Q(3ICSB.WLN<D.H).ANC<l4),Aaui1,l(EIUt1. 

31*  *AEIt>2.IISUI2.BCODEB.EPB.n) 

317  MATOrr-MAIon'*! 

311  C 
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330  C 

321  DO  79t  KC-M 

322  rr(KC,D,H)-n>T(ICC) 

323  n(ICC.O,U)-l>n(KC) 

324  791  CONTMUE 

325  CAU.TTSTATCDlFP.ItA'njOC.LMAX.OIFFMAX.RADMAX 

324  'IJIMAX.RADiUS,KUX:,FFT.9PB) 

327  CAU.  A5m(El£(RATljOC.ABI(,KlCAjgOI0 

328  WRnE(9,9099XiaCA(NNBl,NNB-1^OP) 

329  CALL  AKnXEtJE(DIPF.AItR.KKAJ40l>) 

330  W8nC(9,9099)(KKA(NN>),NNB-1,NOP) 

331  Wnn(9.9098)RADIUS.ItLOC,LMAX,DIPPMAX,LRMAX,RAOMAX 

332  CALLSAVE(NCKir,T2STMX,RADMX.O.U,DMX,UMX<DRDMX,t4RDMX, 

333  'IWlSET.ItADIUS.RLOC) 

334  ■HrWLSET.EQ.2)iaLL-2 

335  C  WtnE(»,'rUILai*laii  MOLUMATOrT 

3M  aoCONIINUE 

337  79CON11NUE 

338  ■KKI1L.EQ.1)C0T0  994 

33»  V(MATCNT.CEJ4QUnXX)T099» 

340  C0T07T7 

341  99*  WRnE(8,YniOCKAM  STOPPED  BECAUSE  NO  IMPROVEMENT  IN  TW 

342  WUTE(8.’)TtESULTS  OP  ROUTINE  T2STAT  HAS  BEEN  DETECTED' 

343  C0T099B 

344  991  WRnE(B40QO) 

345  8000  POtMATtTLLECAL  COMBMAHON  POR  RCODEB  AND  RCODETT 

34*  GOT0 1090 

347  999  IP(MATCNT.CEJIQOrr)WRnE(8,B0B0) 

348  (OBOPORMATOPYOUWANTTOCOMPUTEMOREMATRICES  YOU  WILL  HA  VETO 

349  V/MCREASETHEmPUTVARIABUNQUIT) 

350  C 

351  C  An«n|«  Iht  Mutlltr  OMMcn  to  Owl  Owy  eiii  b*  wtOwn  to  unH  9 

352  C  In  •  HMtod  loop  In  wMcIi  ANC<M)  nOn  mon  npidly  Own  WLNWLNID). 

353  C 

354  998  WRnE(9.9013)WLN<l3SET,i4SET),ANC(HSET) 

3»  9013  PORMATOHE  MOST  PROMKINC  WAVELENCTH  AND  ANCLE  PAIR  B-,2E1L4) 

35*  D098I-I.MWIN-1 

387  D09*0-1.MWLrf| 

358  P(WLNWLN<D).CT.WLNYYLN<D<1))THEN 

399  T1-YnNWLN<D) 

3(0  WLNWLN(0)-WLNWLN<D»1) 

3*1  WLNWLPKDill-TI 

3*2  D0111 H-IJOANCMX 

3(3  T1-WLN<D.H) 

3(4  WLN<I3,M)-WLN<D*1,H) 

3(5  WLN<DPtJI)-n 

3(*  D0111K-14 

3*7  TT-FnK.O.H) 

3(8  PT|K.O.M)-PnK.D4l.H) 

3*9  PT(K.O*1.l()-TT 

3P0  n-PKK.O.M) 

371  PR(ICO.M)-PI(K.DPl^) 

372  PR(IC.07l.H)-Tl 

373  111CONTWUC 
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374  CNDP 
m  WCONTWUE 

374  c  WiM  Mutitr  McMen  ior  tach  ■Mkrltl  Id  unil  (t) 

377  l>OtUD-1.MWlN 

37t  DO  112  M-1J4ANCMX 

3/9  V(WlM<D,H).CT.I.E«SnnEN 

310  WinC(»,«99qWLNWlM<OlANC(M) 

3(1  ««nKniATI2E144) 

3t2  W«nE(»,9»»iXm(IC.D,l*),IC-1A) 

3t3  WlfTE(»,«NIXPI(IC.O,UVK-1A) 

3M  MM  KKMAT(iEt2.4) 

3M  END* 

3H  mCONT»iUE 

312  C  riDliniiliM  ami  —wlaiifltiD  Dud  II  inglti  thtl  Hit  progtDin  compultD 
3M  C  Md  DMljnM  MimEdt  MMon  far.  TImm  oMirfaM  and  tha  muka  el 
3W  C  dia  analjrafa  •••  wiklaB  fa  unMa  10, 11,  and  12. 

3M  CAU.SETHEmi<ANCWlNWLN,OSET,USET) 

3*1  OrEN<UNIT-ia,mjE-TAIlCMTX) 

3«  OKN<UNrr-11,m£-IACICMTX) 

3*3  OreNdJNfT-unLE-ANAtMno 

3M  C  Wika  haadfag  htotfca  fa  unka  10.  II,  and  12  ao  DISSPLAY can  laad  tfia 

3M  C  data  eonfalnad  In  dioaa  Olaa- 

3M  WUre00.'(A)7TAtCMAT 

397  1«ltnE(ll.‘(Ar)IACKMAT 

3M  WtnEni‘(Ar)BAaCMAT 

3M  NH-I 

400  NS-I 

401  NANC-11 

402  NWUN-11 

403  WltnE00.1000)NH>fi,NWLEN.NANC 

4M  WRnC(11,1000)NH.NS,NWLEN,NANC 

400  Wlincoi1000)NHJ«XWLEN,NANC 

400  1000  00011^1910.4) 

407  WOrTEOO,IOOIJHMSaT 

400  WOnC(l0.1001)5IC5T 

40»  W0m00.l001XWLNWlM<O).O-l,1t) 

410  «mrrcoo,iooiXANC<U)bH-i.ii) 

411  WOrre(l1,1001)HMSQO 

412  woin(ii.iooi)5icsa 

413  WOfn(11,ia01)(WLNWU4<D),D-1.l1) 

414  WOm(11.100IXANC(M).fa-l,lt) 

410  WOnC(12,1001)HMSQO 

414  wiino(iiiaoi)sic5a 

417  W0rre(12.1001XWlMWLN<D).O-l,l1) 

410  WRfTE<12,1001XANC<H).M-1.ll) 

41«  1001  OOOMA1]|SE12.4) 

430  C  CoaifMfa  and  analyaa  lha  nalifaaa. 

421  00113  0-1,11 

422  W-WLNWLN<0) 

413  CAUatCMr(WlNXEn,W.E>ESn) 

434  CAllEK3«nWU4T,EltT.W,EIIESTT) 

420  DO  113  H- 1,11 

420  CAUOET1tO(CIBTr,HMSQT,SICST.W,ANC(H).Aaai.RSai, 

427  •Aoiianiuo.icooET.prr.n) 
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421  CALL  KEnO(EltE5TB,HMSQB,SX:SB,W.ANC(H),AEIUt1,RE]lRI, 

4»  »An«J.«liMa.RCODEB,PF»,W) 

430  CAU'nSTAT(DII>F,ltATIjOC.LMAX,DIPFMAX,RAt>MAX. 

431  nJtMAX.llADIU5.UjOC.PPT.FPB) 

432  Q1-1. 

433  Q2-1. 

434  Q3-1. 

435  WUTE00.1002)Q1.(AO) 

435  WinE0L1002)QI.Q2.Q3 

43T  WltnC03.I002)Q1.Q2,Q3 

430  WIIITEOO,1002)(PPT(l)bl-1.5) 

43»  WUTEOI.1002XPPI(I).I-I.5) 

440  WUT5(I^1002)IIADIUS.IUjOC.DIPPMAX.RADMAX.DIPP0).KA'ILOC(1> 

441  1002POItMAT(5E12.4) 

442  113CONTMUE 

443  CLi05E(7) 

444  CLOSEd) 

445  CLOSEm 

445  CLOSEOO) 

447  CLOSE01) 

4M  CLOSE02) 

44*  lOnSTOP 

450  END 

451  C 

452  C . .  EKCMP"" . 

453  C 

454  C  THBSUOROUTBME  COMPUTES  THE  VALUE  EKPOK  USE  IN  EmO. 

***  c  Sliw  iMt  imiMrw  tnlffpolaiM  complti  hinctlorai.  H  It  tbo  uttd 
435  C  Id  inttrpoltit  aw  indn  9>  rtinctlon.  Hilt  touHnc  It  t  huKtton  In  iht 
457  C  at%lntl  vtftlon  t>  RtUo  tnd  wit  ukan  at  thtt  prafnm  tnd  madifltd  for  mt 

434  C  litfi.  Tlw  trfumtM  Htt  It  tt  foltowt: 

43*  C  WLN-  An  tmjr  contilning  the  wtvtienftht  tl  which  the  Indn  at 

450  C  rthictluti  It  known.  Thit  Informtiion  wit  md  In  hotn  unit 

451  C  10  or  II. 

452  C  EE-  IMt  It  t  etnyln  tnijr  eonttlnlns  the  nlallie  pcrmWivlilet 

453  C  at  t  fonctlon  at  wauilinflh.  AH  wieilengiht  trt  In  mlciwit. 

454  C  WIEN-Tlie  wtv«ltn|lh  In  mlcnant  for  which  the  rclttlve  pennIttlYlly  to 

455  C  dtttoid. 

455  C  EEEST-The  i«ltll*i  pennittirtty  nlwncd  to  the  nwln  pfognm. 

457  C 

454  SUOEOUTViE  EECMPpVN.EE.WlEN.EEES'O 

444  MTECEE  NPIS.DEC.LI.Mm.MAX.DOEC.DNm 

470  EEALWN(300) 

471  BEALWLEN.WNP.PACTOE.U 

472  COMPLEX  EE(S00LEEE$T 

473  C 

474  C  4th  emitflt  wivtientih  In  mlnont  to  wave  number  In  Ijicin.  COMMENT 

C  OUT  AND  WOEK  WITH  THE  WaVEIENCTH  EATHEE  THAN  THE  WAVENUMOEEmw 

475  C  WNP-IOOOOTWLEN 

477  WNP-WLEN 

474  OCC-3 

47*  l-(DeCr1)/2 

440  C  WBfmuOin^VLEN 

441  *(WN(l>.CT.««NP)THEN 
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4C2  MM-I 

m  MAX-MM^DEC 

4M  C0TO211 

05  END* 

416  300  V(WN<l).CT.WNr)  GOTO  210 

07  M4t 

4M  P(I.EQJ<inSKI>ECM)/2)TynN 

4W  MAX-NnS 

m  MW-NFISOEC 

4*1  GOTO  211 

«R  ENtNP 

4*2  COIO200 

4*4  C 

4(5  2IOMIN-H>ECa-1 
4M  MAX-kONtOEC 

4*7  211  PACrOK  -  1. 

4M  C  WUIEd.’yMIN.MAX  '.MIN.MAX 

4**  C 

500  *002  PO«MAT(E12.4) 

501  DO220I'MM,MAX 

502  P(WNPJ4E.WNa)X:OTO220 

503  ElEST-ERd) 

504  RETUEN 

505  220PACTCMt-PACTOIP(WNP-WN<n) 

504  C 

507  EIIEST-(0.A) 

50*  DO  230 1-MIN.MAX 

so*  U-PACT0I1«WNP-WN(I)) 

510  OO240|-M»l,MAX 

511  240  V(l-NE.|HJ-U04N(l>-WNa)) 

512  230  EUST-EnSTfEROrU 

513  RE1URN 

514  END 

515  C . . 

51*  C . SURROOTNE  RETRO . . 

517  C 

51*  C  THB  WORK  WAS  ALTERED  BY  S.M.  HAUCLAND  ON  *-23-»*. 

51*  C  THE  REV6IONS  TO  RETRO  ALLOW  rr  TO  IE  CALLED  BY  ANOTHER  PROGRAM 

520  C  AS  A  SUBROOTWE 

521  C 

522  c  TMi  woffc  WM  donr  Ibc  Ri*  CRDEC  on  Rw  Abordcon  Provlnf  Croundo 

523  cEdaowed  Aim. 

524  c  ThR  omk  wm  dono  bjr  Cmi*  M.  Horalnatf  ■ndn’  coMnrI  *MQ4S0. 

525  c 

52*  c  TMi  pratno)  ■•••  *<•  MLoom  Thoofy  ior  campuHna  Rw  •coMfRi* 

527  cof*  RtMWMM  Rooio  rondondy 
52*  c 

52*  cTMo*rafnnl*lgTSa4CLEicia>r*am«nBOTROnCra«^Mf4Kc. 

530  c  Hih  poB''**'  R  4w  BACKSCATTER  only. 

531  c  TMo  Rfogiui  lo  hr  DIPPUSE  miCTln*  oiRy. 

SS2  c 

sn  tSInRh  oaWii  lOTBMRioioRoiMdiodloRonwrMk  Rio  loot* 

55*  c  Mrfhat  only  on*  Rmo  ond  Rnt  awIRpli  ■awtilin  It  nmiiiiiinliil  itr. 

518  c  An  MraRk  Hrike*  It  ttntIRitid  to  biMRinl  lo  rattHon  tnd  Mntittlon 
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53* 

537 

531 

S3> 

540 

5*1 

542 

543 

544 

545 
54* 
547 
5a 
5M 
5» 
SSI 
553 
553 
55* 
555 
55* 
557 
55* 
55* 
SM 
5*1 
5*2 
5*3 
5*4 
5M 
SM 
5*7 
SM 
5(* 

570 

571 

572 

573 

574 

575 
57* 
577 
575 
57* 


c  III  Item  el  Hie  eetfe^e  eeelledng. 
c  tertreemer  topHu  Hie  ie«*ver  and  deleclef  tie  el  Hie  leme  poiiil, 
e  wMi  Hie  eeme  ertenHiHoii.  el  e  poini  br  from  Hie  euriMe. 
c  Only  dHhiee  ecHlertm  H  eekulaled  beceuw  Hie  coheiont  epeciUer  lenn 
c  wMdi  oocun  el  noraiel  inddence  for  taeckeceiter  H  diopped. 
e 

c  TMe  peegieai  eekulelee  Hie  $  generetty  no«MMn>  Moeller  Moc  eWmeiHt. 
c  P11*I2*21  ^39^*43*  end  44,  for  iMe  with  Hie  etanderd  Siokce  Vector 
c  noleHon.  01  Hieee  dgM  two  pefre  ei*  degtnetetc,  F12-P21  end  PM—W. 
c  The  elernemi  eee  eelculeted  on  e  per  aoUd  angle  beala  eo  that  Hie  akuleted 
c MuelerMbi  la ebaohHely  eonocl  to  wMiln a  aceler oMiatanL  The  aceler 
e  oonatenl  le  baaed  upon  Hie  alec  of  Hie  aoHd  angle  Intercepted  by  the 
c  detector  for  a  paiHciilar  OKperloienlal  aetiip-  For  Hiia  urork  to  be  valid 
c  Hie  detector  owal  leek  at  range  of  letumed  anglea  doae  enough  to 
c  pure  beckacitter  that  Hw  harkeffitteied  return  la  a  good  approiitnation 
c  of  Hie  entire  lellecied  range-  Alao,  Hie  aoHd  angle  Intercepted  by  Hie 
c  detector  oniat  be  InvarlaiU  to  Incideni  angle  and  wavcWngHi. 
c 

c  The  program  Ural  cakulatei  Hie  acattertng  mix.  $,  for  uae  wHh  the 
c  eiodlfled  Stokea  Vector  notation,  and  ihia  ia  then  iranaformcd  into  Hie 


The  aWmenta  of  S  can  be  ivritlen  aa  a  produci  of  two  valuea,  Q,  and 
a  M  abpe  averaging  Integral.  Thia  la  aHowed  by  Hie  FulWwave 
Theory  ONLY  becauee  Hopea  and  heighta  are  conaidered  uncorrelated. 
Q  la  a  frtncHen  of  inetdent  angle,  aurface  heighl  auto<Dnelalion 
frmcHorc  and  free  apaec  radlaHon  aravelenfth.  The  alope  integral 
la  huicHon  of  Inetdent  angle,  mean  aquared  abpe,  and  wavelength 
through  Hie  aurfacea  rebtfve  dielectric  conatant. 

For  Hie  aeeuaied  laotropic  aurface.  Q,  normolly  a  T'd  integral  oan 
be  If  an  men  In  pobr  ooordinetea  and  tranaforoicd  into  a  I'd  integral. 
Q,  la  oomputed  by  eubroulfne  QCMF  for  3  different  apectral  deneity/ 
aurface  height  euto<owaletlen  fruictlone.  The  Inpula  for  the  eutoKorr. 
hmcHpru  are  mean  aquared  height  end  mean  aquared  elope.  The  3 
Ametfone  are  Cauaaleiv  N*l,  end  N~4. 

The  abpe  averaging  bHegrala  aeoount  for  all  poaeibb  combinatbni  of 
aiopBi  In  Hie  X  end  a  direcHone.  Conaldertng  varbue  pobriaationa  and 
phaae  rebHonohlpt.  14  unique  frUegrab  are  poailbb  to  compbb  S. 
lul  •  Intogtab  ->  0  becauw  Hie  integrand  b  odd. 

3  oHiera  converge  to  1  vehic,  end  enoHier  ->  0  beceuee  the  integrand 
b  propOfHonel  to  Hit  imoginory  pert  of  e  reel  number. 

Thb  bavee  5  urHque  2<d  kitegrab  performed  by  n^routinc  ICX>CMF. 


Ml 


ctep  to  form  Hie  MueHer  mm  ebmenb*  Fq. 


at3 

m 


The  loHowtng  veriton  10JI IMSL  roulfnee  era  raquired; 

QDAa  TWOOa  KKO.  KKI,  and  EFFC. 

Theee  era  avalbbb  from  MSl«  cuetomer  rebHone.  ebiHi  froor, 

NtC  HulMIr^  7900  MBlrv  boulevard,  Hmmton.  Texae  77036-9009,  USA. 
Tebpltorw  (713)772-7027  Tebx:  70-1923  BdSL  MC  HOU 
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m  c 

S*'  *  nnil  •  I*  MM  mMm  Ioc  dtteiggbig  th*  pngnm  *iid  dtMfmMng 

JW  c  vrtitft  aonttMng  my  haw  gofi*  wrong.  It  Mfids  valun  (or  monhorlt^  Hw 
TO  c  IMigralion  roiKinn.  Moot  wtAm  to  unit  g  hove  been  oommrnlcd  out,  but 
9M  c  an  btraintloltdriteuldtht  program  Iwvrnin  time  praWciiw. 

TO  e 
TO  C 

S»7  SUmOUTINE  RETXO(EltE$T,  HHMSQ,  SSICS,  WWLEN,  ANC,  AERXI,  KERRI,  AERR2 

TO  *,  Raua,  RCODE,  VR.  ?PI) 

TO  REALn 

MO  1  HMSaCLEN,WLEN,Cl£NSaSICS.K0,K0SQ,C5THT,SNnTT,THETA, 

Ml  J  BX>0*),F06).W«b).QP), 

M2  4  AEItR1,RERRl.AERR2.RERX2 

Ml  C  Don't  UM  SV1DO  hoaua  u  •  aUM  routinr  REno  doa  not  ramombor 

M4  C  wliol  tlw  tut  at  o(  ponmottm  Input  to  It  were.  Tlw  moln  program 
MS  CdoMIhta. 

TO  C  REALSVn)D<10a.U) 

M7  C 

MS  COMPLEX  ER,ERE5T 

M*  C 

•10  M1CCEX  ILDCODE.RCODE.IFLACI 

•II  COMMObUONEMMSQ.ClEN.CUNSaWLEN.THETA.SNlHT.CSTHr.SICS.KO.PI 

•12  C 
•U  C 

•14  C  THE  DESIRED  PARAMETERS  ARE  USED  TO  COMPUTE  THE  MUELLER 

•IS  C  MATRIX  ELEMENTS  RYPIRSTCALCULATINC  A  SCAUNC  1-0 INTECRAL  a 

«U  C  AND  THEN  CALCULATINC  U  2-0  INTEGRALS,  IDOl.  lDDti,  THAT  ARE  COMBINED  IN  THE 

•17  C  CORRECT  MANNER  TC  GIVE  THE  IrfUELLER  MATRIX  ELEMENTS  FOR  THE 
•IS  C  STANDARD  STOKES  VECTOR  NOTATION. 

•I*  C  M  REAUnr  FOR  THB  WORK  ONLY  5  2-0 INTEGRAIS  NEED  BE  CALCULATED  BUT 
•20  C  THE  PROGRAM  B  SET  UP  CENERAUY. 

•Tl  C  Tilt  com  It  Hon  Itngth  an  bt  alcuitttd  when  hmtq  end  tigt  ora  fbitd 

•22  HMSQ-HHMSQ 

•23  WtEN-WWLEN 

•24  PI-PH 

•23  SSCS-SSKS 

•2^  CLENSQ-4.rHMS05IC$ 

•27  ClEN-SQRT(a£NSQ) 

•2S  C  PR»n'*,HM5Q,SICS,WLEN.ANC.RCODE.PI 
•2*  C 

•30  C  IOLO-0 
•31  IC0-2>PVWLEN 

•32  KOSQ-RIPKO 

•33  C  wr«t<R*)TW*<hra  ditliclitc  oonmtnt  ‘,ER 

•34  C 

•SB  C  Tlwti  It  Bw  angit  bttWMii  Rw  InttdtM  diractlon  tiM  dw  meowl  to  R» 

•3*  C  rahrana  pkiw  In  radita 
•37  THETA-PPANCnSILO 

•3S  CSTHT-COSOTHETA) 

•3»  SNim-SMOHETA) 

•M  C 

•41  C  wiRTOTAngliTOs)  WItn  ManSqSlopt  MMnSi|H|r 
•U  C  wflto<R*)ANC,WLEN,$SCS.HMSQ 

•43  C 
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«u  c 

«4S  c  nos  SECTION  COMPUTES  THE  SCALAR  Q  VALUES  Poll  3  Ainx>COitR  FUNCTIONS 
MS  C  KCODE-I  ->  GAUSSIAN  RCODE-2  ->  N-«  RCODE-3  ->  N-*  RCODE-0-> 

M7  C  YOU  ARE  NORMAUZINC  TO  P11  AND  DO  NOT  NEED  A  Q  VALUE  BECAUSE  Q  E  THE 
MB  C  SAME  FOR  ALL  MATRIX  elements. 

MB  C  V  ALL  Q  VALUES  ARE  TREATED  AS  0  THEN  IFLACI-0  AND  THE  IDDS  DO  NOT 
M9  C  NEED  TO  BE  CALCULATED. 

tao  VLAC1-0 

651  RHRCOOE>IE.(qCAUOCMT(Q<RCODE),AERR1.RERRI.RCODE) 

652  V(RCODE.EQ.O)Q(RCODE)-t. 

653  P(Q(RCODE).CT.0.)IFLACI-1 

654  C 

655  C 

656  C  THE  SECTION  COMPUTES  THE  16  IDO  VALUES  NEEDED  FOR  THE  MUELLER  MTX. 

657  C  NOTE  ONLY  5  DISTINCT  INTECRATTONS  ARE  DONE.  THE  OTHERS  ARE  KNOWN  FOR 
65a  C  OTHER  REASONS  ASSIGNED  TO  THE  FOLLOWINCCONDniONAL  ASSIGNMENTS. 

65*  C  IF  IFLAGI-1  THEN  THERE  BA  REASON  TO  CALCULATE  THESE  VALUES 

660  C  IP  ErB  HELD  constant  OVER  A  Range  OF  WAVELENGTHS  THEN  IDDS  ONLY 
Ml  C  NEED  TO  BE  CALCULATED  ONCE  PUR  EACH  INCIDENT  ANCLE. 

663  C 

663  C  Stl  DCODE  «quttl  lo  atfo  to  at  not  lo  uac  SVIDD 

6M  DCODE-0 

665  KXD-O 

6M  C 

M7  V(IFLACI  .CT3).)  THEN 

66*  C  P(DC0DE.NE.1.0R.I0LD.NE.1)  THEN 

66*  DO  40  0.-1, 16 

670  IP<ILEQ.1 .0R.IUEQ.2.0R.n.EQ.4.0R.ILEQ.5.0R.n.EQ.6)THEN 

671  CAa  IDDCMF(ID0(IL).AERR2.RERR2.ILEREST1 

672  ELSEIF(O.Egj.OR.ILEQ7)THEN 

673  IDD(IL)-IDD(2) 

674  ELSE  IP(ILEQ.*)  THEN 

675  IIX>(IL3-0. 

676  ELSE  V(n.CE4)  THEN 

677  IDD<IL)-0. 

67B  ENIXF 

67*  *0  CONTINUE 

610  C  If  Er  It  eonattM  Ihtn  ttt*  IDCTt  lor  ntti  wavdcngih 
6B1  C  IF(DCOOE.EQ.1)  THEN 

M2  C  DO  *3  0.-1.16 

4*3  C  SVIDD<H,0.)-0>O(IL) 

6M  C  *3  CONTINUE 
4*5  C  ENDIF 

4*6  C  ELSE 

4*7  C  If  Er  la  mnttant  and  III*  IDD't  hav*  b**n  aav«d  uat  ihtni 

***  C  00*2  0.-1,16 

m  C  K)D(0)-$VIDD(lt,0) 

m  C  *2  CONTMUE 

4*1  C  END* 

m  END* 

an  c 

4M  C 

MS  c  THE  SECTION  VnrUZXD  THE  DO  values  TO  COMPUTE  THE  MUELLER  MTX 
M*  C  ELEMENTS  DIVIDED  BY  Q 
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► 

I 


( 


*97  C  PO)-ini/Q,  P(2)-P12/Q, ..  P(5)-P21/a  F(16)-PU«3 

MS  CMANYOFTHESEFVALUES  ARE  ZEKO  BUT  THEY  ARE  CALCUIATCD  HERE  POK 
SW  C  COMPLETENESS.  THEIR  CALCULATION  TIME  E  minute  compared  TO  THE  ACTUAL 

700  C  ■NTECRATTONS. 

701  P0)--r(IDD0)*lDD<2)+IDD(3)*IDD(«)) 

m  P(l)-.5*<roD(\)tIDOOHDOO>IDD(*» 

703  F0)-IDD<9) 

70«  P<4)-n>D00) 

705  P(5)-.P<IDD(1HI>D<2)+IDD0HDD<4)) 

70S  P<6)-.5’(II>[>0Hni>(ZHDOa)>IDO(4)) 

707  P(7)-IDD(13) 

TOt  P0)-IDOO4) 

70»  P(»)-2.*IDD(ll) 

710  P00)-2.*IDO<1S) 

711  P(11)-ID0<5)*>DD<7) 

711  P02>-iDO<6)«IDO<8) 

713  P03)-2.*IDD<13) 

714  P04)-2.*IDD<16) 

715  P05)-IDO<6rlDD<8) 

716  P(14)-IDD<5>4DD(7) 

717  C 

71S  C  Tlw  MulWr  inAlfix  cWiiicnts  are  computed  in  thia  acction.  Only  the  6 

719  C  Independent  matrix  eleoienla  are  paaaed  Ic  the  main  prDgram.a 

720 

721  C  «nrlM(S.2001)Q<RCODE) 

722  C  «*r*e(S,2001)PO),P(2).P(4),P(11),P(12).P<14) 

723  IP(RCODE.EO.O)THEN 

724  PP(1)-1 

725  PP0)-P(2yPCI) 

726  PP(3)-P(6VP0) 

727  PP(4)-P01VPO) 

72S  PP(S)-P02yP(1) 

729  PP(6)-P06yP(1) 

730  ELSE 

731  PP0)-P0rQ(*COOE) 

732  PP<2)-P<2PQ(RC00E) 

733  PPp)-P(4rQ(RCODE) 

734  PP(4)-P(1irQ(RCODE) 

735  PP(3)-P{12rQ<I1CODE) 

736  PP(6)-P06rQ(BCODE) 

737  ENDIF 

739  2001  FORM  AT(6E1 2.4) 

739  C 

740  RETURN 

741  END 

742  C 

743  C 

744  C 

745  C  THE  SUBROUTINE  DRIVES  QDAC  TOCOMPUTEQ 

746  SUBROUTINE  QCMP(Q,AERR,RERR.RCODE) 

747  REALVX,VY,VXZ.VYSOH.UPLIM.QFRIME.SETARC.ARC,ARC1. 

749  1  UPUMD.UPLIMI.SETUPR 

749  REAL  HMSQ,CLEN,CLENSaWLEN,THETA,SNTHT.CSTHT,SICS,ICO,PI 

7»  REALCCNTT 
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751  INTECER  RCODE 

752  EXTERNAL  ARC 

753  COMMON/ONE/HMSQ,CLEN,CLENSaWLEN,THETA,SNTHT,CSTHT,SK:S.KO,n 

754  CPOR  EACH  VALUE  OF  THETA  COMPUTE  COMPONENTS  OP  VECTOR  V. 

755  C  THEN  COMBOOEWnHITTE  MEAN  SQUARE  HEIGHT  and  SAVE  IN  ARC 

756  C  WRnE(5,*)'SNTm,CSTHr,SNTHT,CSTHT 

757  VX-2*K£rSNTHT 

758  C  VZ-0. 

759  VY-2WCSTHT 

760  VXZ-ABS<VX) 

761  VYSQH-VY*VVHMSQ 

762  SETARC-ARC1(VXZ.VYSQH) 

763  UFLIMD-SETUPR(RCODE) 

764  SETARC-CCNTT(0.) 

765  C  COMPUTE  THE  UPPERUMIT  ON  THE  INTECRAT10N  BY  assuming  THE  INTEGRAND 

766  C  DIES  AWAY  WTIHIN  UPUMD  CORRELATION  LENGTHS. 

767  inUM-UPUMD^XEN 

768  UPlMI-UPUMnoO. 

769  too  CONTINUE 

770  C  COMPUTE  THE  DOUBLE  INTEGRAL  WHERE  ONE  HALF ->  3PI 

771  C  THE  CAN  BE  DONE  BY  SWrrCHINC  TO  POLAR  COORDINATES 

772  C  IF  NO  INTERCRAND  E  POUND  THEN  REDUCE  INTEGRATION  LIMITS  TO  FIND  IT 

773  CALL  QDAC<ARC,O..UPLIM,AERR  ,RERR.1,QPRIME.ERRE5T) 

T74  QPRIME-QPRIME>2>PI 

775  IP(QPRIME.H.I.»a8.AND.UPUM.CT.UPUMl)THEN 

776  UPlJM-UPLIKro.7 

777  GOT0 100 

778  ENDIF 

779  C 

780  C  IP  QPRIME  >  0.  THEN  COMPUTE  THE  TOTAL  Q 

781  C  IF  QPRIME  SnU  EQUALS  ZERO  THEN  INDICATE  BY -998 

7B2  C  IF  QPRIME  WAS  LESS  THAN  ZERO  INDICATE  BY  499. 

7B3  IF  (QPRIME.CTD.)THEN 

784  Q-(KPnVFirQFRIME 

785  ELSE  IF<QPRIMEEQ.0.|THEN 

786  Q-9iB. 

787  ELSE  IF(QPRfME.LT.0.)THEN 

788  Q-999. 

789  ENDIF 

790  C  WRnE(8,VQ-',Q,'  ACCESSED-.CCNTIIO.) 

791  RETURN 

792  END 

793  C 

7*4  C 

795  C 

796  C  THE  FUNCTION  COMPUTES  THE  INTEGRAND  OF  Q  FOR  DCADRE. 

7*7  C  THE  FUNCTION  HAS  3  ENTRY  POINTS 

798  CK)0  COMPUTES  BESSEL  FimCTTON  I  SU8  0 

799  FUNCTION  ARC(RO) 

800  REAL  BS)0,RRSURF,CHn,CHEQ,!SUB0,RD.VXZ.VYSQH 

801  real  COUNT.DUMMY 

802  KITECER  RCODE.DRCODE 

80  SAVE 

804  COUNT-COUNT*'.. 
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•05  |SUB0-B5)0(VXZ>ltO) 

•06  CHn-EXP((ltllStni]>(RD)-l.)'VYSQH) 
mr  A>C-|5UBD'(CHn-CHI5QrM> 

MM  C  AKC-I. 
t0»  lEIUltN 

•10  C 
•II  C 

•II  CniE  SECOND  ENTOYFOIKn' SAVES  SOME  CONSTANTS  FOR  A  GIVEN  INm:RAnON 
•IJ  C  THESE  VALUES  ARE  ONLY  FUNCTIONS  OP  THE  SURFACE  PARAMETERS  NOT  OPED 

•14  entry  ARC1(DVXZ,DVYSQH) 

•15  VXZ-DVXZ 

•16  VYSQH-DVYSQH 

•17  CHBQ-EXP(-VYSQH) 

•M  ARC1-1.0 

•19  RETURN 

•10  C 
•21  C 

•22  CTHB  ENTRY  RETURNS  THE  NUMBER  OP  ACCESSES  SINCE  LAST  INQUIRY 
•23  entry  CCNTIIDUMMY) 

•24  CCNT1-COUNT 

•25  COUNT-DUMMY 

•26  REItntN 

•27  end 

tat  c 

•29  C 

•30  CTHEPUNCnONCALCULATESTHE  AUTOCORRELATION  FUNCTION  USED  TO 

•31  C  MODEL  THE  RANDOMLY  ROUGH  SURFACE 

«M  CBSKI  COMPUTES  THE  BESSa  FUNCTION  K  SUB  I 

•33  CBSKO  COMPUTES  THE  BESSa  FUNCTION  K  SUB  0 

•34  FUNCTION  RltSURF(RO) 

•35  REAL  RD,R.RSQ,R4TH,R6TH,XAPFA6,KAPPA5.B5KI,B5K0,TERM1,TERM2 

•36  REALHMSQ,CtEN,aENS<J,WlEN.THETA,SNTHT.CSTHT,SICS,KO.n 

•37  vnEGER  RCODE.DRCODE 

KM  COMMC)NAONE«M5Q,CLEN,a£NSQ,WLEN.THErA.SNTHT,CSTHT,SIGS,KO,Ff 

•39  IF(RD.EQ.0.)  THEN 

•40  RRSURF-1. 

•41  RETURN 

•42  ENDIP 

•43  ■HRCOOE.EQ.I)  THEN 

•44  IW5URF-EXIT-IU>>IUVCLENSQ) 

•45  RETURN 

•46  ELSE  BKRCODE.EQ.2)  THEN 

•47  R-RDMCAPPA* 

•4*  RSQ-R*R 

•49  lUTH-RSQ'RSQ 

•6b  R61H-RSQMUTH 

•51  TERM1-(1.-3.’RSQ«.*3.*R4THD3.tR6THO072.FR'55KI(R) 

•52  TERM2-(RSQa.-R4THM.-R6TH/96r>SK0(R) 

•53  RRSURF-TERMItTERMI 

•54  RETURN 

•55  ELSE  V(RCODE.EQ3)  THEN 

•56  R'RDTAPPA6 

•57  ISQ-RHI 

•55  R4TH-RSQHISQ 
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m  TERMI-0.-3.’RSQM.-it4'nM6.r>t'BSK1(R) 

tto  ratti2-(Rsoa.o*iu7Hn6.r»sico(«) 

Ml  UlSUItF-TEKMIt'mMl 

M2  REIUIN 

M3  EISE 

M4  WRnE(S,*)'IIXECALRCOOE' 

M5  STOP 

M6  ENDIP 

M7  UISUIIP-O. 

MS  RETURN 

m  C 

ro  c 

<71  ENTRY  SEruPR(DRCOOE> 

<72  RCODE-DRCXX)E 

<73  SETUPR-1. 

<74  V(RCOOE.EQ.1)T>TEN 

<75  SETUPR-  5. 

<7«  EUEIP(RCOOE.EQ.2)THEN 

<77  ICAPPA<-SQRT(IAyCLEN 

<7<  SETUPR-173J5QRT0.6) 

<79  ELSE  IP<RCODE.EQ  J)  THEN 

MO  kappa«-ix:i£n 

Ml  SETUPR-17S. 

«<  ENDV 

M3  return 

«4  END 

MS  C 

<M  C 

<<7  C 

<M  C  THIS  SUBROUTINE  DRIVES  TWODQ  TO  COMPUTE  IDD  FOR  DITDKL  IN  DMTECRAND 

M*  C  THE  REAL  PART  S  COMPUTED  POR  CODE-  1  OR  2,  IMAGINARY  CODE-  3 
<90  SUBROUTINE  IDDCMP(IDD.AERR.RERR.Il.ERE5T) 

<91  REAL  IDD,  AETULRERILERREST 

<92  REAL  HZMIN.HZMAX.HXMIN.HXMAX.HZMAXI 

<93  REALSDPQ,SP2.SPHXHZ.SZMIN.SZMAX 

<94  REAL  HMSQ,CLEN.CLENSQ,WLEN,THETA,SNTHT,CSTHT.SICS,K0,PI 

<9S  REALCCNT3 

<M  RVIECER  ICOOEO«).BUB06),|SUBO«),KSUB(16),LSUBO«) 

<97  B4TECERIL 

MS  COMPLEX  EREST.UR 

<99  EXTERNAL  ARCIDD,ZMIN,ZMAX 

900  COMMON>ONE«MSQ.CLEN,CLENSQ,WlEN,THETA,SNTHT,CSTHr,SICS,ia),n 

901  DATA  ICODE/l,1.1.1JJ.2,3,2J,2J,24.2,3/ 

902  DATA  BUBn,l,2.X1.l,l,1,l,l.l,i.2.J,i,i/ 

903  DATAJSUBnAlJ.l.lA2,l,1.i,1.1,l,2.2/ 

904  DATA  KSOBn,1A2A12J.1,l  JLI.2.2.2,2/ 

908  DATA  lSUWiai,il3:i,l,2,l1,l,2.2,2.2/ 

90<  C 

907  UR-0  A) 

9M  SETUP-SDPQ<IC00E<ILLBUB(ILL|SUB(ILLKS0B(IU 

909  1  lSU<(lljiEREST.UR.CSTHT.SNTHT) 

910  SETUP-SP3(SICS,SNTm,CSTHT.PI) 

911  C  1«»RnE«.7FACT-  '.SETUP 

912  $CTUP>SPHXHZ(nSICS) 
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*13  c  wnnnEo.*n>ENOM- '.smn* 

*14  SETUF-CCNT2(D.) 

9IS  HZMIN-0. 

91*  HZMAX-S.*SQitT(SIC5) 

917  HZMAX1-HZMAX*.4 

91*  HXMIN-HZMAX 

919  HXMAX-HZMAX 

*30  199  SETUP-SZMIKKHZMm) 

921  SETUP-SZMAX(HZMAX) 

922  C 

*23  CAU.TWODQ(ARCII>D,HXMIN,HXMAX,ZMIN,ZMAXAaUt.itEltlt.1.II>D,EI(ltES1) 

924  l}I>-2.*II>D 

91S  C 

93*  C  ',IDD,‘  ACCESSED-.COmO  ) 

*27  V  (IDO.EQA.O.AND.HZMAX.CT.HZMAXtVTKEN 

92*  HZMIN-HZMIN>.7 

929  HZMAX-HZMAX’.7 

930  HXM1N-HXMIN*.7 

*31  HXMAX-HXMAX*.7 

932  GOT0 199 

933  ENDIF 

934  C 

935  REnntN 

93*  END 

937  C 

*30  C 
*39  C 

*40  C  THESE  FUNCTIONS  CALCULATE  THE  HZ  UMnSFOK  2-0  INTECRAnON  BY  TWODQ 
*41  function  ZMIN(X1) 

942  ltEALD1ZM1N,D2ZMIN 

943  SAVE 

944  ZMIN-D1ZMIN 

*45  KETURN 

94*  ENTRY  SZMm<D2ZMIN) 

*47  D1ZMIN-D2ZMIN 

*4*  SZMN-12) 

*49  RETURN 

990  END 

951  C 

*52  nmCTRDN  ZMAX(X1) 

*53  REALD1ZMAX,D2ZMAX 

954  SAVE 

955  2MAX-D1ZMAX 

*5*  RETURN 

*57  ENTRY  SZMAX(D2ZMAX) 

*90  D1ZMAX-D2ZMAX 

99*  SZMAX-IjO 

*i0  RETURN 

9*1  END 

9*2  C 

9*3  C 

9*4  C 

915  C  THBfUNCTKM  CALCULATES  THE  ARGUMENT  OP  KX>  FOR  TWODQ 
*M  FUNCTION  ARGK)0(HX.HZ) 
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W7  REAL  COUNT.DUMMY.HXZSQ 

K>  «ealdenom,dsics,sics,sntht,cstht.pi,pact 

*6»  ltEALSICSRT,MCC».TANT,CCX7T,R,Fl,P2 

970  REALERPC 

971  SAVE 

972  C 

973  COONT-CXXJNT+1. 

974  HXZSQ-HXnUtHZW 

975  C 

97*  ll>(HX.LT.-COn)THEN 

977  P2-0. 

97S  ELSE 

979  P2-PACT 

980  ENOIP 

981  C 

982  PHXHZ-EXn-HXZSCKSICSVDENOM 

983  C 

984  ARCIDC>-niXHZ*m>PQMAC(HX,H2:.HXZSQ) 

985  RETURN 

986  C 

987  C 

988  ENTRY  SmxHZ(n.DSICS) 

989  SICS-OSICS 

990  DENOM-PfSICS 

991  SmXHZ-DENOM 

992  RETURN 

993  C 

994  C 

995  ENTRY  SP2(D5ICS.SNTHT,CSTHT.n) 

996  SICSRT-SQRT(D5ICS> 

997  PIC-JSICSRT/SQRT(n) 

998  IIHA8S<SNTHp.LT.1.E.10)THEN 

999  COTT-l.EX 

1000  00-0. 

1001  ELSE 

1002  TANT-SNTTTTASTHT 

1003  COTT-I/TANT 

1004  R-COTT/SKSRT 

1005  n-EXn-E’R) 

1006  R-ERFC(R) 

1007  C»-»1C*TANm-.S^ 

1008  ENDV 

1009  FACT-1J0.*CD) 

1010  Sf2-9ACT 

1011  RETURN 

1012  C 

1013  C 

1014  ENTRY  CC24T2(DU1iilMY) 

1015  COm-CX3UNT 

1016  COUNT-DUMMY 

1017  RETURN 

lOM  END 

1019  C 

WOO  C 
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1021  c 

10X2  CTHB  FUNCTION  CALCUlAlTIMrDKL  AS  PART  OP  IDD^BmCRAND 
10X3  FUNCTION  DFQMAC(HX,HZ,HXZSQ) 

101*  COMPUX  ER,UR,ll]R.ETAR.EI(M,ERMII.EltMRR.URM,URMR.URMItR 

1025  COMPLEX  SN1N,CS1N,DENLDEN3.C1IF.CFW,CFHH,Bt.B2.B3,B4 

1026  COMPLEX  DPQ(2,2).I>EILI>UR 

1027  REALHX.HZ.HXZSaSNTHT.CSIHT.DSNTHT.DCS'mT 

1020  REALCSC,1NC,SNC.CS0N,SNaN.SNPDI,CSPtH,S0IP,CDlP 

1029  REAL  CSSLSNSILSNSIP 

1030  MTECER  ICODE.RCOOE,EUB,IEU8,lSUB,I|SUB,ICSUB,KI(SUB,ISUB,LLSUB 

1031  SAVE 

1032  C 

1033  C5C-1.yS(]RTn.«HXZSQ) 

103*  TNC-SQRT(I1X2SQ) 

1035  SNC-CSCnNG 

1036  BVNC.IT.1  .E^  then 

1037  CSON-CSTHT 

103t  SNON-SNTHT 

1039  EISE 

1040  CSPOI-HX/INC 

1041  SNPCM-  HZ7INC 

lOtt  CS0N-CSCn3THT4NC*SNTHrCSPDI 

10*3  SNON-SQRTO.-CSON*CSON) 

10*4  ENDIP 

10*5  C 

10*6  RHABS(CSaN).LT.1  .E^  THEN 

10*7  DPQMAC'O. 

10M  RETURN 

10*9  ENDIP 

1050  C 

1051  SN1N-SNONOUR 

1052  CSIN-CSQRT(t-SN1N^1N) 

10S5  DEN2-CS0NK51NTTAR 

1054  DEN3-CS0NKSIN/ETAR 

1055  SRP-SNOrrSNON 

1056  COV-CSON 

1057  aV-CStN*CS1N 

1051  CPVV-CDr*((-UR^IP^O«PrERMR-UIIMWDEN2-DCN2) 

1099  CPHH-Oa07‘<(-CR^V4alFrURMR-EXMV<DeNrOEN3) 

1060  C 

1061  P(1NC.LT.  I  .E4)  THEN 

1062  DPQ0.1)-CPW 

1063  DPQC.27-0. 

106*  DPQP.I)-0. 

1065  DPQCU)-CPHH 

lOM  EUE 

1067  CSM-(CSC*SNTm«SNCrCSTHTKSPDiy5NaN 

MM  SN»-«NCSNPD«SNON 

1069  SNSV-«NSI 

1070  Bl-CPVirCSSI 

MTI  BX-aMHINSI 

1072  B-CPWINM 

wn  B*'CiB«rc5a 

1074  DPq0.1)-CSSPBl<NSr»B2 
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vn  DrQo.2)-cs5rBysNsiP*B4 

\art  I>rQai)-SNSIP*Bl«C5SPB2 

1077  DrQa2)-SNSIP'B3<SSI>B4 

1071  ENDff 

1079  C 

1000  *(ICODE.EQ.1)7>1EN 

1001  D?QMAC-(CABS(DPQ(EUB,|SUB))ICSCr7 

1002  ELSE  BHICODE-EQJ)  THEN 

100J  DrQMAC-BEAMDBQ(BUB,|SUBrCON)C<DrQ<ICSUB.LSUB»VCSCASC 

1004  ELSE 

1005  l>OQMAC-AMAC<DrQ(EUB,lSUBrCON|C<DPQ(KSUB.LSUB))VCSC/CSC 

1005  ENOV 

1007  OEIUON 

1000  C 
1009  C 

1090  ENTEY  SDPQ(IICODE.IBUB,nSUB.KKSUB,LLSUB.DEil.I>Ult. 

1091  1  DCSTHT.DSNTHT) 

1092  ICODE-BCODE 

ion  BUB-OSUB 

1094  ISUO-nSUB 

1095  KSUB-nSUO 

1095  tSUO-USUO 

1097  CSTHT-DCSmT 

1090  SNTHT-DSNTHT 

1099  EB-DEK 

1100  UB-DUK 

1101  UB-CSOBTtEOniB) 

ii<n  etab-csqbt(ub/eb) 

1105  EBM-1.-EB 

1104  EBMB-IM^ 

1105  EBMBB-EBMB’BIB 

1105  UBM-I.-UB 

1107  UBMB-l.-IAn 

1100  UBMBB-UBMinUB 

1109  SDFQ-12> 

1110  BETUBN 

1111  END 

1112  C— ~END  OP  BETBO~~- 

1113  C 

1114  C 

1115  C— SUBBOOT04ET2STAT~— 

1115  CTIOtMbRMOOiceMpumOoOMkMiiMiovwdinihtdwIyM. 

1117  C  Por  won  InfenMOon  wt  Ow  uarr  nmal  E^itora  0H9) 

1110  C 

1119  $UOBOUT«4ET2STAT(DIPP,BATU1C,LMAX.DIFFMAX.BADMAX. 

1120  nBMAX.BADB}S.BLOC.PPT,PPB) 

1121  DMENSION  DOT(6LBATLOC(5),PPr(5).PPO(5) 

1122  OAD-0. 

1123  BADMAX-0. 

1124  BAOBAT-O. 

im  DOTMAX-O. 

1125  DO310L-14 

1127  V([AaS<PrntA.CT.A05<PPB(L»|THEN 

1120  D*B(L)-PPT|1>PP0(L) 
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HJ9  »(PFIl(l)>IEU)..AND.PFB(y.NE.O.)'mEN 

1130  IAT10CahDIIT(l>SQin(AB5(ni(LrnTa.») 

1131  EISE 

1131  lATIjOCaH). 

1133  ENtMF 

1134  ELSE 

1135  I>IPP(L)-0. 

113*  llATUX^L)-0. 

1137  ENDS’ 

1130  IIAD-ltAOtDIPF(irDIFP(13 

1139  >AOKAT-ltAOKAT4lAnjOC(LrRA'njOC(L) 

1140  V(ABS<ltATLOC<L)).CT.At5(RADMAX))7>{EN 

1141  IAOMAX-ltAnOC(L) 

1142  LIMAX-L 

1143  ENDV 

1144  V(Aa5<DVP(L)).CT.ABS(DIPn>4AX))'rHEN 

1145  OIFPMAX-DffP(L) 

114*  LMAX-L 

1147  ENDff 

1140  130CX»n*JUE 

114*  tAOWS-SQItnKAD) 

1150  RLOC-SQItT(RADItAT) 

1151  c  %miE(Maao)itADMAX 

1152  IS00K)ltMATritADMAX’.E12.4) 

1153  EETUIIN 

1154  END 

1155  C 

115*  C’ . SUOKCXmNE  SOWNK . 

1157  C 

tin  C  rcnittnt  aortt  tfiTOush  tfifl 

tin  C  tmy  cpntoMnf  tht  kmpnmrj  p^fi  o(  the  index  end  ftnde  eQ  nwxirM  and 

1 140  C  adfiiM-  W  tficfv  1»  an  inlerval  which  there  are  locai  a«lrewa  and 

1141  C  aa^iral  pohdi  ahare  the  extra  cne  valye,  tfttn  the  program  «eW  eiofe  the 
1143  C  aJrtwia  trahie  at  the  two  endpginU  of  the  tneerval.  and  h  ia  hnplicWy 

C  andeeatood  Oiat  k  la  cenatant  over  that  iniafval.  The  array  conaaininf 

1143  C  the  raaonant  aalwaa  (aaawhwa),  ANKMAX  ia  rearranged  *n  the  laal  eechon 

1144  C  of  Ml  rwmwa  ao  Oiat  ha  enirlaa  ate  in  order  of  decraaai^  k  father 

1145  C  than  in  order  of  incraaainf  wiaakngth. 

1144  C 

1147  suwoumc  SOKTNK<NMm^AX,WlMMX.WU4lh4B4,ANiaifM,ANKMAX,NF^ 

1140  •NK.WLN) 

1144  CX>MMONmVCyWLJ4M,WlMAX 

1170  lEAL  WUIMt4(401,WlNMXf40).ANKMI^<40XANIMAX<40).WU4<^^ 

1171  tnvera  NMM^AX 

1173  C  To  avoid  lookh^  at  wavatei^  wmide  of  the  ranpe  defined  ky  WU4AX 

1173  C  and  WIMM,  And  o«l  which  wofalaiifthe  In  WIM  are  eidddi  of  dw  fan^a 

1174  C  and  oariada  their  oonoafwndins  eneriaa  In  NK. 

1175  C  fWT  MVUm.WUdAX 

1174  WIMMX-0. 

1177  ANKMAX-O. 

1174  NUSS-1 

1170  NMOKE-1 

im  D0777|L-1J4nS 

1141  n(WtM04^LrwlM»4)Nl£»‘Nt^ 
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n«J  V(WLN0L).CT.WLMA)()NMOilE-NMO8£t1 
11*3  777  CONIWUE 

11*4  C  WUIE(*J222)NUSSJ4MORE 
lie  tm  POKMATfNUSS.  NMORT^) 

11**  NMM-0 
11*7  NMAX-0 

111*  »(NlC<NlESS).CTjnc(NLESS*I))TOEN 

1in  NMAX-NMAX*1 

11«0  WLNMX(NMAX)-WIN(NUSS) 

11*1  ANKMAX(NMAX)-NK(NUSS) 
im  osE 

im  NMM-NMMtl 

im  W1MMIN(NMIN)-WLN(NUSS) 

119S  ANICMIN<NMIN)-NK(N1£SS) 

11W  ENDIF 

1197  M-NLESS«1 

119*  C  WIVrE(|,*)NMC)RE.NLESS 

1199  99  DO  XI  |-M,NrTS-NMO«E 

1X0  »(NIC0)-CT.NIC(I-1).AND>IK0).CT.NIC<I*1))THEN 

1X1  NMAX-NMAX4I 

inn  WLNMX(NMAX)-WLNO) 

inn  ANKMAX(NMAX)-NK(D 

1X4  ELSE  P(NK0).LT.NK(r-1)ANOMCa).LT.NK0*l))7HEN 

IXS  NMM-NMMM 

1X4  WlMMIN<ttAaN)-WLN<n 

1X7  ANKMIN(NMM)-NK(D 

1X1  C 

1***  C  CaivAil  about  drawing  a  iaiaa  oonduaion  If  two  neighboring  antrlaa  In 

1210  C  dia  dab  Ma  ara  agual. 

1211  C 

1212  nSE»(NIC®,CTJJK0-1)AND.NK<D.EQNK(|tl))THEN 

1213  NMAX-NMAXrl 

1214  WLNMX(NMAX)-WLN<|} 

1213  ANXMAX<NMAX)-NK(D 

1214  n-i 

1217  MM-1 

121*  DO  302  MMM-|r1.Nm-l 

1219 

12X  V(NK(MMM).CT.NK(MMMr1)nHEN 

1221  NMAX-NMAXn 

1222  WLNMX(NMAX)-WLN<MMM) 

1223  ANKMAX(NMAX)-NK(MMM) 

1234  COTOnU 

12X  END* 

1*X  P|NK<MMM).LTJ4K<MMM>I))NMAX-NMAX-I 

1227  *DnC(MI4M).LTJ4K(MMMr1ECOTO303 

12X  302  CONIVtUE 

12X  Else  X|raC(PLT.NK(h1).ANDJ4K0)  EQ.NK0r1))ITHEN 

IXX  NbON-NMIUM 

1X1  WLMil»KNM»f)-WLNO) 

12n  AMMMDMMI-NKO) 

12X  1-J 

12M  MM-I 

12X  oosasMMM-irijonvi 
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I23i  MM-MMtt 

1ZJ7  ■^NIC(MMM)XTi4K(klMM«l))THEN 

1231  NMM-NMNil 

12I>  WU4MIN(NMIN)-W1M(MMM) 

1140  ANn«IN<NMIN)-NK(MMM) 

1141  COTO303 

1142  ENOIF 

1143  IF(NI(<MMM).CTJ>aC(MMMtI))N^ 

1144  V(^nC0^4MM).CTJ4K(MMM*1))CO  TO  303 

1243  303  CONTINUE 

1246  ENDV 

1247  301 CONTMUE 

12«  V(NK(NrT5-NMOItEt1).CTJ4K<NPTS^MOit£))'mEN 

1249  NMAX-NMAX«1 

1230  WlNMX(NMAX)-WLN(NnVNMORE>1) 

1231  ANKMAX(NMAX)-NK(NFTSNMOilEt1) 

1232  ELSE 

12S3  NMM-NMIN>1 

1234  1l9LNMIN(NM1N)-WLN<NPT3-NMOi(E«t) 

1133  ANKMIN<NMIN)-NIC(NPTSNM0RE«1) 

1136  BIDIF 

1237  COTO304 

1231  303  M-n«MM 

1139  C0T099 

1160  C 

1161  C  Rnrianf*  Om  In  WLNMAX  to  ihti  they  tn  in  dccmting  order 

1162  C  mdor  Own  In  order  of  tamatlnf  mvciength.  If  •  oecc  oonin  witcre 

1163  C IWD  elcmtnii  of  WLNMAX  ere  eqiul,  handle  It  by  lettlng  Ihe  one  with  Ihe 

1164  C  hryml  aubecripl  c^l  lo  icro. 

1263  C 

1266  304  DO  321  l-l  J4MAX-1 

1267  LAST-NMAX-I 

IlM  D0321  K-I.LAST 

1269  V(ANKMAX(K).EQ.ANKMAX(K<I))ANKMAX(K<1)-0. 

1270  P(ANKMAX(K).LT.ANKMAX(K«I))THEN 

1271  TEMr-ANKMAX<K) 

1272  TEMrWL-WLNMXfK) 

1273  ANKMAX(K)-ANKMAX<K«1) 

1274  WLNMX<K)-WIMMX(K*1) 

1273  ANKMAX(K»1)>TEMr 

1276  WLNMX(Kt1)-TEMrWL 

1277  ENDV 

1271  111  CONTVfUE 

1279  HETintN 

IMO  END 

im  C 

1212  C~*SUl*OUT*IESAVE-- 

im  C  TMt  loalinc  delemilnee  whether  or  not  Ihe  dale  oomputed  by  KETItO  It  more 

1214  C  ateM  from  die  elendpetid  of  the  Itel  epedfWd  by  NCKfT  then  the  currendy 

1213  C  moel  atehil  eel  of  dale.  Sbiot  dlecripanelat  arlae  between  the  2  leele. 

tlM  C  peifcimed  by  TISTAT,  die  eacleble  NCMT  delemilnee  wMch  leal  la  aaed  bt 
1217  C  dadatan  aiaUn|. 

1211  C 

1219  SUM0UnNESAVE(NCIUT,T25TMX,RADMX.0.l4.0MX.MMX.I3«DMX.I4ltDMX 
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12)0  *,JWlSET,RADIUS,ltLXX:) 

1291  C  WltITE(BM)O.U,RADIUS,UOC 

1292  MS  PORMATrnOM  SAVr^,2E12.4) 

1293  |WlSeT-1 

1294  ■KllADIUS.CX.‘nSIMX)THEN 

1295  T2S1MX-ltADIUS 

1296  DMX-D 

1297  I4MX-H 

12)0  iwcRrr.EQ.iiiwisEr-a 

1299  ENDIF 

1300  V(IUjOC.CE.iUDMX]!THEN 

1301  KADMX-RLCX: 

1302  OKDMX-D 

1303  l4«OMX-M 

1304  V(NCIirr.EQ.0)0VIjET-2 

1305  ENDIF 

1306  EETURN 

1307  END 
1300  C 

1309  C~~SOWOUnNE  WlANCSEr~~ 

1310  C 

1311  C  TMt  nutint  ctwcka  If  Muller  (Mlricn  hive  btcn  oompulcd  tor  the  potnl 

1312  C  et  MwcWnglh  W  end  incident  engle  ANCfKtHSET).  If  Muller  metrieee  heve 

1313  C  ehundy  been  eelculeled  for  iMe  point,  then  the  ptogrem  urill  not  reeom^te 

1314  C  them  (NCA1jC-2),  If  die  pfoimn  hee  pet  to  oompute  Muller  inetrioe*  for  this 

1315  C  Meutletvlh  end  foddene  engle,  M  teOI  (NCAIXT-I). 

1316  C 

1317  SUWOUTINE  VnANCSEr(W,MVfLN.WLNWlN,WlN,|,K,DSET,USET,NCALC, 

1315  *O.U) 

1319  REAL  WLNWLN(ia0).WLNO00.l00) 

1320  NCALC-2 

1321  KXK-HSETtK 

1332  C  If  ]'0  then  eotne  Incldeni  englee  heve  elreedy  been  computed  for 

1323  C  Ihle  weveWnglh.  R  ie  henoe  neceeeerp  to  determine  if  ANCfKtMSET) 

1324  C  hee  been  ueed  el  Ihle  weveWngth.  The  wevelengihe  end  inetdeni  englee 

1325  C  el  which  Muller  metrieee  for  Ihoee  wivelengthe  heve  been  eelculeled 

1326  C  ete  ifoied  In  WLN  eo  If  WLN(.,.)  ii  eeto  then  diet  Muller  metrix  hee 

1327  C  net  pet  been  eomputed. 

1321  VQ.EQ.OJTHEN 

1329  IP(WlN<l35ET,ni3C).LT.1.E-0S)THEN 

1330  WLN<I3SET,KKIC)-W 

1331  O-DSET 

1332  H-nOC 

1333  NCALC-I 

1334  RETURN 

1335  EUE 

1336  RETintN 

1337  END* 

133d  EI5E 

1339  C  R  |>iE.O  dien  there  b  e  chence  diet  dile  wevelength  hee  not  been  ueed 

1340  C  el  eR  In  which  aee  dieie  Ie  no  chence  Ihel  the  eeme  MuRer  metrta  will 

1341  C  be  oemputed  iwlee  end  enp  Inddene  engle  Ie  o.k. 

1342  D099L-1.hin*LN 


1343  X-W-WINWLN<U 
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1344  ■HAKOO.LT.I.&OSriHEN 

1345  a>(WlM(UnaC).LT.1.&05)THEN 

1346  WLN(l.KKig-W 

1347  O-L 

1346  H-KKK 

13W  NCALC-1 

1350  RETUItN 

1351  ELSE 

1352  RETUEN 

1353  ENDIP 

1354  MXF 

1355  99  CONTINUE 

1356  ENDIP 

1357  C  If  IM*  Hn«  h«*  bcm  mditJ  then  the  mvciength  W  hu  yet  to  be 
1356  CuMd. 

1359  MWLN-MWIN«1 

1360  WLNWLN(MWLN)-W 

1361  W1N(MWLN,KKK)-W 

1362  0-MWLN 

1363  U-KKK 

1364  NCALC-1 

1365  EETUIIN 

1366  END 

1367  C 

13M  C— SUBROUTINE  hnXElE~~~ 

1369  C 

1370  C  TMe  RMlIne  eseH  the  emy*  oMMcIning  the  Mmit  In  the  dienlininelion 

1371  C  lee4eolT2STAT  bi  ender  el  leryeet  to  emelleet.  The  purpoee  el  thie  ie 

1372  C  46  4e6  yeu  which  itieielK  etemenis  ere  moei  ueehil  et  e  pettlculer 

1373  C  an6le  el  Incldenct  end  «nvelen6th. 

1374  C 

1375  subroutine  AMn(ELE(X,Y.Kj4) 

1376  MTECER  K(6LKK<6) 

1377  REAL  X(6LY(6) 

1376  DATA  n;il.2J.4JA 

1379  Y-X 

1360  K-KK 

1361  C  WRnE(6J666)Y 
13B2  C  WR1TE(SJ666)X 

1363  im  PORMA'n6E12.4) 

1364  DO  100  M-U 

1365  DO  100  L-1,64il 

1306  »(ABS<Y(D).l£.ABS(Ya*1)))THEN 

13r  T-Y(U 

1366  Va3-Y(Le1) 

1369  V<L*1)-T 

1390  jr-KOI 

1391  K(L|-K(L«1) 

1392  K(Le1)-IT 

1393  ENDIP 

13H  lOOCONTVlUE 

1395  N-0 

1396  DO  101  I*U 

1397  »(T0>3IE.a)N-N4l 
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13*8  101  CONTINUE 

13»»  KETUIIN 

1«)0  END 

1401  C 

1401  C . SUBKOUTTNE  5ETHETWl.—~~ 

1409  C 

1404  C  TlOa  routine  delennlnM  which  englce  of  incidcnoe  end  travelengihe 
140$  C  the  pfognm  uice  to  oompuir  end  enilyie  Mueller  metrioee  in  en 

1408  C  orderly  hehion  eo  they  on  be  written  in  a  form  Ihti 

1407  C  DGSELAY  can  rend  and  plot  them. 

1408  C 

140*  SUBROUTINE  SETHETWL<ANC,WLNWLN,DSET,f4SET) 

1410  DIMENSION  ANC(100),WLNW1N(100) 

1411  COMMON/TWCVWIMIN.WIMAX 

14U  A-ANC<I4SET) 

1413  P(A.LT.2a.)THEN 

1414  D0  8«81'1.11 

141$  ANC<I)-4.*(I-1) 

1418  888  CONTINUE 

1417  ELSE  IF<A  CT  68  )TTTEN 

1418  DO  887  1-1,11 

141*  ANC<I)-48.»4.’(I-I) 

1420  887  CONTINUE 

1421  ELSE 

1422  DO  871  I-SS 

1423  ANC(I)-A44.M 

1424  871  continue 

1425  ENDIP 

1428  W-WLNWlNffJSET) 

1427  nKW-J5.LE.WLMlN)THEN 

1428  X-W-WLMIN 

1429  M-IFIX(X/.0S) 

1430  DO  888  l-M.-MrlO 

1431  WLNWLN<l«Mrl)-Wrr.0$ 

1432  8*8CONnNUE 

1433  ELSE  IPIOnr  LS)  CT.WLMAJO-mEN 

1434  X-WLMAX-W 

1435  M-nX(X/.0S) 

1438  DO  8*9 1-M.-Mrio 

1437  WLNWLN(124M-1)-W-.05’I 

1438  *89  CONTINUE 

143*  ELSE 

1440  DO  *70 1-5.S 

1441  WLNWLN(I<8)-Wr.05n 

1442  870  CONTINUE 

1443  ENDIB 

1444  RETURN 

1445  END 
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AVL2.6  SAMPLE  CALCULATIONS:  INPUT  AND  OUTPUT  DATA  OUTPUT  FILES. 

AVL2.6.1  Input  Fife  'DATAIN2.' 


1  oompos.nk 

2  sf96.nk 

3  deddel.out 

4  decide2.ooinm2 

5  compos 

6  sf96 

7  20.  .5 

8  20.  .5 

9  110.8. 

10  9.012.5.05 

11  1 
12  1 

13  .00000001  .0000001 

14  .0001  .005 

15  700 

16  0 

17  dic.d 

18  cdi.d 

19  acdi.d 


AVI.2.6.2  Output  FUe  -dk.d: 


2 

0001 

3 

0001 

4 

0011 

5 

0011 

6 

0.2000E-K)2 

7 

0.5000E^00 

8 

0.1195E-f02 

9 

0.1220E>02 

10 

0.1245E-f02 

11 

0.0000E4W 

12 

0.2000E-Kn 

13 

0.4000E402 

14 

O.lOOOE-fOl 

15 

0.5562E-01  • 

16 

O.lOOOE-fOl 

17 

0.5552E-01 

18 

O.lOOOE^l 

19 

0.5519E-01 

20 

0.1000E-K)1 

21 

0.5451E-01 

22 

O.lOOOE^Ol 

0.1210E'f02 

0.1235E+02 

0.1200E-f02 

0.3200E+02 


0.1215E-)^02 

0.1240E-t'02 

0.1600E-f02 

0.3600E4-02 


I.5480E-01  0. 
I.5467E-01  -0. 
I.5427E-01  -0. 
I.5348E-01  -0. 


1661E-11  -0.5521E-01 
6637E-04  -0.5510E-01 
2597E-03  -0.5473E-01 
5617E-03  -0.5399E-01 
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249  0.5398E-t-00  0.6587E-01  0.4800E+00 -O-AllIE-fOO -0.3128E-01  •O.482OE-f0O 

250  O.lOOOE-fOl  O.lOOOE-fOl  O.lOOOE+01 

251  0.4630E'f00  0.6710E-01  0.4059E-fOO -0.3522E-f00 -0.3167E-01 -0.4092£-f00 

252  O.lOOOE-fOl  O.lOOOE-fOl  O.lOOOE-fOl 

253  0.3753E+00  0.6222E-01  0.3245E+00 -0.2781E+00 -0.2926E-01 -0.3289E+00 

254  O.lOOOE'fOl  O.lOOOE-fOl  O.IOOOE+Ol 

255  0.2836E-f00  0.5238E-01  0.2418E-fOO -0.2051E-f00 -0.2460E-01 -0.2486E400 


AVI.2.6.3  Output  File  "cdi.d" 

1  compos 

2  0001 

3  0001 

4  0011 

5  0011 

6  0.2000E-f02 

7  0.5000E-K)0 

8  0.1195E+02  0.1200E+02  0.1205E+02  0.1210E+02  0.1215E+02 

9  0.1220E+02  0.1225E+02  0.1230E+02  0.1235E+02  0.1240E+02 

10  0.1245E>02 

11  O.OOOOE+00  0.4000E+01  0.8000E+Q1  0.120QE+02  0,16Q0E+Q2 

12  0.2000E+02  0.2400E+02  0.2800E+02  0.3200E+02  0.3600E+02 

13  0.4000E>02 

14  O.lOOOE-t-Ol  O.lOOOE+01  O.lOOOE-fOl 

15  0.2454E+00  -0.1181E-11  0.2394E+00  -0.2335E+00  -0.2653E-10  -0.2394E+00 

16  O.lOOOE-t-Ol  O.lOOOE-fOl  O.lOOOE-fOl 

17  0.2447E+00  0.7180E-03  0.2386E+00 -0.2325E+00 -0.7195E-04 -0.2386E+00 

18  O.lOOOEfOl  O.lOOOE-fOl  O.lOOOEfOl 

19  0.2426E+00  0.2798E-02  0.2360E+00 -0.2295E+00 -0.2800E-03 -0.2360E+00 

20  O.lOOOE-fOl  O.lOOOE-fOl  O.lOOOEfOl 

21  0.2385E-f00  0.6014E-02  0.2313E+00 -0.2241E+00 -0.6000E-03 -0.2313E-fOO 

22  O.lOOOE-fOl  O.lOOOEfOl  O.lOOOEfOl 


249  0.1381Ef00  0.1315E-01  0.1323Ef00  •0.1265EfOO -0.3216E-4)2 -O.1323Ef00 

250  O.lOOOEfOl  O.lOOOEfOl  O.lOOOEfOl 

251  0.1190Ef00  0.1346E-O1  0.1133Ef00 -0.1078EfOO -0.3279E-02 -0.1135Ef00 

252  O.lOOOEfOl  O.lOOOEfOl  O.lOOOEfOl 

253  0.9686E-4)1  0.1250E-01  0.9171E-01 -0.8690E-01  •0.3039E-02 -0.9204E-4)1 

254  O.lOOOEfOl  O.lOOOEfOl  O.lOOOEfOl 

255  0.7345E-O1  0.1052E-01  0.6916E-01  -0.6530E-01  -0.2552E-O2  -0.6958E-01 


AVU.6.4  Output  rae  ’mdU.’ 
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1  compos 


2 

0001 

3 

0001 

4 

0011 

5 

0011 

6 

0.2000E-t-02 

7 

0.5000E-M)0 

8 

0.1195E402 

0.1200E-K)2 

0.1205E-f02 

0.12l0E-f02 

0.1215E4^02 

9 

0.1220E-f02 

0.1225E-f02 

0.1230E-f02 

0.1235E-K)2 

0.1240E-f02 

10 

0.1245E-K)2 

11 

O.OOOOE-MM 

0.4000E-K)1 

0.8000E-f01 

0.1200E-K)2 

0.1600E-f02 

12 

0.2000E-t'02 

0.2400E-f02 

0.2800E-f02 

0.3200E-f02 

0.3600E-f02 

13 

0.4000E-M)2 

14 

0.1000E-K)1 

O.lOOOE-fOl 

O.lOOOE-fOl 

15 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

16 

O.lOOOE-fOl 

0.1000E401 

O.lOOOE-fOl 

17 

O.OOOOE^OO 

O.OOOOE-t-OO 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

18 

O.lOOOE-fOl 

O.IOOOEK)! 

O.IOOOF.+Ol 

19 

O.OOOOE-KX) 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

20 

O.lOOOE-fOl 

O.lOOOE-fOl 

0.10(X)E-f01 

21 

O.OOOOE-KX) 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

O.OOOOE-fOO 

22 

O.lOOOE-fOl 

O.lOOOEf^Ol 

O.lOOOE-fOl 

249 

8 

i 

b 

0.4320E-K)1 

0.4018E-f00  -0.27raE-f01 

0.4018E-fOO 

0.1472EK)1 

250 

O.lOOOE-fOl 

O.lOOOEf^Ol 

O.lOOOEf-01 

251 

0.5957E-f00 

0.4291E-f01 

0.3440E-fOO  -0.2786E-f01 

0.3440E-f00 

p 

1 

252 

0.1000E>01 

O.lOOOE-fOl 

O.lOOOE-fOl 

253 

0.4771E-f00 

0.4270E+01 

0.2785E+00  -0.2781E+01 

0.2785E-K)0 

0.1461E-f01 

254 

0.1000E>01 

0.1000E4-01 

O.lOOOE-fOl 

255 

0.3566E-f00 

0.4256E-f01 

0.2101E-f00  •0.2782E-f01 

0.2101E-f00 

0.1456E-f01 

AVI.2.6.5  Output  File  "decidel.comml." 

PROGRAM  STOPPED  BECAUSE  NO  IMPROVEMENT  IN  THE 
RESULTS  OF  ROUTINE  T2STAT  HAS  BEEN  DETECTED 


AVI. 2.6.6  Output  File  '’decide2.out.’' 

1  compos  sf96 

2  20.0,  0.5 

3  20.0,  0.5 

4  0.9000E-K)1  0.1250E+02  0.5000E-01 

5  O.OOOOE-KX)  0.8000E-H)1  0.1600E^2  0.2400E>02  0.3200Ef02 

6  0.4000E-f02  0.4800E402  0.5600E^  O.MOOE«02  0.7200E^ 

7  0.aOOOE-f02 

8  CODE  FOR  AUTCVCORR  FUNCnONS  AND  NORMAUZATTON  1  1 
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9  NOtlT  0 

10  WAVELENGTH-  0.961539E-I-01  INCIDENT  ANGLE-  O.OOOOOOE-fOO 

11  5 

12  5 

13  0.5633E-09  0.1773E+02  0005 -0.5633E-09  0005 -0.1773E+02 


130  WAVELENGTH-  0.124533E-f02  INCIDENT  ANGLE-  0.640000E-K)2 

131  5  2  1  6  3  4 

132  1  6  3  4  2  5 

133  0.4224E-02  0.4238E-f01  0001  0.2582E-02  0005 -0.2845E-M)1 

134  WAVELENGTH-  0.124533E^02  INODENT  ANGLE-  0.720000E-M)2 

135  5  2  1  6  3  4 

136  1  6  3  4  2  5 

137  0.1444E-03  0.4220E-f01  0001  0.8904E-04  0005 -0.2852E-t^01 

138  WAVELENGTH-  0.124533E+02  INCIDENT  ANGLE-  0.800000E-f02 

139  5  2  1  6  3  4 

140  1  6  3  4  2  5 

141  0.6171E-06  0.4182E-f01  0001  0.3839E-06  0005 -0.2841E-M)1 

142  WAVELENGTH-  0.956539E+01  INCIDENT  ANGLE-  O.OOOOOOE+00 

143  5 

144  5 

145  0.1975E-09  0.1138E+02  0005 -0.1975E-09  0005 -0.1 138E+02 

146  WAVELENGTH-  0.956539E+01  INQDENT  ANGLE-  0.800000E+01 

147 

148 

149  O.OOOOE-fOO  O.OOOOE-fOO  0005  O.OOOOE'fOO  0005  O.OOOOE-fOO 

150  WAVELENGTH-  0.966539E+01  INQDENT  ANGLE-  O.OOOOOOE+00 

151  5 

152  5 

153  0.6568E-09  0.1835E-tO2  0005 -0.6568E-09  0005 -0.1835E-»’02 

154  wavelength-  0.966539E>01  INQDENT  ANGLE-  0.800000E401 

155 

156 

157  O.OOOOE-fOO  O.OOOOEtOO  0005  O.OOOOE>00  0005  O.OOOOE-fOO 

158  WAVELENGTH-  0.971539E+01  INCIDENT  ANGLE-  O.OOOOOOE+00 

159  5 

160  5 

161  0.8643E-09  0.1759E'f02  0005 -0.8643E-09  0005 -0.1759E'f02 

162  WAVELENGTH-  0.971539E-K)1  INCIDENT  ANGLE-  0.800000E-»^01 

163 

164 

165  O.OOOOE-KX)  O.OOOOE-MW  0005  O.OOOOE^OO  0005  O.OOOOE-t^OO 

166  THE  MOST  PROMISING  WAVELENGTH  AND  ANGLE  PAIR  IS  0.9665E-f01  O.OOOOE-fOO 

167  0.9S6539E-f01  O.OOOOOOE-fOO 

166  0.2823E-fOO  -0.2309E-11  0.2741E-f00  •0.2658Ef00  •0.1959E-09  -0.2741EfOO 

169  0.1944E^1  0.1177E-O8  0.1743Ef01  •0.1543E-f01  0.1537E-11  -0.1743E-f01 


-472- 


Appendix  VI 


270  0.1266E-t’00  0.2852E-01  0.1050E+00 -0.8727E-01 -0.1246E-01 -0.1089E-K)0 

271  0.3218E-01  0.5420E-02  0.2998E-01  -0.2813E-01  -0.1361E-02  -0.3034E-01 

272  0.124688E-f02  0.560000E-f02 

273  0.3198E-01  0.8327E-02  0.2593E-01  -0.2120E-01  -0.3660E-02  -0.2725E-01 

274  0.8155E-02  0.1569E-02  0.7530E-02  ■0.7033E-02 -0.3944E-03 -0.7659E-02 

275  0.12468SE-K)2  0.640000E+02 

276  0.3662E-02  0.1095E-02  0.29nE-02 -0.2333E-C2  •0.4840E-03 -0.3083E-02 

277  0.9366E-03  0.20S1E-03  0.8S83E-03 -0.7973E-03 -0.5162E-04 -0.8757E-03 

278  0.124688E-f02  0.720000E>02 

279  0.1272E-03  0.4365E-04  0.9951E-04  ■0.7751E-04 -0.1933E-04  •0.1052E-03 

280  0.32^-04  0.8156E-05  0.2973E-04 -0.2740E-04 -0.2055E-05 -0.3033E-04 

281  0.124688E-f02  0.800000E-K)2 

282  0.5544E-06  0.2175E-06  0.4282E-06 -0.3204E-06 -0.9612E-07 -0.4466E-06 

283  0.1429E-06  0.4078E-07  0.1294E-06 -0.1180E-06 -0.1027E-07 -0.1315E-06 


